Tenho uma lista que contém detalhes do tráfego da web.
No processo de retangularização das listas, gostaria de acrescentar um valor a cada vetor nas sublistas nomeadas, que é o nome real do vetor da sublista.
Se eu usar isso por exemplo:
test_list %>%
map_depth(2, \(x) append(x, names(x)))
... Acabo adicionando todos os nomes dos elementos do vetor, enquanto quero acrescentar um nome de elemento de "campaign_type" com o valor "manual_campaign" ou "google_ads_campaign", já que esses são os únicos 2 nomes para esses vetores de sublista.
Com sucesso, a primeira sublista teria estes elementos:
- campanha_id: NA
- nome_da_campanha: '(orgânico)'
- ...
- tática_de_marketing : NA
- tipo_de_campanha: "campanha_manual"
Tenho usado purrre a mapfamília para retangularização, então tanto a base R quanto a base R tidyversesão bem-vindas.
Obrigado.
Dados Reprex:
test_list <- structure(list(list(manual_campaign = list(campaign_id = NA_character_,
campaign_name = "(organic)", source = "bing", medium = "organic",
term = "(not provided)", content = "(not set)", source_platform = NA_character_,
creative_format = NA_character_, marketing_tactic = NA_character_),
google_ads_campaign = list(NULL, NULL, NULL, NULL, NULL,
NULL)), list(manual_campaign = list(campaign_id = NA_character_,
campaign_name = "(referral)", source = "Google", medium = "My Campaign",
term = "(not set)", content = "(not set)", source_platform = NA_character_,
creative_format = NA_character_, marketing_tactic = NA_character_),
google_ads_campaign = list(customer_id = "1111", account_name = "My Account",
campaign_id = "2222", campaign_name = "My Campaign Name",
ad_group_id = "3333", ad_group_name = "My Adgroup"))))```