R 如何通过school-tapply函数错误创建平均ses？

我有一个

dataframe

列出

studentnumber您可以使用
dplyr
包

library(dplyr)

# Calculate the mean socialeconomicstatus per schoolnumber.
mydata2 <- mydata %>% 
            group_by(schoolnumber) %>%
            summarise(meansocialeconomicstatus = mean(ses))

# Join the mean socialeconomicstatus back to the original dataset based on schoolnumber.
left_join(mydata,mydata2,by="schoolnumber")

库（dplyr）
#计算每个学校的平均社会经济状况。
mydata2%
分组（学校数量）%>%
总结（平均社会经济状态=平均值）
#将平均社会经济状态加入基于schoolnumber的原始数据集。
左联合（mydata，mydata2，by=“schoolnumber”）
使用（mydata，ave（ses，schoolnumber，FUN=mean））
有50个或更多警告（使用warnings（）查看前50个）：（我也有同样的问题，它不会将它们连接在一起，因为其中一个的级别比另一个低很多。您是否尝试了与上面所述完全相同的方法？数据帧的大小不必相同。例如，运行
左联合（iris，iris[1，]，by=“Species”）
。如果您需要更具体的帮助，请发布一个可复制的示例。请仔细检查我是如何编码的-我错误地截取了左侧连接-现在它可以工作了！太棒了。谢谢！
library(dplyr)

# Calculate the mean socialeconomicstatus per schoolnumber.
mydata2 <- mydata %>% 
            group_by(schoolnumber) %>%
            summarise(meansocialeconomicstatus = mean(ses))

# Join the mean socialeconomicstatus back to the original dataset based on schoolnumber.
left_join(mydata,mydata2,by="schoolnumber")