我成功地创建了一个脚本，它在 RStudio 中产生了一个漂亮的情节：
abscissa = nrow(LoopVariable)
library(plotrix)
plotCI(1:abscissa, LoopVariable[ ,13],
uiw=LoopVariable[ ,"F_corrected_normed_error"], err="y",
main=(LoopVariable[1,"Samples..Sample_ID"]),
xlab="", ylab="correct Y axis",
pch=19)
abline(h=LoopVariable[1,"mean_fraction-modern"], lwd=2, col="red")
mtext("no additional error added")
到目前为止，一切都很好。然后我写了这段代码：
png(filename=paste0("I:/C14Data/QualityControl/Johannes/code_output/",
RNumberList[i], "_", date, " (R#_yyyy-mm-dd_hh-mm-ss).png"),
type="cairo",
units="cm",
width=abscissa,
height=10,
pointsize=12,
res=96)
plotCI(1:abscissa, LoopVariable[ ,13],
uiw=LoopVariable[ ,"F_corrected_normed_error"], err="y",
main=(LoopVariable[1,"Samples..Sample_ID"]),
xlab="", ylab="fraction modern",
pch=19)
dev.off()
这就像我想要的那样导出一个 png 文件，BUT：如何将以下两行添加到导出函数并让它看起来与前面的代码完全相同？：
abline(h=LoopVariable[1,"mean_fraction-modern"], lwd=2, col="red")
mtext("no additional error added")