kwewr makes it easy to request keyword data from the Keywords Everywhere API.
You need to have your own API key. By default, kwewr will look for your key in config.yml realtive to your working directory.
In this example I request data for the five keywords: cat, dog, Amazon, Google, and Youtube.
library(kwewr)
kws <- get_keyword_data(c(
"Cat",
"Dog",
"Amazon",
"Google",
"Youtube"
))
str(kws, max.level = 2)
## List of 4
## $ data :'data.frame': 5 obs. of 5 variables:
## ..$ vol : int [1:5] 7480000 6120000 414000000 618000000 1380000000
## ..$ cpc :'data.frame': 5 obs. of 2 variables:
## ..$ keyword : chr [1:5] "cat" "dog" "amazon" "google" ...
## ..$ competition: num [1:5] 0.13 0.14 0.13 0.01 0.01
## ..$ trend :List of 5
## $ credits : int 87711
## $ time : num 0.01
## $ time_stamp: POSIXct[1:1], format: "2020-10-11 07:02:17"
tibble::as_tibble(kws$data)
## # A tibble: 5 x 5
## vol cpc$currency $value keyword competition trend
## <int> <chr> <chr> <chr> <dbl> <list>
## 1 7480000 $ 0.18 cat 0.13 <df[,3] [12 x 3]>
## 2 6120000 $ 0.84 dog 0.14 <df[,3] [12 x 3]>
## 3 414000000 $ 0.02 amazon 0.13 <df[,3] [12 x 3]>
## 4 618000000 $ 0.31 google 0.01 <df[,3] [12 x 3]>
## 5 1380000000 $ 0.06 youtube 0.01 <df[,3] [12 x 3]>