Question

我正在尝试将数字从RStudio输出到png或pdf或eps。在RStudio中绘图时，一切都很好（所有轴都在正确的位置），但是当导出绘图时，第二个Y轴不在正确的位置。

我认为这个问题与手动添加第二个Y轴有关。但这个问题有解决方案吗？

# Data are frequency over time period
total_floods <- c(7,8,8,8,22)
years <- c(1960, 1961, 1962, 1963, 1964)
total_damage <- c(20000, 19000, 1e5, 1.2e5 ,1.5e5)
xLimit <- c(1960, 1964)
yLimit <- c(0.9e5, 2e5)
colors <- c("blue", "red", "orange", "yellow")
png("out_image.png")
par(las=1)
plot(years, total_floods, type="l", col=colors[2], lwd=lineWidth, 
     xlim=xLimit, font.lab=2, ylab="", main= paste("Yes yes yes", 
     xLimit[1],"-",xLimit[2]," period"), xlab="Year")
axis(side=2, col.axis=colors[2], font=2, las=2)
axis(side=1, font=2, las=1)   
par(new = TRUE, mar = c(5,5,2,5))
plot(years, total_damage/1000000, type="l", col=colors[3], 
     lwd=lineWidth,  xlim=xLimit, xlab=NA, ylab=NA, axes=FALSE)
axis(side=4, col.axis=colors[3], font=2, las=2)
mtext(side=2, font=2, line=3, "Yes", col=colors[2], las=3)
mtext(side=4, font=2, line=3, "Yes of US Dollars", col=colors[3], las=3)
dev.off()

我还使用par(no.readonly=TRUE)检查了问题之前和之后情况的绘图参数，并且绘制参数值没有差异。

导出到高分辨率图片文件会移动我的第二个Y轴

0 个答案: