R: 検量線
Rの話題。検量線を引く。
実験をしていると、色々な検量線を引く。Excelで計算したり、機械に自動的に引けるような機能がついていたりするのだが、後者はさておき。前者は案外面倒くさいものである。
何とか自動化してやれないかと、スクリプト/プログラムを組みたいところではあるが(すでにそういうのあるかもしれない)、取りあえずこれくらいは自分で書きたい気もするので頑張ってみた。
いやー苦労した... まだまだだな.
library(ggplot)
library(ggmisc)
ggplot(data, aes(x=concentration,y=Abs, colour=group))+
geom_point(size=3)+
geom_smooth(method = lm, se = FALSE)+
stat_poly_eq(formula = y ~ x,
aes(label = paste(..eq.label.., ..rr.label.., sep = “~~~“)), parse = TRUE, rr.digits = 4)+
theme_classic(base_size=20, base_family = “Helvetica”)