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がエクスポートされます。次の2行をエクスポート関数に追加して、前のコードとまったく同じに見えるようにするにはどうすればよいですか?:
abline(h=LoopVariable[1,"mean_fraction-modern"], lwd=2, col="red")
mtext("no additional error added")