R语言常用命令：
0. 安装R语言
cran.r-project.org
一． 调入软件包
1. 调入软件包
> library(数据文件)
2. 下载软件包
➢ install.packages(“软件包名”)
可以选择China(HeFei)
二． 文件处理
1. 输入文件
> x<-data.frame()
> y<-edit(x)
2. 存储文件
> save(y,file=”文件名”)
3. 查询目录
> getwd()
4. 设置目录
> setwd(“d:/windows”)
5. 调入文件
> load(“文件名”)
6. 查看文件数据
> head(y)
7. 画图
1) 散点图
> attach(mtcars)
> plot(wt,mpg,main='main title',sub='sub title',xlab='x axis',ylab='y axis')
> abline(lm(mpg~wt))
#
> library(ggplot2)
> library(gcookbook)
>
p<-ggplot(subset(countries,Year==2009&healthexp>2000),aes(x=healthexp,y=infmortality))+geom_point()
> p<-p+geom_text(aes(label=Name),size=4)
> p
#
> library(ggplot2)
> library(gcookbook)
>
ggplot(heightweight,aes(x=ageYear,y=heightIn,shape=sex,colour=sex))+geom_point()
2）折线图
> a<-c(20,30,45,60)
> b<-c(16,20,27,40,60)
> plot(a,b,type='b',main='main title',sub='sub title',xlab='x axis',ylab='y axis')
#
> library(ggplot2)
> library(gcookbook)
> p<-ggplot(BOD,aes(x=Time,y=demand))+geom_line()
> p<-p+geom_point(size=4,shape=22,colour='darkred',fill='pink')
> p
3)直方图
> attach(mtcars)
> hist(mpg,main='main title',sub='sub title',xlab='x axis',ylab='y axis')
> hist(mpg,breaks=12,col=’blue’,main='main title',sub='sub title',xlab='x axis',ylab='y axis')
4) 饼图
> sl<-c(10,12,4,16,8)
> lb<-c(‘US’,’UK’,’AUS’,’GM’,’FR’)
> pie(sl,lb,main='main title')
5) 3D饼图
> sl<-c(10,12,4,16,8)
> lb<-c(‘US’,’UK’,’AUS’,’GM’,’FR’)
> library(plotrix)
> pie3D(sl,labels=lb,explode=0.1,main='main title')
6) 条形图
> library(vcd)
> c<-table(Arthritis$Improved)
> barplot(c,main='bar plot')
> barplot(c,main='bar plot',horiz=TRUE)
分组条形图
> c<-table(Arthritis$Improved,Arthritis$Treatment)
> barplot(c,main='bar plot',col=c(‘red’,’yellow’,’blue’))
#
> library(ggplot2)
> library(gcookbook)
> p<-ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))
> p<-p+geom_bar(stat='identity',position='dodge')
>
p<-p+geom_text(aes(label=Weight),vjust=1.5,colour='white',position=position_dodge(.9),size=3)
> p
7)箱线图
> boxplot(mpg,main='box plot')
8)三维散点图
> attach(mtcars)
> library(scatterplot3d)
> scatterplot3d(wt,disp,mpg,main='main title')
> library(Rcmdr)
> scatter3d(wt,disp,mpg)
9)三维散点图动画
> library(rgl)
> plot3d(wt,disp,mpg,type='s',size=0.75,lit=TRUE)
> play3d(spin3d())
因篇幅问题不能全部显示，请点此查看更多更全内容