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

来源：互联网发布：mac 切换python版本编辑：程序博客网时间：2024/05/19 04:03

一些调整

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 linemain="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 linemain="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 linemain="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)

阅读全文

0 0