代码之家 › 专栏 › 技术社区 › Dee V

根据R中其余列的唯一性聚合一列

aggregate shiny r

Dee V · 技术社区 · 6 年前

我想根据其余列的唯一性聚合freq列。我通常使用

 aggregate(freq~var1+var2+var3, df, sum)

但在这种情况下,变量是未知的,因为用户将使用shiny中的下拉菜单选择变量

DISEASE Gender  Age Race    Date       Freq
Campy       F   32  ASIAN   1/6/2014    10
Campy       M   52  WHITE   1/2/2014    15
Campy       M   63  WHITE   1/3/2014    56
Chlamydia   F   24  LATINO  1/8/2014    32
Chlamydia   F   32  AA      1/3/2014    52

所以在我的例子中,用户会选择前四列中的任何一列,例如,有人可能只选择疾病,然后我需要按疾病聚合频率,有人可能选择疾病和性别,同样

2 回复 | 直到 6 年前

colin 6 年前

用户提供要聚合为向量的列名:

user.cols <- c("DISEASE",'Age')

您可以通过这些列在数据帧中创建唯一的向量

df$unq <- apply( df[ , user.cols ] , 1 , paste , collapse = "-" )

继续并按唯一列聚合:

output <- aggregate(freq~unq, df, sum)

Parfait 6 年前

考虑使用 paste(..., collapse=...) :

dynamic_agg <- function(vars) {
  f <- as.formula(paste0("Freq~", paste(vars, collapse="+")))
  aggregate(f, df, FUN=sum)
}  

dynamic_agg(c("Date"))
#       Date Freq
# 1 1/2/2014   15
# 2 1/3/2014  108
# 3 1/6/2014   10
# 4 1/8/2014   32

dynamic_agg(c("Gender", "Date"))
#   Gender     Date Freq
# 1      M 1/2/2014   15
# 2      F 1/3/2014   52
# 3      M 1/3/2014   56
# 4      F 1/6/2014   10
# 5      F 1/8/2014   32

dynamic_agg(c("DISEASE", "Gender", "Date"))
#     DISEASE Gender     Date Freq
# 1     Campy      M 1/2/2014   15
# 2 Chlamydia      F 1/3/2014   52
# 3     Campy      M 1/3/2014   56
# 4     Campy      F 1/6/2014   10
# 5 Chlamydia      F 1/8/2014   32

推荐文章

Adrien Chapelet · MongoDB聚合与阵列内的外部模型

2 年前

In0cybe · 仅具有多行的组的和值

7 年前

Kathiravan Meeran · R-使用时间条件以及不同列上的其他条件计算平均值

7 年前

Oleg Melnikov · SQL Server:在单个查询中计算组大小和组数

7 年前

Rnovice · 根据[重复]列中的唯一值在R中聚合

7 年前

Sung min Yang · 如何创建均值+标准差数据。框架

7 年前

ajax2000 · 基于R中现有列中的组创建新列

7 年前

Collective Action · 如何按组聚合并将列添加到数据帧?[副本]

7 年前

Guidouil · MongoDB聚合,如何在组管道中添加设置数组的每个元素

7 年前

Spencer Trinh · 如何根据标签匹配来组织和移动数据行?

7 年前