R语言-绘图1

常用图形参数

下面展示一些 常用图形参数的代码。

#3.1常用图形参数
#3.1.1 颜色
#对women数据集绘制散点图，并用红色表示散点
head(women) 
nrow(women)
str(women)
?plot
plot(women,col="blue") #通过颜色名称
plot(women,col=554)#通过颜色下标
plot(women,col="#FF0000") #通过十六进制的颜色值
mycolor <- rgb(red=0,green=0,blue=255,max=255)
plot(women,col=mycolor)#通过RGB值

#对其他图形参数颜色进行设置
plot(women,main="身高 vs 体重 散点图",sub="数据来源:women数据集",
     col="red",col.main="green",col.sub="blue",
     col.axis="grey",col.lab="yellow")
colors()

#主题颜色
#par(mfrow=c(3,2))
?barplot
barplot(rep(1,7),col=rainbow(7),main="barplot(rep(1,7),col=rainbow(7))")
barplot(rep(1,7),col=heat.colors(7),main="barplot(rep(1,7),col=heat.colors(7))")
barplot(rep(1,7),col=terrain.colors(7),main="barplot(rep(1,7),col=terrain.colors(7))")
barplot(rep(1,7),col=topo.colors(7),main="barplot(rep(1,7),col=topo.colors(7))")
barplot(rep(1,7),col=cm.colors(7),main="barplot(rep(1,7),col=cm.colors(7))")
#par(mfrow=c(1,1))

#3.1.2文字元素
#字体
plot(0:4,type="n",axes = F ,xlab = NA ,ylab = NA)
plot(0:4,type="n",axes = T ,xlab = 'x' ,ylab = 'y')
type <- c("正常字体（默认）","粗体字体","斜体字体","粗斜体字体")
?text
for (i in 1:4){
  text(2,5-i,labels = paste0 ("font=",i,":",type[i]),font = i)
}

#大小
plot(0:5,type="n",axes = F ,xlab = NA ,ylab = NA )
text(2,5,labels="cex=0.5:放大0.5倍",cex=0.5)
text(2,4,labels="cex=0.8:放大0.8倍",cex=0.8)
text(2,3,labels="cex=1（默认）:正常大小",cex=1)
text(2,2,labels="cex=1.5:放大1.5倍",cex=1.5)
text(2,1,labels="cex=2:放大2倍",cex=2)

#3.1.3点元素
plot(1,col="white",xlim = c(1,7),ylim=c(1,5),
     main="点样式 pch=",xlab=NA,ylab=NA)
?points
for(i in c(0:25)){
  x<-(i %/% 5)*1+1
  y<-6-(i%%5)-1
  #if(length(which(c(21:25)==i)>=1)){
  if(i>21){
    points(x,y,pch=i,col="red",bg="yellow",cex=2)
  }else{
    points(x,y,pch=i,cex=2)
  }
  text(x+0.2,y,labels = i)
}

#pch职值可以为"*,?,a， A,0, . ,+,-,|"
points(6,4,pch="*",cex=2);text(6+0.2,4,labels="\"*\"")
points(6,3,pch="?",cex=2);text(6+0.2,3,labels="\"?\"")
points(6,2,pch="a",cex=2);text(6+0.2,2,labels="\"a\"")
points(6,1,pch="A",cex=2);text(6+0.2,1,labels="\"A\"")
points(7,5,pch="0",cex=2);text(7+0.2,5,labels="\"0\"")
points(7,4,pch=".",cex=2);text(7+0.2,4,labels="\".\"")
points(7,3,pch="+",cex=2);text(7+0.2,3,labels="\"+\"")
points(7,2,pch="-",cex=2);text(7+0.2,2,labels="\"-\"")
points(7,1,pch="|",cex=2);text(7+0.2,1,labels="\"|\"")

#3.1.4线元素
plot(x=1:10,y=rep(1,10),type="1",lty=0,ylim=c(1,8),xlim = c(-1,10),
     axes=T,xlab=NA,ylab=NA)
