最大的軸/ barplot和hist

Question

我有大量的圖生成，我想要一個自動化的腳本來產生大多數。

我用barplot並創下R. 使用圖形參數斷裂，xaxp/yaxp和XLIM/ylim，我想有自動值：

• 爲遊：我想休息劃分X軸每100（一個0-100，另一個100-200，等等）
• xaxp和ylim：我希望最大值在下一個數值上舍入四捨五入，並且軸每隔100與標籤和蜱蟲。
• XLIM/ylim：我正在尋找如何獲得在未來5倍的倍數取整的最大值，我想有標籤和蜱每5

編輯：我找到了解決辦法：

RY < -round（MAX（G4 $密度），數字= -1） RY 噸< -pretty（（表$ COL1），最大值（表$ COL1）/ 500） 噸 情節（G4，FREQ = F，ax = F，col = c（「gray」），main =「」，xlab = NA，ylab = NA，ylim = c（0，ry），xlim = c（0，max（t））） plot（g4，freq = F，ax = F，col = c（「gray」），main =「」，xlab = NA，ylab = NA，yl （1，xaxp = c（0，max（t），max（t）/ 500），線= -0.7， XLIM = C（0，t））的 軸（2，yaxp = C（0，RY，RY/5），線= -0.9，拉斯= 2）

Answer 1

我找到答案：

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)