R 轴/条形图和历史的最大圆

我有大量的图形要生成，我想得到一个自动化的脚本来生成其中的大部分

我在R中使用条形图和hit。 对于图形参数中断，xaxp/yaxp和xlim/ylim，我希望有自动值：

对于打断：我希望打断每100个条分割X轴，一条为0-100，另一条为100-200，以此类推。 xaxp和ylim：我希望最大值在下一个百分之四舍五入，轴标签每100个标签和记号。 xlim/ylim：我正在搜索如何将最大值四舍五入到下一个5倍，我希望每5倍设置一个标签和刻度。 编辑：我找到了解决方案：

ry<-round(max(g4$density),digit=-1)
ry
t<-pretty((table$col1), max(table$col1)/500)
t
plot(g4,freq=F, axe=F, col=c("gray"), main="", xlab=NA , ylab=NA, ylim=c(0,ry),xlim=c(0,max(t)))
plot(g4,freq=F, axe=F, col=c("gray"), main="", xlab=NA , ylab=NA, ylim=c(0,ry),xlim=c(0,max(t)))
axis(1,xaxp=c(0,max(t),max(t)/500), line=-0.7, xlim=c(0,t))
axis(2,yaxp=c(0,ry,ry/5), line=-0.9, las=2)

我找到了答案：

ry<-round(max(g4$density),digit=-1) ry 
t<-pretty((table$col1), max(table$col1)/500) 
t 
plot(g4,freq=F, axe=F, col=c("gray"), main="", xlab=NA , ylab=NA, ylim=c(0,ry),xlim=c(0,max(t)))

plot(g4,freq=F, axe=F, col=c("gray"), main="", xlab=NA , ylab=NA, ylim=c(0,ry),xlim=c(0,max(t))) 

axis(1,xaxp=c(0,max(t),max(t)/500), line=-0.7, xlim=c(0,t)) 
axis(2,yaxp=c(0,ry,ry/5), line=-0.9, las=2)

---

我编辑了我的第一篇文章。它现在正在工作