text(0,1,labels = "lty=0")
for(i in 2:7){
  lines(x=1:10,y=rep(i,10),lty=i-1,xlab=NA,ylab=NA)
  text{0,i,labels=paste0("lty=",i=1))}
}

低级绘图函数

下面展示一些 低级绘图函数。

#3.2低级绘图函数
#3.2.1标题
#箱线图 
str(iris)
attach(iris)
boxplot(Sepal.Length~Species,col=heat.colors(3),
        main=list("Sepal.length按照Species分类的箱线图"，
                  font=4,col="red",cex=1.5),
        sub=list("数据来源，iris数据集",font=3
                 col="green",cex=0.8),
        xlab="Species",ylab="Sepal.Length")
#title函数
boxplot(Sepal.Length~Species,col=heat.colors(3))
title(main=list("Sepal.Length按照Species分类的箱线图"，
                font=4,col="red",cex=1.5),
      sub=list("数据来源,iris数据集",font=3,
               col="green",cex=0.8),
      xlab="Species",ylab="Sepal.Length")
#title另一种方式
boxplot(Sepal.Length~Species,col=heat.colors(3))
title(main="Sepal.Length按照Species分类的箱线图"，
      font.main=4,col.main="red",cex.main=1.5,
      sub="数据来源,iris数据集",font.sub=3,
      col.sub="green",cex.sub=0.8),
xlab="Species",ylab="Sepal.Length")

#3.2.2坐标轴
#加载iris数据到内存
#attach(iris)
#绘制箱线图
boxplot(Sepal.Length~Species,col=heat.colors(3),
        axes=FALSE,xlab="Species",ylab="Sepal.Length")
#设置x轴样式
axis(side=1,at=1:3,labels = unique(Species),col.axis="red",tick = FALSE)
#设置y轴样式
axis(side=2,col.ticks = "gold",font=3,col="blue")
#3.2.3图例
head(VADeaths)
?VADeaths
barplot(VADeaths,beside = T,col=cm.colors(5))
#添加图例
legend("top",legend=rownames(VADeaths),
       ncol=5,fill=cm.colors(5),bty="n")
?legend

#3.2.4网格线
op <- par(mfcol=1:2)
barplot(VADeaths,beside =TRUE,col=cm.colors(5),
        main="plot vADeaths with grid()")
grid()
barplot(VADeaths,beside =TRUE,col=cm.colors(5),
        main="plot vADeaths with grid(NA,7,lty=2,lwd=1.5,col='green')")
grid(NA,7,lty=2,lwd=1.5,col="green")
par(mfcol=c(1,1))


#3.2.5点
set.seed(1234)
stackloss  <- c(rnorm( 70,mean=0,sd=1),rnorm(3,mean=4,sd=1))
head(stackloss)
length(stackloss)
str(stackloss)
summary(stackloss)
boxplot(stackloss,col="purple",ylim=c(-4,5),outline=F)
points (rep(1,3),stackloss[70:72],pch=21,bg=c("blue","yellow","green"),cex=1.2)
stackloss[70:72]

#3.2.6文字
text(rep(1,3),stackloss[70:72],pos=3,labels = paste0("异常值",round(data[70:72],3)))

#3.2.7线
#lines函数
#install.packages ("ggplot2")
data (economics,package="ggplot2")
#将economics加载到内存
attach (economics)
str(economics)
??economics
?ggplot2:economics
plot(date,psavert,type="1",ylab="",ylim=c(0,26)) #绘制psavert随时间变化的时序图
lines(date,uempmed,type="1",col="blue")#绘制uempmed曲线，并设置为蓝色
detach (economics)  #将economics从内存中移除
#abline函数
#通常会调用abline画一条线
attach (iris)
#绘制一幅简单的散点图
plot (Petal.Length-Petal.width)
#绘制Petal.Length变量均值的水平线
abline (h=mean(Petal.Length) ,col="gray60")
#绘制拟合直线
abline(lm(Petal.Width),
      col="red",lwd=2,lty=3)
detach (iris)