我创建了一个条形图,显示了狐猴群在不同行为上花费的时间比例。但是,我面临两个问题。
1)我曾希望使用标准误差线代替我的标准偏差线。我不确定如何将其合并到现有代码中。我当前的ggplot输出如下:
data_summary <- function(data, varname, groupnames){
require(plyr)
summary_func <- function(x, col){
c(mean = mean(x[[col]], na.rm=TRUE),
sd = sd(x[[col]], na.rm=TRUE),)
}
data_sum<-ddply(data, groupnames, .fun=summary_func,
varname)
data_sum <- rename(data_sum, c("mean" = varname))
return(data_sum)
}
df4 <- data_summary(mydata_bc, varname="Time",
groupnames=c("Group", "Behaviour"))
p <- ggplot(df4, aes(x=Behaviour, y=Time, fill=Group)) +
geom_bar(stat="identity", position=position_dodge()) +
geom_errorbar(aes(ymin=Time-sd, ymax=Time+sd), width=.2,
position=position_dodge(0.9))
2)我还希望改变我在x轴上的行为顺序。
任何帮助将不胜感激。
当前条形图“>
我的csv数据:https://drive.google.com/file/d/1UWJoluv3MWwXoQg2zcDORDJiWuIA8j4f/view?usp=sharing
我创建了一个条形图,显示了狐猴群在不同行为上花费的时间比例。但是,我面临两个问题。 1)我曾希望在适当的位置使用标准误差线...
没有您正在绘制的数据,我不确定,但是我怀疑如果进行这些更改,它将可以正常工作。