Question

我有大量的图表需要制作，我希望得到一个自动化的脚本来制作大部分图形。

我使用barplot并点击R. 使用图形参数break，xaxp / yaxp和xlim / ylim，我想有自动值：

for breaks：我希望每100分钟划分一次X轴（0-100分为1分，100-200分别为1分）。
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)

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)

轴/条形图和hist的最大值

1 个答案: