R基础绘图学习笔记（二）

一些调整

1.一“筐“多图

par(mfrow=c(2,3))
plot(rnorm(100),col="blue",main="Plot No.1")
plot(rnorm(100),col="blue",main="Plot No.2")
plot(rnorm(100),col="green",main="Plot No.3")
plot(rnorm(100),col="black",main="Plot No.4")
plot(rnorm(100),col="green",main="Plot No.5")
plot(rnorm(100),col="orange",main="Plot No.6")


par(mfcol=c(3,2))
plot(rnorm(100),col="blue",main="Plot No.1")
plot(rnorm(100),col="blue",main="Plot No.2")
plot(rnorm(100),col="green",main="Plot No.3")
plot(rnorm(100),col="black",main="Plot No.4")
plot(rnorm(100),col="green",main="Plot No.5")
plot(rnorm(100),col="orange",main="Plot No.6")

par(mfrow=c(3,1))
plot(market$revenue~as.Date(market$date,"%d/%m/%y"),
type="l", #Specify type of plot as l for line
main="Revenue",
xlab="Date",
ylab="US Dollars",
col="blue")

plot(market$profits~as.Date(market$date,"%d/%m/%y"),
type="l", #Specify type of plot as l for line
main="Profits",
xlab="Date",
ylab="US Dollars",
col="red")

plot(market$customers~as.Date(market$date,"%d/%m/%y"),
type="l", #Specify type of plot as l for line
main="Customer visits",
xlab="Date",
ylab="Number of people",
col="black")

2.修改坐标轴范围

xlim,ylim设定。

plot(cars$dist~cars$speed,
     xlim=c(30,0),
     ylim=c(0,150),
     xaxs="i",
     yaxs="i")
plot(cars$dist~cars$speed,
     xlim=c(25,0),
     ylim=c(0,100),
     xaxs="i",
     yaxs="i")

3.添加图例

plot(rain$Tokyo,type="l",col="red",
     ylim=c(0,300),
     main="Monthly Rainfall in major cities",
     xlab="Month of Year",
     ylab="Rainfall (mm)",
     lwd=2)
lines(rain$NewYork,type="l",col="blue",lwd=2)
lines(rain$London,type="l",col="green",lwd=2)
lines(rain$Berlin,type="l",col="orange",lwd=2) 

legend("topright",
       legend=c("Tokyo","New York","London","Berlin"),
       col=c("red","blue","green","orange"),
       lty=1,lwd=2)


plot(rain$Tokyo,type="l",col="red",
     ylim=c(0,250),
     main="Monthly Rainfall in major cities",
     xlab="Month of Year",
     ylab="Rainfall (mm)",
     lwd=2)
lines(rain$NewYork,type="l",col="blue",lwd=2)
lines(rain$London,type="l",col="green",lwd=2)
lines(rain$Berlin,type="l",col="orange",lwd=2)

legend("top",
       legend=c("Tokyo","New York","London","Berlin"),
       ncol=4,
       cex=0.8,
       bty="n",
       col=c("red","blue","green","orange"),
       lty=1,lwd=2)