分组计算以及数据透视表

发布于

数据透视表

数据透视表excel中有这个分析数据的功能，在R语言中同样可以实现。对一个表格分组计算相应的特征，比如不同国家所有城市的人口总数等。R提供了apply系列函数，包括apply，lapply，sapply，tapply，vapply等，可以对二维数据进行计算，并且可以分组进行统计，类似于Excel中的数据透视表功能。

代码语言：javascript
复制
rm(list = ls())
x <- read.xlsx('2015.xlsx')
head(x)
is.factor(x$Province)
table(x$Province)
sort(table(x$Province))
sort(table(x$Province),decreasing = T)
barplot(sort(table(x$Province),decreasing = T),las = 2)
barplot(sort(table(x$Province),decreasing = T),las = 2,col = 'orange',border = F)
abline(h =2)
abline(h =4)
abline(h =6)
abline(h =8)
abline(h =c(10,12,14))
tapply(x$Income,x$Province,mean)
aggregate(x$Income,by=list(x$Province),mean)

state.center

lapply(state.center,sum)

sapply(state.center,sum)

table(state.division)

table(state.region)


tapply(state.x77$Income, state.division, mean)


Error in state.x77Income :  operator is invalid for atomic vectors


class(state.x77)

state.x77 <- as.data.frame(state.x77)

tapply(state.x77$Income, state.division, mean)

sort(tapply(state.x77$Income, state.division, mean))

sort(tapply(state.x77[size=5][b]数据透视表 [/b][/size]

R提供了apply系列函数，包括apply，lapply，sapply，tapply，vapply等，可以对二维数据进行计算，并且可以分组进行统计，类似于Excel中的数据透视表功能。

Life Exp`, state.division, mean))

sort(tapply(state.x77$Murder, state.division, mean))

写在最后：有时间我们会努力更新的。大家互动交流可以前去论坛，地址在下面，复制去浏览器即可访问，弥补下公众号没有留言功能的缺憾。原地址暂未启用（bioinfoer.com）。

代码语言：javascript
复制
sx.voiceclouds.cn

有些板块也可以预设为大家日常趣事的分享等，欢迎大家来提建议。

#apply#com#excel#lapply#sapply