Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
eval = FALSE,
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
# library(ryandexdirect)
## -----------------------------------------------------------------------------
# s_ws_rep <- yadirGetWordStatReport(c('купить смартфон',
# 'купить сотовый телефон',
# 'купить мобильный',
# 'samsung -(серого цвета)'),
# Login = "selesnow")
## -----------------------------------------------------------------------------
# # Что искали с заданными ключевыми словами
# s_ws_rep$SearchedWith
# s_ws_rep[['SearchedWith']]
#
# # Запросы, похожие на заданные ключевые слова
# s_ws_rep$SearchedAlso
# s_ws_rep[['SearchedAlso']]
#
## -----------------------------------------------------------------------------
# library(dplyr)
#
# # запрашиваем справочник регионов
# regions <- yadirGetDictionary(Login = "selesnow")
#
# # оставляем толлько нужные регионы
# rep_regions <- regions %>%
# filter(GeoRegionName %in% c("Москва",
# "Санкт-Петербург",
# "Екатеринбург",
# "Владивосток"))
#
# # запрашиваем отчёт
# reg_ws <- yadirGetWordStatReport(Phrases = c('купить смартфон -xiaomi',
# 'купить xiaomi'),
# GeoID = rep_regions$GeoRegionId,
# Login = "selesnow")
## -----------------------------------------------------------------------------
# library(dplyr)
#
# # запрашиваем справочник регионов
# regions <- yadirGetDictionary(Login = "selesnow")
#
# # получаем идентификатор России
# regions <- regions %>%
# filter(GeoRegionName %in% c("Россия"))
#
# # получаем идентификатор минус регионов и помечаем их минусом
# minus_regions <- regions %>%
# filter(GeoRegionName %in% c("Москва",
# "Санкт-Петербург",
# "Екатеринбург",
# "Владивосток")) %>%
# mutate(GeoRegionId = paste0("-", GeoRegionId))
#
# # запрашиваем прогноз с результататми торгов
# forecast <- yadirGetForecast2(Phrases = c('купить смартфон -xiaomi',
# 'купить xiaomi',
# 'самсунг -(серого цвета)'),
# GeoID = c(regions$GeoRegionId, minus_regions$GeoRegionId),
# AuctionBids = 'Yes',
# Login = "selesnow")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.