如何调整传奇位置，颜色和边界框？

Question

有什么方法可以自动找到传说的最佳位置？如何在传说之前显示带有颜色的矩形并调整传奇的边框？以下是我的代码，结果

questions <- seq(1, 50, by=1)
probs <- dgeom(questions, prob=0.25)


plot(questions, probs, type='l', ylab='prob')
polygon(c(questions[15:50], 50, 15), 
        c(probs[15:50], 0, 0), col="red")

polygon(c(questions[8:15], 15, 8), 
        c(probs[8:15], 0, 0), col="blue")

polygon(c(questions[8:15], 15, 8), 
        c(probs[8:15], 0, 0), col="blue")

polygon(c(questions[0:8], 8, 0), 
        c(probs[0:8], 0, 0), col="green")

legend("topright", 
       col=c("green", "blue", "red"), 
       legend=c("Majority", "Minority", "Infinity"))

您可能会注意到非常左行不直。我该如何解决？

Answer 1

使用其他设备，例如png，pdf，jpg，postscript，...

您可能正在使用rstudio通常是图中显示在图窗口中。通常，用户调整此窗口，直到绘图具有所需的格式。但是，那时可能会扭曲传说和文字。您可能只是重新运行代码，但这很乏味，如果您用指定的维度导出图，也不能保证该图在此 preview 中看起来像，尤其是传说和文本。

此预览是“ rstudiogd”设备（以某种方式与png设备结合使用）。您可以使用dev.list（）在创建绘图后看到它。

获得稳定图结果的解决方案是使用其他设备，例如png，pdf，jpg，Postscript等等，您指定呼叫中的尺寸，而不是通过移动鼠标。立即打开保存的图以检查结果。在Linux上，您可以保持保存的地块打开，它将刷新本身。

请注意，您需要启动新设备，绘图，然后使用device.off（）停止设备。否则，将不会存储绘图，并且将永远发送到新设备，直到您关闭（或退出R）为止。

： 如何在磁盘上保存图作为图像？

基本设置

另请参阅此问题 使用PNG设备。

png('file', .)  ## start device
plot(.)  ## create plot
lines(.)
...
device.off()  ## stop device

如果您与设备发生冲突，只需使用graphics.off（）关闭所有设备。

您的图

png('myplot1234.png', 480, 480)  ## start device

plot(questions, probs, type='l', ylab='prob')
polygon(c(questions[15:50], 50, 15), 
        c(probs[15:50], 0, 0), col="red")

polygon(c(questions[8:15], 15, 8), 
        c(probs[8:15], 0, 0), col="blue")

polygon(c(questions[8:15], 15, 8), 
        c(probs[8:15], 0, 0), col="blue")

polygon(c(questions[0:8], 8, 0), 
        c(probs[0:8], 0, 0), col="green")

legend("topright", 
       col=c("green", "blue", "red"), 
       pch=15, 
       legend=c("Majority", "Minority", "Infinity"))

dev.off()  ## stop device

应将图作为'myplot1234.png'保存在您的工作目录中。您也可以指定课程'PATH/MYPLOT1234.PNG'的路径。 （请注意。您需要在图例中指定一些pCH =，否则没有显示颜色。）

---

data：

questions <- seq(1, 50, by=1)
probs <- dgeom(questions, prob=0.25)