代码之家 › 专栏 › 技术社区 › Andy Carlson

统计分组数据帧中找到的所有值

grouping dplyr r

Andy Carlson · 技术社区 · 8 年前

假设我有一些人口统计数据

demographic.data <- data.frame(nation=c('us', 'us', 'us', 'us', 'us', 'china', 'china', 'china'),
                               religion=c('christ', 'budhist', 'christ', 'jew', 'jew', 'christ', 'budhist', 'budhist'))

#  nation religion
#1     us   christ
#2     us  budhist
#3     us   christ
#4     us      jew
#5     us      jew
#6  china   christ
#7  china  budhist
#8  china  budhist

我想计算每个国家宗教的A质量函数。所以我能够做一些像 group_by() 然后由一群 sum() S.

religion.distributions <- demographic.data %>%
  group_by(nation) %>%
  summarise(n       = n(),
            christ  = sum(religion == 'christ'),
            jew     = sum(religion == 'jew'),
            budhist = sum(religion == 'budhist'))

#  nation     n christ   jew budhist
#
#1 china      3      1     0       2
#2 us         5      2     2       1

虽然这对这些数据产生了正确的结果,但问题是我必须硬编码我想总结的宗教。如果数据中出现任何新的宗教,这将是一个问题。

有没有办法自动在每一组中,每种宗教的计数都有列吗?它应该能够查看 religion 列并开始计数。使用 dplyr 管道将是最优雅的。

1 回复 | 直到 8 年前

akrun 8 年前

我们可以利用 spread 具有 count

library(tidyverse)
demographic.data %>% 
    group_by(nation) %>% 
    mutate(n = n()) %>% 
    count(nation, religion, n) %>% 
    spread(religion, nn, fill = 0)
# A tibble: 2 x 5
# Groups:   nation [2]
#  nation     n budhist christ   jew
#  <fct>  <int>   <dbl>  <dbl> <dbl>
#1 china      3       2      1     0
#2 us         5       1      2     2

推荐文章

MadelineJC · group_by在R中按顺序排列数字

4 年前

John Doe · 循环遍历数组并分配新数组的键

8 年前

Pavel · 按键对XML元素分组

8 年前

RBrook · 如何利用C#(linq)生成困难的组?

8 年前

user · 使用LAG、FIRST\U值等构建组

8 年前

ReeceAPoole · 如何根据Python 3中的键值对连续的元素值进行分组?

8 年前

sinDizzy · 正则表达式将文本块与中间的关键短语匹配

8 年前

HT121 · 根据条件更新分组数据中的行并删除几行

8 年前

JY078 · python在列表中分组字符串

8 年前

artek · 基于公共密钥将多个json对象分组

8 年前