R语言(6) 双坐标图

#双坐标图
library(readxl)
stock<-read_excel('stock.xlsx')
par(mar=c(5,4,4,4))

#par(mar）选项的作用是调整绘图区域距离外围框线的距离

plot(stock$date,stock$SH_closing_price,type='l',col='blue')
par(new=T)   

#为了将两幅图绘制在同一张纸上，可以设置new = TRUE

plot(stock$date,stock$SH_closing_price,type='l',col='blue',ylab='上证指数收盘价',main='上证指数收盘价vs投资者信心指数',xlab='时间')

#ann取FALSE时将不会画出标题（包括主、副标题及坐标轴标题）

#xaxt和yaxt 取”n”时，坐标轴、刻度线以及刻度值将不会画出

axis(side=4)

#side表示要操作的坐标轴，取值1、2、3、4分别代表下、左、上、右；

mtext(text ='投资者信心指数',side=4,line=2)

#添加坐标轴标题，line表示距离

#添加图例

legend('topright',legend=c('SH收盘价','信心指数'),lty=c(1,2),bty='n')

#bty='n'表示图例没边框

 代码部分：

#双坐标图
library(readxl)
stock<-read_excel('stock.xlsx')
par(mar=c(5,4,4,4))
#par(mar）选项的作用是调整绘图区域距离外围框线的距离
plot(stock$date,stock$SH_closing_price,type='l',col='blue',ylab='上证指数收盘价',main='上证指数收盘价vs投资者信心指数',xlab='时间')
par(new=T)
#为了将两幅图绘制在同一张纸上，可以设置new = TRUE
plot(stock$date,stock$investor_confidence_index,col='red',lty=2,type='l',ann=F,yaxt='n')
#ann取FALSE时将不会画出标题（包括主、副标题及坐标轴标题）
#xaxt和yaxt 取”n”时，坐标轴、刻度线以及刻度值将不会画出
axis(side=4)
#side表示要操作的坐标轴，取值1、2、3、4分别代表下、左、上、右；
mtext(text ='投资者信心指数',side=4,line=2)
#添加图例
legend('topright',legend=c('SH收盘价','信心指数'),lty=c(1,2),bty='n')