1、aggregate()对分组中的每个变量调用tapply()
2、dataframe
tapply()针对数据框进行分组并运算
split()同上,但仅分组,不计算
3、list
lapply()
4、vector、matrix
apply针对矩阵和向量
本博客所有内容是原创,如果转载请注明来源
http://blog.csdn.net/myhaspl/
ggplot基础
1、安装
> install.packages("ggplot2")
测试安装成功与否
library(ggplot2)
> data<-read.table("投资回报.csv",header=TRUE,sep=",")
> names(data)[2:3]<-c("2013年","2014年")
> data
行业 2013年 2014年
1 农、林、牧、渔业 22687 25820
2 采矿业 56946 60139
3 制造业 41650 46431
4 电力、热力、燃气及水生产和供应业 58202 67082
5 建筑业 36483 42072
6 批发和零售业 46340 50308
7 交通运输、仓储和邮政业 53391 57872
> year2013<-data[["2013年"]]
> year2014<-data[["2014年"]]
> 行业<-data[["行业"]]
> 赢利增长率=(year2014-year2013)/year2013
>qplot(year2012,year2013,xlab="2013年",ylab="2014年",colour=行业,size=赢利增长率)
自动换行
splitstr<-function(str,width){
result<-""
start<-1
while (nchar(str)-start>width){
result<-paste(result,substr(str,start,start+width),sep="\n")
start<-start+width
}
paste(result,"\n")
}
> x=matrix(1:20,nrow=4,dimnames=list(c(1:4),c("A","B","C","D","E")))
> x
A B C D E
1 1 5 9 13 17
2 2 6 10 14 18
3 3 7 11 15 19
4 4 8 12 16 20
>