Início / coding / Perguntas / 79337384
Accepted
JontroPothon
Asked: 2025-01-08 05:21:45 +0800 CST

Agregar por grupo em valores lógicos

  • 772

Eu tenho este quadro de dados:

dataf <- tibble(A = sample(c(TRUE, FALSE), 10, replace = T), 
+                B = sample(c(TRUE, FALSE), 10, replace = T), 
+                C = sample(c(TRUE, FALSE), 10, replace = T), 
+                group = c(rep("grp1", 3), rep("grp2", 3), rep("grp3", 4)))

> dataf
# A tibble: 10 × 4
   A     B     C     group
   <lgl> <lgl> <lgl> <chr>
 1 TRUE  TRUE  TRUE  grp1 
 2 FALSE TRUE  TRUE  grp1 
 3 TRUE  TRUE  TRUE  grp1 
 4 TRUE  TRUE  TRUE  grp2 
 5 FALSE TRUE  TRUE  grp2 
 6 TRUE  FALSE TRUE  grp2 
 7 TRUE  FALSE FALSE grp3 
 8 TRUE  FALSE TRUE  grp3 
 9 FALSE FALSE TRUE  grp3 
10 FALSE FALSE  FALSE grp3

Quero agregar as linhas pelo grupo de variáveis. Se em uma coluna existir um TRUE, a TRUEestará lá, caso contrário FALSE. Por exemplo, na grp1coluna A tem TRUE, FALSEe TRUE. Como tem um TRUE, o agregado deve ser TRUEpara grp1a coluna A. Da mesma forma, grp3, a coluna B deve, FALSEpois não tem TRUEnela.

O quadro de dados resultante deve ficar assim:

 A     B     C     groupp
  <lgl> <lgl> <lgl> <chr> 
1 TRUE  TRUE  TRUE  grp1  
2 TRUE  TRUE  TRUE grp2  
3 TRUE  FALSE  TRUE  grp3

Alguma ideia de como conseguir isso?

2 respostas

  1. Best Answer

    1) dplyr Usando a entrada na Nota no final use acrosswith any. No final mova a groupcoluna para ser a última coluna.

    library(dplyr)

dataf %>%
  summarize(across(where(is.logical), any), .by = group) %>%
  relocate(group, .after = last_col())

    dando

         A     B    C group
1 TRUE  TRUE TRUE  grp1
2 TRUE  TRUE TRUE  grp2
3 TRUE FALSE TRUE  grp3

    2) Base R ou somente com base R:

    aggregate(. ~ group, dataf, any)[c(2:4, 1)]

    dando

         A     B    C group
1 TRUE  TRUE TRUE  grp1
2 TRUE  TRUE TRUE  grp2
3 TRUE FALSE TRUE  grp3

    Observação

    dataf produzido pelo código na questão não é reproduzível, pois usa números aleatórios, set.seed(...)portanto usamos o seguinte.

    Lines <- " A     B     C     group
 1 TRUE  TRUE  TRUE  grp1 
 2 FALSE TRUE  TRUE  grp1 
 3 TRUE  TRUE  TRUE  grp1 
 4 TRUE  TRUE  TRUE  grp2 
 5 FALSE TRUE  TRUE  grp2 
 6 TRUE  FALSE TRUE  grp2 
 7 TRUE  FALSE FALSE grp3 
 8 TRUE  FALSE TRUE  grp3 
 9 FALSE FALSE TRUE  grp3 
10 FALSE FALSE  FALSE grp3 "
dataf <- read.table(text = Lines)
    • 2

  2. Você pode usarreframe

    dataf %>%
  reframe(across(everything(), any), .by = group) %>%
  `[`(names(dataf))

    o que dá

         A     B    C group
1 TRUE  TRUE TRUE  grp1
2 TRUE  TRUE TRUE  grp2
3 TRUE FALSE TRUE  grp3
    • 0

relate perguntas