(filename = "fig3c.pdf",
width = 6,
height = 4,
family="serif")
计算拟合方程的R和...P值
df.lm<-lm(`mean Colonization [log10(CFU/mg)]`~
`mean Protection Score [a.u.]`,
data=df)
summary...~"="~0.49~","~italic(P)~"="~5.4%*%10^-15),
parse=T)+
ggsave(filename = "fig3c.pdf",...~"="~0.49~","~italic(P)~"="~5.4%*%10^-15),
parse=T)+
annotate(geom = "rect",...~"="~0.49~","~italic(P)~"="~5.4%*%10^-15),
parse=T)+
annotate(geom = "rect",