1、使用geom_rect()函数可以添加矩形色块,在函数内指定位置和颜色,需要注意的是,geom_rect()函数需要放在柱状图和抖点图图层之前,否则会把柱子和点覆盖了。 但这里有个问题,不知道为什么,如果只是把geom_rect函数放在最前就会报错,所以我这里在geom_rect函数前还加了一个stat_summary()柱状图函数图层,这样才出图,...
ggplot(data=diamonds)+geom_histogram(mapping=aes(x=carat),binwidth=0.5) ⑩stat_summary( )函数为x的每个唯一值计算y值的摘要统计: ggplot(data=diamonds)+stat_summary(mapping=aes(x=cut,y=depth),fun.ymin=min,fun.ymax=max,fun.y=median) 11)可以使用color= 或者 fill=(这个更有用)图形属性来为...
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_y_continuous(expand = expansion...
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_y_continuous(expand = expansion...
执行stat_summary绘制误差线,亦可用mean_se等 添加p-value #方差齐性检验,利用car下的Levene检验library(car);library(purrr)tg%>%split(.$dose)%>%map(~leveneTest(len~supp,data=.x,center=mean))#不同dose下,Levene检验p值分别为0.052、0.149、0.129,表明各组总体方差相同(var.equal=TRUE)。
aes(x = supp,y = len,fill = factor(dose))) + # 添加柱子 stat_summary(fun = mea...
stat_boxplot(geom = 'errorbar', width = 0.1) + geom_boxplot(aes(fill = Group), width = 0.2, show.legend = F) + geom_jitter(aes(shape = Group)) + stat_summary(fun = median, geom = 'point', color = 'white', size = rel(2)) + ...
stat_summary(fun.y=“mean”,geom=“point”,shape=23,size=3,fill=“white”) 添加均值标记后 3、7 添加最大值与最小值线 用基础R包绘图绘制的箱线图中具有最大最小值线(即概述图中的上边缘和下边缘),但是用ggplot2绘制的箱线图中,是没有最大最小值线的。
ggplot(ToothGrowth, aes(x=dose, y=len)) +geom_boxplot() +stat_summary(fun.y=mean, geom="point", shape=23, size=4, col = "red") + #添加均值scale_x_discrete(limits=c("2", "0.5")) #选择变量,更改顺序 AI代码助手复制代码
p1<-ggplot(mpg)+geom_point(aes(x=displ,y=hwy))p2<-ggplot(mpg)+geom_bar(aes(x=as.character(year),fill=drv),position="dodge")+labs(x="year")p3<-ggplot(mpg)+geom_density(aes(x=hwy,fill=drv),colour=NA)+facet_grid(rows=vars(drv))p4<-ggplot(mpg)+stat_summary(aes(x=drv,y=hwy...