需要帮助将 Tidyr 的 Spread 合并到一个输出具有分组计数的数据帧列表的函数中

Question

library(tidyverse)

使用底部的样本数据，我想找到 Gender 和 FP 变量的计数，然后使用 tidyr::spread() 传播这些变量。我试图通过创建一个数据框列表来做到这一点，一个用于性别计数，一个用于 FP 计数。我这样做的原因是最终 cbind 两个数据帧。但是，我无法将 tidyr::spread 合并到我的函数中。

下面的函数创建了一个包含两个数据帧的列表，其中包含 Gender 和 FP 的计数，但计数并未“传播”。

  group_by_quo=quos(Gender,FP)

 DF2<-map(group_by_quo,~DF%>%
    group_by(Code,!!.x)%>%
    summarise(n=n()))  

如果我添加 tidyr::spread，它就不起作用。我不确定如何合并它，因为列表中的每个数据框都有不同的变量。

group_by_quo=quos(Gender,FP)

 DF2<-map(group_by_quo,~DF%>%
    group_by(Code,!!.x)%>%
    summarise(n=n()))%>%
    spread(!!.x,n) 

任何帮助将不胜感激！

示例代码：

Subject<-c("Subject1","Subject2","Subject1","Subject3","Subject3","Subject4","Subject2","Subject1","Subject2","Subject4","Subject3","Subject4")
Code<-c("AAA","BBB","AAA","CCC","CCC","DDD","BBB","AAA","BBB","DDD","CCC","DDD")
Code2<-c("AAA2","BBB2","AAA2","CCC2","CCC2","DDD2","BBB2","AAA2","BBB2","DDD2","CCC2","DDD2")
Gender<-c("Male","Male","Female","Male","Female","Female","Female","Male","Male","Male","Male","Male")
FP<-c("F","P","P","P","F","F","F","F","F","F","F","F")
DF<-data_frame(Subject,Code,Code2,Gender,FP)

Answer 1

我认为你放错了右括号。这段代码对我有用：

library(tidyverse)

Subject<-c("Subject1","Subject2","Subject1","Subject3","Subject3","Subject4","Subject2","Subject1","Subject2","Subject4","Subject3","Subject4")
Code<-c("AAA","BBB","AAA","CCC","CCC","DDD","BBB","AAA","BBB","DDD","CCC","DDD")
Code2<-c("AAA2","BBB2","AAA2","CCC2","CCC2","DDD2","BBB2","AAA2","BBB2","DDD2","CCC2","DDD2")
Gender<-c("Male","Male","Female","Male","Female","Female","Female","Male","Male","Male","Male","Male")
FP<-c("F","P","P","P","F","F","F","F","F","F","F","F")
DF<-data_frame(Subject,Code,Code2,Gender,FP)

group_by_quo <- quos(Gender, FP)

DF2 <- map(group_by_quo,
  ~DF %>%
    group_by(Code,!!.x) %>%
    summarise(n=n()) %>%
    spread(!!.x,n))

最后一部分使用count 更加简洁：

DF2 <- map(group_by_quo,
  ~DF %>%
    count(Code,!!.x) %>%
    spread(!!.x,n))

通过使用count，也可以删除不必要的分组信息。