Zgodnie z komentarzami innych, ten post został podzielony na mniejsze pytania z poprzedniej wersji tegoOP.

Na poniższym wykresie pomożesz mi

Zamknij stronę = 4 (na każdym rysunku A-D), zachowując etykiety w takiej postaci, w jakiej jest (do długości, jak pokazano) i utwórz drobne kleszcze na osiach wtórnych (bok = 3 i 4); no.of div = 5.Dlaczego minor.tick (nx = 5, ny = 5) produkuje 6 podziałów w kleszczy dla Fig.C

Poniższy wykres jest tworzony za pomocądane w urządzeniu pdf.
Jakakolwiek pomoc w tych kwestiach jest bardzo ceniona. (Początkujący na R!) Ponieważ cały kod jest zbyt długi, aby go tutaj opublikować, opublikowałem część związaną z problemem tutaj dla Fig.C

#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)