2019-06-03绘制带有误差线的折线图

小伙伴说要画一个简单的带误差线的折线图，graphpad用不了，我琢磨一下，可以用R语言。本段代码是探究不同处理条件，伤口面积随着时间的变化，通过Rmisc包summarySE函数，得出图片如下：


Rplot.png
setwd("~/Desktop/190603")
getwd()
library("ggplot2")
install.packages("Rmisc")
library("Rmisc") 
woundarea <- read.csv("~/Desktop/190603/WoundArea3.csv",header = TRUE, stringsAsFactors = TRUE)
head(woundarea)
View(woundarea)
tgc <- summarySE(woundarea, measurevar="woundarea", groupvars=c("sample","days"))
tgc
#带有标准误差线的折线图
ggplot(tgc, aes(x=days, y=woundarea, colour=sample)) + 
  geom_errorbar(aes(ymin=woundarea-se, ymax=woundarea+se), width=.1) +
  geom_line() +
  geom_point()
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容