格式
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="趋势分析")
问题 时间展示有误,待修改