1

根据其他人的评论，这篇文章已经从这个 OP 的先前版本中分离成更小的问题。

在下图中，你能帮我

  • 关闭边 = 4（在每个图 AD 中），保持标签原样（如图所示的长度）并在辅助轴（边 = 3 和 4）处创建小刻度；格数=5。
  • 为什么 minor.tick(nx=5,ny=5) 为 Fig.C 产生 6 个刻度

下图是使用pdf 设备中的数据生成的。
非常感谢您对这些问题的任何帮助。（R 的新手！）由于所有代码都太长而无法在此处发布，因此我在此处为 Fig.C 发布了与该问题相关的部分

来自 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)
4

1 回答 1

2

产生 6 个间隔的原因minor.tick是它是在假设使用默认轴分割的情况下编写的。它无法知道您替换了不同的主要刻度位置。

在每次 axis(4, ...) 调用之后，您应该拨打电话：

 box()

我昨天已经在 SO 上回答了关于如何构建minor.tick可以与 side =3 或 =4 一起使用的修改版本的问题。

于 2013-06-15T21:04:35.093 回答