这里作图用到的是ggscatter()函数,这个函数来自ggpubr这个包。 最基本的散点图 代码语言:javascript 复制 library(ggpubr)ggscatter(mydf,x="DPS",y="ISG") 这里需要注意的是想x,y后面跟着的值需要加双引号 添加拟合曲线 代码语言:javascript 复制 p1<-ggscatter(mydf,x="DPS",y="ISG",add="reg.line...
image.png 今天的推文来重复一下论文中的figure3c 散点图添加拟合曲线 image.png 读取数据集 library(readxl) df<-read_excel("41564_2021_997_MOESM10_ESM.xlsx") head(df) colnames(df) 1. 2. 3. 4. 最基本的散点图 library(ggplot2) ggplot(data=df,aes(x=`mean Protection Score [a.u.]`, y...
跟着Plos Biology学作图:R语言ggplot2散点图并添加误差线和带置信区间的拟合曲线,论文Largevariationintheassociationbetweenseasonalantibioticuseandresistanceacrossmultiplebacterialspeciesandantibioticclasses数据代码链接https://github.com/orgs/gradlab
ggplot(data = mtcars, mapping = aes(x = wt, y = mpg)) + geom_point(size = 2) + geom_smooth(method = "loess", se = FALSE, colour = "black") + geom_ribbon(stat = "smooth", method = "loess", se = TRUE, alpha = 0, # or, use fill = NA colour = "black", linetype =...
最基本的散点图 library(ggpubr) ggscatter(mydf,x="DPS",y="ISG") 1. 2. 这里需要注意的是想x,y后面跟着的值需要加双引号 image.png 添加拟合曲线 p1<-ggscatter(mydf,x="DPS",y="ISG", add = "reg.line") 1. 2. 添加置信区间