根据其他人的评论,此帖子已被分为以前版本OP.
中较小的问题在下图中,您会帮我
吗?下图是使用pdf设备中的data生成的 非常感谢任何有关这些问题的帮助。(新手来自R!)由于所有代码都太长而无法在此发布,因此我已在此处发布了与问题相关的部分。
#FigC
label1=c(0,100,200,300)
plot(data$TimeVariable2C,data$Variable2C,axes=FALSE,ylab="",xlab="",xlim=c(0,24),
ylim=c(0,2.4),xaxs="i",yaxs="i",pch=19)
lines(data$TimeVariable3C,data$Variable3C)
axis(2,tick=T,at=seq(0.0,2.4,by=0.6),label= seq(0.0,2.4,by=0.6))
axis(1,tick=T,at=seq(0,24,by=6),label=seq(0,24,by=6))
mtext("(C)",side=1,outer=F,line=-10,adj=0.8)
minor.tick(nx=5,ny=5)
par(new=TRUE)
plot(data$TimeVariable1C,data$Variable1C,axes=FALSE,xlab="",ylab="",type="l",
ylim=c(800,0),xaxs="i",yaxs="i")
axis(3,xlim=c(0,24),tick=TRUE,at= seq(0,24,by=6),label=seq(0,24,by=6),col.axis="violetred4",col="violetred4")
axis(4,tick=TRUE,at= label1,label=label1,col.axis="violetred4",col="violetred4")
polygon(data$TimeVariable1C,data$Variable1C,col='violetred4',border=NA)
答案 0 :(得分:2)
minor.tick
产生6个区间的原因是它是在假设使用默认轴分割的情况下编写的。它无法知道您替换了不同的主要刻度线位置。
在每个轴(4,...)呼叫之后,您应该拨打电话:
box()
我昨天已经回答了关于如何构建minor.tick
的修改版本的问题,该版本可以与side = 3或= 4一起使用。