Question

我想知道给出下面情节的R代码，我怎么能得到这个情节的png文件，以便情节填充所有图像否 margin？

到目前为止，我尝试使用mar和oma但没有成功：

N = 20 ; df = N-1  
par(oma = rep(0, 4), mar = rep(0, 4))  

 png("plot.png", width = 4, height = 5, units = "in", res = 500)

BB = curve( dt(x*sqrt(N), df)*sqrt(N), -1, 1, n = 1e4, xlab = "d", 
                   ylab = NA, font = 2, font.lab = 2, type = "n", yaxt = "n", bty = "n", mgp = c(2, 1, -.5))

 polygon(BB, col = rgb(1, 0, 0, .4), border = NA)

 dev.off()

Answer 1

最后，在SO的一位同事的帮助下，以下工作对我有用：

 N = 20 ; df = N-1  
 par(oma = rep(0, 4), mar = c(2.5, .01, 0, .01), mgp = c(1.5, .3, 0), xpd = NA)  

  BB = curve( dt(x*sqrt(N), df)*sqrt(N), -1, 1, n = 1e4, xlab = "d", 
        ylab = NA, font = 2, font.lab = 4, type = "n", yaxt = "n", 
        bty = "n", cex.axis = .7, cex.lab = .9)

    polygon(BB, col = rgb(1, 0, 0, .4), border = NA)

    dev.copy(png, "plot.png", width = 2, height = 3, units = "in", res = 500)
    dev.off()
    dev.off()

在下面的R图中，用什么语句消除'png文件'中的边距？

1 个答案: