【发布时间】：2020-09-01 21:36:19
【问题描述】：
我用一个基本的情节制作了一个空白的反应情节，并在闪亮的仪表板中打印了巨大的字符。
问题是当我让情节中的字母可见时，情节顶部的边距太大。
但是当我修复renderImage() 中的margin 参数、png 大小和list 参数时，margin 的大小很好，但是文本太小了，我无法再阅读标签了。我尝试设置 cex 参数，该参数有效但效果不佳。此外，oma=c() 参数在我的代码中也不起作用。
那么，我该怎么办？这是我关于情节的代码。
outfile <- tempfile(fileext='.png')
png(outfile, height=500*25, width=1000, bg='transparent')
par(mar=c(0, 4, 1, 4))
plot(0, 0, xlim=c(1,50), ylim=c(1,500*4), ann=F, xaxt = 'n', yaxt='n', type="n", xlab="")
for(j in 1:500){# i=x, j=y
for(i in 1:50){
text(i, 500*4+4-j*4, labels=data0[i+50*(j-1)], cex=2, family='raleway')
}
}
dev.off()
list(src = outfile, contentType = 'image/png', width=800, height=sizej*15)
【问题讨论】：
-
png函数有一个“pointsize”参数 - 默认值为 12。尝试增加此值。如果这没有帮助，请尝试使用plot的“asp”参数。你的高度似乎比宽度大得多。我同意增加高度似乎会拉伸顶部和底部边距，即使您指定 0。但我不确定为什么会发生这种情况。祝你好运。