在 R 中汇总和转置行到列

编程问答 2022-06-02

问题描述

这是我的输入数据：

a ---> ['h','e','l','Q']

b ---> ['h','o']

我想输出这样的表格：

程序 平均年龄 ENG 韩国 女性 男
A
B
C

其中 MEAN AGE 是平均年龄，ENG、KOR、FEMALE、MALE 是计数。

我曾尝试使用 dplyr 和 t() 但在这种情况下，我觉得我完全不知道步骤是什么（我的第一篇文章，新的）。提前致谢！

解决方法

您可以采取以下方法：

library(dplyr)

df %>%
  group_by(Program) %>%
  summarise(
    `Mean Age` = mean(Age),ENG = sum(Language=="Eng"),KOR = sum(Language=="Kor"),Female = sum(Gender=="F"),Male = sum(Gender=="M"),.groups="drop"
  )

输出：

# A tibble: 3 x 6
  Program `Mean Age`   ENG   KOR Female  Male
  <chr>        <dbl> <int> <int>  <int> <int>
1 A             23.3     2     1      2     1
2 B             22       0     1      0     2
3 C             53       0     0      1     0

注意： .groups 是 dplyr 函数的特殊变量。这里使用的方式等价于计算后使用%>% ungroup()。如果您在 summarise 函数中键入任何其他名称，它会假定它是一个列名称。

,

在基础 R 中，您可以：

df1 <- cbind(df[1:2],stack(df[3:4])[-2])
cbind(aggregate(Age~Program,df,mean),as.data.frame.matrix(table(df1[-2])))
  Program      Age Eng F Kor M Other
A       A 23.33333   2 2   1 1     0
B       B 22.00000   0 0   1 2     1
C       C 53.00000   0 1   0 0     1
dataframedplyrrrsummarytranspose