Início / coding / Perguntas / 79433877
Accepted
JontroPothon
Asked: 2025-02-13 00:58:53 +0800 CST

Ignorando NAs ao agregar vetores de caracteres

  • 772

Eu tenho esse conjunto de dados muito simples.

id <- c(12, 13, 26, 45, 55, 66)
group <- c("one", "one", "two", "two", "three", "three")
txt <- c("quick", "brown", NA, "fox", NA, NA)

df <- data.frame(id, group, txt)
df
> df
  id group   txt
1 12   one quick
2 13   one brown
3 26   two  <NA>
4 45   two   fox
5 55 three  <NA>
6 66 three  <NA>

Quero agregar por grupo. Estou tentando isso,

df |> 
  dplyr::group_by(group) |> 
  dplyr::summarise(txt = paste(txt, collapse = ", "))

# A tibble: 3 × 2
  group txt         
  <chr> <chr>       
1 one   quick, brown
2 three NA, NA      
3 two   NA, fox

Como vemos, eles NAsão revelados como personagens. Em segundo lugar, três vem depois de um na coluna do grupo. Eu quero ter algo assim,

  group          txt
1   one quick, brown
2   two          fox
3 three         <NA>

Alguma ideia de como resolver esse problema simples?

3 respostas

  1. Best Answer

    Você pode lidar com isso sozinho por código -

    library(dplyr)

df |> 
  dplyr::summarise(txt = if(all(is.na(txt))) NA else toString(na.omit(txt)), .by = group)

   group          txt
#1   one quick, brown
#2   two          fox
#3 three         <NA>

    Ou use hablar::max_o que faz a mesma coisa.

    df |> 
  dplyr::summarise(txt = toString(hablar::max_(txt)), .by = group)
    • 2

  2. Base R

    aggregate(txt~group, df, na.action = 'na.pass', 
          FUN = \(i) {i = na.omit(unique(i)); if (length(i)) i else NA})[
            order(unique(df$group)), ]

      group          txt
1   one quick, brown
3   two          fox
2 three           NA
    • 2

  3. Verifique se todos os valores são NA e, em caso positivo, retorne NA; caso contrário, remova os NA e use toString nos elementos restantes.

    library(dplyr)

df %>%
  summarize(txt = if (all(is.na(txt))) NA else toString(na.omit(txt)), .by=group)

    Uma variação dessa abordagem, que é um pouco mais compacta, é calcular toString como acima, mas então usar Find para retorná-lo ou NULL se for uma string vazia. ... %||% NAEm seguida, converte NULL para NA.

    df %>%
  summarize(txt = Find(nzchar, toString(na.omit(txt))) %||% NA, .by = group)
    • 0

relate perguntas