O segredo aqui é descobrir onde está a informação que te interessa. Para saber disso, verifique os nomes do que está dentro das listas dados1
e dados2
:
names(dados1)
#> [1] "interest_over_time" "interest_by_country" "interest_by_region"
#> [4] "interest_by_dma" "interest_by_city" "related_topics"
#> [7] "related_queries"
names(dados2)
#> [1] "interest_over_time" "interest_by_country" "interest_by_region"
#> [4] "interest_by_dma" "interest_by_city" "related_topics"
#> [7] "related_queries"
O que realmente importa é o conteúdo presente em interest_over_time
. O restante pode ser ignorado para a tua aplicação. Como o termo A
é o termo de maior procura, os resultados de ambos data frames dados1$interest_over_time
e dados2$interest_over_time
estão normalizados em relação a A
. Sendo assim, basta
remover as observações referentes a A
em dados2$interest_over_time
;
juntar as linhas de dados1$interest_over_time
com o que sobrou de dados2$interest_over_time
Minha sugestão de código para fazer isso é a seguinte:
dados1_interest <- dados1$interest_over_time
dados2_interest <- dados2$interest_over_time
dados_finais <-
dados2_interest |>
filter(keyword != "A") |>
bind_rows(dados1_interest)
#> Error in `bind_rows()`:
#> ! Can't combine `..1$hits` <character> and `..2$hits` <integer>.
#> Run `rlang::last_error()` to see where the error occurred.
Perceba que deu errado. Veja o output abaixo para entender porque isso acontece:
glimpse(dados1_interest)
#> Rows: 660
#> Columns: 7
#> $ date <dttm> 2011-01-01, 2011-02-01, 2011-03-01, 2011-04-01, 2011-05-01, 2011-06-0…
#> $ hits <int> 51, 55, 61, 59, 61, 57, 54, 64, 61, 65, 66, 56, 54, 60, 59, 62, 61, 64…
#> $ keyword <chr> "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", …
#> $ geo <chr> "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR"…
#> $ time <chr> "2011-01-01 2021-12-31", "2011-01-01 2021-12-31", "2011-01-01 2021-12-…
#> $ gprop <chr> "web", "web", "web", "web", "web", "web", "web", "web", "web", "web", …
#> $ category <int> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
glimpse(dados2_interest)
#> Rows: 660
#> Columns: 7
#> $ date <dttm> 2011-01-01, 2011-02-01, 2011-03-01, 2011-04-01, 2011-05-01, 2011-06-0…
#> $ hits <chr> "51", "55", "61", "59", "61", "57", "54", "64", "61", "65", "66", "56"…
#> $ keyword <chr> "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", …
#> $ geo <chr> "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR", "BR"…
#> $ time <chr> "2011-01-01 2021-12-31", "2011-01-01 2021-12-31", "2011-01-01 2021-12-…
#> $ gprop <chr> "web", "web", "web", "web", "web", "web", "web", "web", "web", "web", …
#> $ category <int> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
Isso ocorre porque a coluna hits
, para dados1_interest
, é do tipo inteiro, enquanto essa mesma coluna para dados2_interest
é do tipo caractere. Há uma explicação para isso: alguns hits do termo de procura H
deram o resultado <1
, transformando-o assim em algo que não é numérico. O que sugiro fazer aqui é
- converter os resultados
<1
para 0;
- transformar a coluna
hits
em numérico;
- proceder com o primeiro algoritmo que sugeri
Juntando isso, no final temos
dados_finais <-
dados2_interest |>
# remover observacoes A
filter(keyword != "A") |>
# transformar `<1` em 0
mutate(hits = ifelse(hits == "<1", 0, hits)) |>
# transformar hits em numerico
# (daria pra ter feito na linha de cima, mas
# preferi fazer separado para ser didatico)
mutate(hits = as.numeric(hits)) |>
# juntando o resultado com dados_1
bind_rows(dados1_interest)
Pronto. Agora o objeto dados_finais
possui as informações desejadas com os 9 termos de busca de interesse, assumindo que para os fins desejados, <1
possa ser considerado como 0.