数据透视表
数据透视表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.x77$Income : $ 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有些板块也可以预设为大家日常趣事的分享等，欢迎大家来提建议。
