r - 求和 R 中的列时出错(参数的无效 'type'(字符))？

Question

我有以下数据集:

structure(list(Patient_ID = c("1234", "1234", "1234", "1234", 
"1234", "1234", "1234", "1234", "1234"), Unit_Type = c("ABC", 
"ABC", "ABC", "ABC", "ABC", "DEF", "DEF", "DEF", "GHI"), Status = c("Returned", 
"R", "R", "R", "T", "T", 
"T", "T", "T")), class = "data.frame", row.names = c(NA, 
-9L))

并对其进行了以下计算:

df <- df %>%
  count(ID, Unit_Type, Status) %>%
  pivot_wider(names_from = c(Unit, Status), values_from = n)

我想通过 ID 对 'ABC_R' 和 'ABC_T' 求和(我知道示例数据集只有一个唯一的患者 ID，但我的真实数据集有更多)，但我不断收到以下错误消息:

> aggregate(df, by=list(df$ABC_T, df$ABC_R), FUN=sum, na.rm = TRUE)
Error in FUN(X[[i]], ...) : invalid 'type' (character) of argument

Answer 1

我想你在找这个:

您收到错误的原因是您尝试使用您的代码对作为字符列的第一列求和，通过 df[,-1] 进行子集化应该可行:

aggregate(df[,-1], by=list(df$ABC_Transfused, df$ABC_Returned), FUN=sum, na.rm = TRUE)

  Group.1 Group.2 ABC_Returned ABC_Transfused DEF_Transfused GHI_Transfused
1       1       4            4              1              3              1