R语言-twoord.plot双Y轴

格式

 twoord.plot(lx,ly,rx,ry,data=NULL,main="",xlim=NULL,lylim=NULL,rylim=NULL,

 mar=c(5,4,4,4),lcol=1,rcol=2,xlab="",lytickpos=NA,ylab="",ylab.at=NA,

 rytickpos=NA,rylab="",rylab.at=NA,lpch=1,rpch=2,

 type="b",xtickpos=NULL,xticklab=NULL,halfwidth=0.4,axislab.cex=1,

 do.first=NULL,...)

释义

lx左x轴的值，ly左y轴的值，rx右x轴的值，ry右y轴的值 这四个值要与data 中引用的数据对应；

main 图的名称；

lcol,rcol 左右Y轴的颜色；

ylab 左Y轴标签；

rylab 右Y轴标签；

xlab x轴标签；

type 类型同plot的设置，

"p" 点,
"l"  线,
"b" 时绘制点和线

lpch,rpch 区分左右Y轴点的两个不同符号 同plot

install.packages("gcookbook")

library(plotrix) 

x<-read.csv("G:/stock.csv",header=TRUE,sep=",")

b<-as.Date(x$日期)#日期类型转换

#将b与x合并两种方式

a<-data.frame(b,x[,-1])

names(a)<-c("日期","开盘价","最高价","最低价","收盘价")#列名命名

colnames(a)

class(a[,1])

#or

x<-x[,-1]

x$日期<-b

colnames(x)

#双Y轴图

twoord.plot(日期,开盘价, 日期,收盘价,type="l",lcol="red",rcol="blue",xlab="日期", ylab="开盘价",rylab="收盘价",  main="趋势分析" , xtickpos=日期,xticklab=format(日期))

结果

#今天测试这个代码不好用了，报错如下:Error in twoord.plot(日期, 开盘价, 日期, 收盘价, type = "l", lcol = "red",  :   找不到对象'日期'

修改为：

twoord.plot("日期","最高价","日期","最低价",data=a[,c(1,3,4)],type="l",lcol="red",rcol="blue",

            lpch=16,rpch=1,

            xlab="日期", ylab="最高价",rylab="最低价",  main="趋势分析")

问题 时间展示有误，待修改