标签：实战 par mtcars wt main boxplot cex
attach(mtcars)
plot(wt,mpg)
abline(lm(mpg~wt))
title("Regression of MPG on Weight")
detach(mtcars)
函数colors()可以返回所有可用颜色的名称
R中也有多种用于创建连续型颜色向量的函数，包括rainbow()、heat.colors()、terrain.colors()、topo.colors()以及cm.colors()。举例来说，rainbow(10)可以生成10种连续的“彩虹型”颜色。多阶灰度色可使用gray()函数生成。这时要通过一个元素值为0和1之间的向量来指定各颜色的灰度。gray(0:10/10)将生成10阶灰度色。
n<-10
mycolors<-rainbow(n)
pie(rep(1,n),labels=mycolors,col=mycolors)
mygrays<-gray(0:n/n)
pie(rep(1,n),labels=mygrays,col=mygrays)
title("rainbow")
pie(rep(1,n),labels=mygrays,col=mygrays)
文本大小的参数【cex/cex.axis:缩放倍数；cex.lab坐标轴标签的缩放倍数；cex.main/cex.sub标题和副标题的缩放倍数
par(font.lab=3,cex.lab=1.5,font.main=4,cex.main=2)
图形外观实例1
dose<-c(20,30,40,45,60)
drugA<-c(16,20,27,40,60)
drugB<-c(15,18,25,31,40)
opar<-par(no.readonly=TRUE)
par(pin=c(2,3))
par(lwd=2,cex=1.5)
par(cex.axis=0.75,font.axis=3)
plot(dose,drugA,type="b",pch=19,lty=2,col="red")
plot(dose,drugB,type="b",pch=23,lty=6,col="blue",bg="green")
par(opar)
图形外观实例2
plot(dose,drugA,type="b",col="red",lty=2,pch=2,lwd=2,
main="Clinical Trials for DrugA",
sub="This is hypothetical data",
xlab="Dosage",ylab="Drug Response",
xlim=c(0,60),ylim=c(0,70))
图形外观实例3
plot(dose,drugA,type="b",col="red",lty=2,pch=2,lwd=2,xlim=c(0,60),ylim=c(0,70))
title(main="main title",sub="sub-title",xlab="x-axis label",ylab="y-axis label")
数学标注 查阅help(plotmath)
图形的组合1
attach(mtcars)
opar<-par(no.readonly=TRUE)
par(mfrow=c(2,2))
plot(wt,mpg,main="Scatterplot of wt vs.mpg")
plot(wt,disp,main="Scatterplot of wt vs disp")
hist(wt,main="Histogram of wt")
boxplot(wt,main="Boxplot of wt")
par(opar)
detach(mtcars)
图形的组合2
attach(mtcars)
opar<-par(no.readonly=TRUE)
par(mfrow=c(1,3))
boxplot(wt)
boxplot(mpg)
boxplot(disp)
par(opar)
detach(mtcars)
图形的组合3
attach(mtcars)
layout(matrix(c(1,1,2,3),2,2,byrow=TRUE))
boxplot(wt)
boxplot(mpg)
boxplot(disp)
detach(mtcars)
图形的组合4
attach(mtcars)
layout(matrix(c(1,1,2,3),2,2,
byrow=TRUE),width=c(3,1),heights=c(1,2))
boxplot(wt)
boxplot(mpg)
boxplot(disp)
detach(mtcars)
创建leadership数据框
manager<-c(1,2,3,4,5)
data<-c("10/24/08","10/28/08","10/1/08","10/12/08","5/1/09")
country<-c("US","US","UK","UK","UK")
gender<-c("M","F","F","M","F")
age<-c(32,45,25,39,99)
q1<-c(5,3,3,3,2)
q2<-c(4,5,5,3,2)
q3<-c(5,2,5,4,1)
q4<-c(5,5,5,NA,2)
q5<-c(5,5,2,NA,1)
leadership<-data.frame(manager,data,country,gender,age,q1,q2,q3,q4,q5,stringsAsFactors=FALSE)
变量的重命名
1. fix(leadership)
leadership
缺失值
is.na(leadership)
在分析中排除缺失值,na.rm=TRUE选项，可以在计算之前移除缺失值并使用剩余值进行计算
函数na.omit()移除所有含有缺失值的观测
newdata<-na.omit(leadership)
getwd()
apply(x,2,mean)
apply函数的使用格式：
apply(x,MARGIN,FUN) x为数据对象，MARGIN=1表示行，MARGIN=2表示列
mydata<-matrix(rnorm(30),nrow=6)
apply(mydata,1,mean)
apply(mydata,2,mean)
函数t()即可对一个矩阵或数据框进行转置
整合数据
aggregate(x,by,FUN) x待折叠的数据对象，by是一个变量名组成的列表，FUN函数
attach(mtcars)
aggdata<-aggregate(mtcars,by=list(cyl,gear),FUN=mean,na.rm=TRUE)
attach(x)
y<-aggregate(x,by=list(Length,Number),FUN=mean,na.rm=TRUE)
标签：实战,par,mtcars,wt,main,boxplot,cex 来源： https://www.cnblogs.com/anne2214/p/15526088.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。