在 R 中，将相同 ID 的多个逻辑行折叠成 1 行

Question

问题：为了对R中的处方药使用情况做一些调查分析，我需要将同一个人（ID）的多行合二为一，如果有说的话，注明TRUE rows 中有TRUE。

这是数据：

df <- data.frame(ID = c("a","a","a","a","a","a"), 
                cardiovasc = c(T,T,T,T,T,T), 
                beta_blockers = c(F,F,F,F,F,F),
                antibiotics = c(T,F,F,F,F,F),
                stringsAsFactors=FALSE)

这是我想要的样子：

goal <- data.frame(ID = c("a"),
                    cardiovasc = c(T), 
                    beta_blockers = c(F),
                    antibiotics = c(T),
                    stringsAsFactors=FALSE)

如您所知，尽管 df$antibiotics 在数据集中只有 1 个 TRUE，但当 ID 折叠成一行时，我希望它算作 TRUE。

我的尝试：

主要是，我一直在努力解决this post，虽然我觉得我很接近，但我还是得到了一个错误。这是我的尝试：

df <- df[, lapply(.SD, paste0, collapse=""), by=ID]

产生unused argument (by = ID)。我从同一篇文章中尝试了另一种方法，但这更加混乱，需要我将数据设为data.table。我需要保存为data.frame。

有什么想法吗？

Answer 1

我们可以使用any 代替paste，因为any 将检查列中的任何TRUE 元素，按“ID”分组

library(data.table)
setDT(df)[, lapply(.SD, any), ID]

-输出

#   ID cardiovasc beta_blockers antibiotics
#1:  a       TRUE         FALSE        TRUE

Answer 2

或者你可以使用这个tidyverse 解决方案：

library(dplyr)

df %>%
  group_by(ID) %>%
  summarise(across(cardiovasc:antibiotics, ~ any(.x)))

# A tibble: 1 x 4
  ID    cardiovasc beta_blockers antibiotics
  <chr> <lgl>      <lgl>         <lgl>      
1 a     TRUE       FALSE         TRUE

更新 感谢亲爱的@Ray 提出了一个非常可能的场景： 如果列值是 1 和 0 而不是 TRUE 和 FALSE 并且还考虑到其中存在 NA 值，我们可以使用以下解决方案：

df %>%
  group_by(ID) %>%
  summarise(across(cardiovasc:antibiotics, ~ any(.x[!is.na(.x)] == 1)))

# A tibble: 1 x 4
  ID    cardiovasc beta_blockers antibiotics
  <chr> <lgl>      <lgl>         <lgl>      
1 a     TRUE       FALSE         TRUE  

数据

df <- data.frame(ID = c("a","a","a","a","a","a"), 
                 cardiovasc = c(1,1,1,1,1,1), 
                 beta_blockers = c(0,0,0,0,0,0),
                 antibiotics = c(1,0,0,0,0,0),
                 stringsAsFactors=FALSE)