分组计算以及数据透视表

生信喵

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

1. rm(list = ls())
   
2. x <- read.xlsx('2015.xlsx')
   
3. head(x)
   
4. is.factor(x$Province)
   
5. table(x$Province)
   
6. sort(table(x$Province))
   
7. sort(table(x$Province),decreasing = T)
   
8. barplot(sort(table(x$Province),decreasing = T),las = 2)
   
9. barplot(sort(table(x$Province),decreasing = T),las = 2,col = 'orange',border = F)
   
10. abline(h =2)
    
11. abline(h =4)
    
12. abline(h =6)
    
13. abline(h =8)
    
14. abline(h =c(10,12,14))
    
15. tapply(x$Income,x$Province,mean)
    
16. aggregate(x$Income,by=list(x$Province),mean)
    
17. 
    
18. state.center
    
19. lapply(state.center,sum)
    
20. sapply(state.center,sum)
    
21. table(state.division)
    
22. table(state.region)
    
23. 
    
24. tapply(state.x77$Income, state.division, mean)
    
25. # Error in state.x77$Income : $ operator is invalid for atomic vectors
    
26. class(state.x77)
    
27. state.x77 <- as.data.frame(state.x77)
    
28. tapply(state.x77$Income, state.division, mean)
    
29. sort(tapply(state.x77$Income, state.division, mean))
    
30. sort(tapply(state.x77[size=5][b]数据透视表 [/b][/size]
    
31.        R提供了apply系列函数，包括apply，lapply，sapply，tapply，vapply等，可以对二维数据进行计算，并且可以分组进行统计，类似于Excel中的数据透视表功能。
    
32. Life Exp`, state.division, mean))
    
33. sort(tapply(state.x77$Murder, state.division, mean))

复制代码