library(tidyverse)
theme_set(theme_test())
library(sciplot)
iris%>%gather(key=Measure,value="value",-Species)%>%group_by(Species,Measure)%>%
summarise(mean=mean(value),se=se(value))%>%
ggplot(aes(x=Measure,y=mean,fill=Species))+
geom_col(position = position_dodge(0.7),width = 0.6)+
geom_errorbar(aes(ymin=mean-se,ymax=mean+se,color=Species),position = position_dodge(0.7),width=0.2,size=1)+
ylim(0,10)+
labs(y="Value")

这篇博客展示了如何利用R语言中的tidyverse包和sciplot包进行数据整理与可视化。作者首先应用tidyverse的gather函数将数据转化为长格式,然后通过group_by和summarise计算每种物种的平均值和标准误差。接着,使用ggplot2绘制了条形图,展示不同物种的测量指标均值,并用误差条表示标准误差。图形清晰地呈现了不同物种间测量指标的比较。
2392

被折叠的 条评论
为什么被折叠?



