R：打印图例格式

我在Mac（OS X Yosemite 10.10.2）上运行此代码

因此，我需要一个方形png文件480x480。 默认图形类型为“石英”

但我的传奇不符合这个条件：

---

我做错了什么？

您可以尝试手动设置

图例的
text.width
参数。但是，它应该自动默认为适当的长度，即
图例
参数中最长字符串的长度。我怀疑这是使用
dev.copy
并在其中明确指定宽度和高度的结果

尝试使用以下命令直接打印到PNG设备：

png("plot3b.png", width=480, height=480, type="quartz")
par(bg = "transparent")

plot(DateTime, Sub_metering_1, xlab=NA, ylab="Energy Sub metering",lty=1, lwd=1, pch=".", type="n")
lines(DateTime, Sub_metering_1, lty=1, lwd=1, pch=".")
lines(DateTime, Sub_metering_2, lty=1, lwd=1, pch=".", col="red")
lines(DateTime, Sub_metering_3, lty=1, lwd=1, pch=".", col="blue")
legend("topright", legend=c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), cex=0.7, lty=1, col=c("black","red","blue"))

dev.off()

png("plot3b.png", width=480, height=480, type="quartz")
par(bg = "transparent")

plot(DateTime, Sub_metering_1, xlab=NA, ylab="Energy Sub metering",lty=1, lwd=1, pch=".", type="n")
lines(DateTime, Sub_metering_1, lty=1, lwd=1, pch=".")
lines(DateTime, Sub_metering_2, lty=1, lwd=1, pch=".", col="red")
lines(DateTime, Sub_metering_3, lty=1, lwd=1, pch=".", col="blue")
legend("topright", legend=c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), cex=0.7, lty=1, col=c("black","red","blue"))

dev.off()