Início / coding / Perguntas / 79241928
Accepted
DeduciveR
Asked: 2024-12-01 23:41:15 +0800 CST

Como anexar o nome de um vetor de sublista como um elemento nomeado dentro do vetor

  • 772

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"))))```

4 respostas

  1. Best Answer

    Aqui está outra abordagem que permite incluir os nomes da lista de nós diretamente ao desaninhar a lista em um data.frame usando a opção how = "bind"no rrapply()pacote from rrapply(extensão de base rapply()):

    rrapply::rrapply(
  test_list, 
  condition = Negate(is.null),      ## skip NULLs
  how = "bind",                     ## bind to wide data.frame
  options = list(namecols = TRUE)   ## include list names
)

#>   L1                  L2 campaign_id    campaign_name source      medium
#> 1  1     manual_campaign        <NA>        (organic)   bing     organic
#> 2  2     manual_campaign        <NA>       (referral) Google My Campaign
#> 3  2 google_ads_campaign        2222 My Campaign Name   <NA>        <NA>
#>             term   content source_platform creative_format marketing_tactic
#> 1 (not provided) (not set)            <NA>            <NA>             <NA>
#> 2      (not set) (not set)            <NA>            <NA>             <NA>
#> 3           <NA>      <NA>            <NA>            <NA>             <NA>
#>   customer_id account_name ad_group_id ad_group_name
#> 1        <NA>         <NA>        <NA>          <NA>
#> 2        <NA>         <NA>        <NA>          <NA>
#> 3        1111   My Account        3333    My Adgroup
    • 2

  2. Uma solução poderia ser usar map_deptho nível 1 e chamar mapplya função na lista aninhada para obter o que você pediu:

    test_list <-map_depth(test_list, 1, \(.x) mapply(\(x, y) {
  names(y)<-"campaign_type"
  c(x,y)
}
, x=.x
, y=names(.x)
, SIMPLIFY = FALSE)
)

    Em seguida, vincular e colocar tudo no quadro de dados:

    new_dat<-test_list %>% 
  map_depth(2, vctrs::list_drop_empty) %>%
  map_depth(1,  bind_rows) %>%
  bind_rows(.id = "mainlist") %>% 
  relocate(campaign_type, .after = mainlist)

    saída:

      mainlist       campaign_type campaign_id    campaign_name source      medium           term   content source_platform creative_format marketing_tactic customer_id account_name ad_group_id ad_group_name
1        1     manual_campaign        <NA>        (organic)   bing     organic (not provided) (not set)            <NA>            <NA>             <NA>        <NA>         <NA>        <NA>          <NA>
2        1 google_ads_campaign        <NA>             <NA>   <NA>        <NA>           <NA>      <NA>            <NA>            <NA>             <NA>        <NA>         <NA>        <NA>          <NA>
3        2     manual_campaign        <NA>       (referral) Google My Campaign      (not set) (not set)            <NA>            <NA>             <NA>        <NA>         <NA>        <NA>          <NA>
4        2 google_ads_campaign        2222 My Campaign Name   <NA>        <NA>           <NA>      <NA>            <NA>            <NA>             <NA>        1111   My Account        3333    My Adgroup

    Espero que isso possa ajudar, mas com certeza existem outras soluções também.

    • 1

  3. {collapse}é poderoso. unlist2d()tem um recursiveargumento - definido como TRUE(padrão).

    collapse::unlist2d(test_list, idcols = paste0("L", 1:3)) |>
  tidyr::pivot_wider(id_cols = L1:L2, names_from = L3, values_from = V1)

    # A tibble: 3 × 15
     L1 L2       campaign_id campaign_name source medium term  content source_platform creative_format marketing_tactic customer_id account_name ad_group_id ad_group_name
  <int> <chr>    <chr>       <chr>         <chr>  <chr>  <chr> <chr>   <chr>           <chr>           <chr>            <chr>       <chr>        <chr>       <chr>        
1     1 manual_… NA          (organic)     bing   organ… (not… (not s… NA              NA              NA               NA          NA           NA          NA           
2     2 manual_… NA          (referral)    Google My Ca… (not… (not s… NA              NA              NA               NA          NA           NA          NA           
3     2 google_… 2222        My Campaign … NA     NA     NA    NA      NA              NA              NA               1111        My Account   3333        My Adgroup

    Editar. O formato amplo pode não ser necessário.

    • 1

  4. Obtendo os nomes genericamente extraindo os nomes de comprimento máximo de todas as sublistas

    nms <- data.frame(sapply(purrr::map_depth(test_list, 2, names), c)) %>% 
  mutate(id = row_number()) %>% 
  pivot_longer(-id) %>% 
  select(-name) %>% 
  slice(which.max(lengths(value)), .by = id) %>% 
  select(-id) %>% 
  c(use.names=F) %>% 
  unlist(recursive=F)

    Atribuindo os nomes pelos nomes de nível superior manual_campaign e google_ads_campaign

    new_list <- lapply(test_list, \(x) 
  sapply(names(x), \(y) {
    names(x[[y]]) <- nms[[y]]
    x[[y]]
  }))

    Finalmente substituindo NULLporque isso pode causar problemas ao tentar acessar os elementos

    new_list <- purrr::map_depth(new_list, 3, \(x) ifelse(length(x) == 0, NA, x))
    • 0

relate perguntas