数学之路-R语言备忘（1）

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
>