在ggplot2中可以直接结合stat_summary函数快速进行数据统计 所以stat可以设置为summary,将柱状图的高度设置为各组的均值并联合stat_summary函数增加误差线。 ggplot(dat,aes(x=Group,y=Relative,fill=Group))+geom_bar(stat="summary",fun=mean,width=0.5,color="black")+scale_fill_manual(values=c("#017A4AFF"...
ggplot2作图 library(ggplot2) ggplot(data=new_df,aes(x=name,y=value,fill=var4))+ stat_summary(geom = "bar",fun = "mean", position = position_dodge(0.9))+ stat_summary(geom = "errorbar", fun.min = ebbottom, fun.max = ebtop, position = position_dodge(0.9), width=0.2)+ scale_...
library(ggplot2) ggplot(data=dfb.1,aes(x=V1,y=value))+ stat_summary(geom = "bar", fun = mean, fill="#c6c3c3") 1. 2. 3. 4. 5. 6. image.png 添加误差线 这里误差线采用的是mean+-sem library(ggplot2) ebtop<-function(x){ return(mean(x)+sd(x)/sqrt(length(x))) } ebbotto...
2、于柱状图上添加geom_errorbar(不控制位置) 针对geom_errorbar设置如下:width是误差线上下端宽度,size是粗细 geom_errorbar(aes(ymin=(Num-SD),ymax=(Num+SD)),width=0.2,size=0.02) AI代码助手复制代码 全部绘图代码如下: p = ggplot(dat, aes(x= type,y= Num,fill = Sample))+ geom_bar(stat="...
分组柱状图的绘制可以基于ggplot2,具体可以参考: 分组柱状图--ggplot2 。 如何针对分组柱状图添加误差线并合理调整位置呢?主要基于geom_errorbar及其参数position进行细节调整。 譬如基于上... 分组柱状图的绘制可以基于ggplot2,具体可以参考:分组柱状图--ggplot2。
添加误差线 这里误差线采用的是mean+-sem library(ggplot2)ebtop<-function(x){return(mean(x)+sd(x)/sqrt(length(x)))}ebbottom<-function(x){return(mean(x)-sd(x)/sqrt(length(x)))}ggplot(data=dfb.1,aes(x=V1,y=value))+stat_summary(geom="bar",fun=mean,fill="#c6c3c3")+stat_summar...
堆积柱形图添加误差线 ''' getwd() library(ggplot2) library(dplyr) library(see) df<-read.csv("penguins.csv") head(df) df %>% na.omit() %>% group_by(species,sex) %>% summarise(mean_value=mean(bill_length_mm), sd_value=sd(bill_length_mm)) -> df1 ...