双组和

Question

Ciao，我有两栏。每行代表一个学生。第一列告诉学生该课程。第二列告诉该学生是否通过了考试。

这是我的复制示例。 这是我现在拥有的数据：

a=c("A","A","A","A","B","B","B","C","C")
b=c(0,0,1,0,0,0,0,1,1)
mydata=data.frame(a,b)
names(mydata)=c("CLASS","PASSED")

这是我想要获得的数据：

a1=c("A","B","C")
b1=c(4,3,2)
c1=c(1,0,2)
mydataWANT=data.frame(a1,b1,c1)
names(mydataWANT)=c("CLASS","SIZE","PASSED")

这是我尝试使用dplyr软件包

mydataWANT <- data.frame(mydata %>% 
  group_by(CLASS,PASSED) %>%
  summarise(N = n()))

但是它没有产生期望的输出。