Неправильная позиция панелей ошибок при использовании geom = "errorbars"

Question

Я пытаюсь добавить панели ошибок в график, который я создал:

Как видите, панели ошибок не в нужном месте, и я не могу понятьпочему нет.Ниже приведен код, который я использовал:

df_midtermclean$gender <- factor(df_midtermclean$ï..gender, labels = c('Male', 'Female'))  

#reshaping from wide to long format

data_long <- melt(df_midtermclean,
                  # ID variables - all the variables to keep but not split apart on
                  id.vars=c("gender"),
                  # The source columns
                  measure.vars=c("sSkills", "sPerform", "sComplex", "sIQ" ),
                  # Name of the destination column that will identify the original
                  # column that the measurement came from
                  variable.name="measures",
                  value.name="score")        

p2 <- ggplot(data_long, aes(measures, score)) + stat_summary(fun.y = mean, geom = "bar", aes(fill = gender), position = "dodge") 
    p2 <- p2 + stat_summary(geom = "errorbar", fun.data = mean_cl_normal, position = position_dodge(.9), width = .1)
    p2 <- p2 + labs(x = "Continuous Measures", y = "Participant Scores", fill = "Gender")
    p2

Данные.

data_long <-
structure(list(gender = structure(c(1L, 1L, 1L, 
1L, 1L, 1L, 2L,  1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
2L, 2L, 1L, 1L, 1L), .Label = c("Male",  "Female"), 
class = "factor"), measures = structure(c(1L, 1L,  
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L,  1L, 1L), .Label = c("sSkills", 
"sPerform", "sComplex", "sIQ"), class = "factor"), 
score = c(4.75, 3, 3.5, 3.75, 3, 3.25, 3.25, 3, 
2.75, 2.75, 2.5, 2.75, 3.75, 3.5, 3.75, 3.75, 
3.25, 3.25, 4, 3.25)), row.names = c(NA,  20L), 
class = "data.frame")

Answer 1

К сожалению, ваш код невоспроизводим!Тем не менее, я могу найти решение по http://www.sthda.com/english/wiki/ggplot2-error-bars-quick-start-guide-r-software-and-data-visualization

library(ggplot2)

df <- ToothGrowth
df$dose <- as.factor(df$dose)

# Function to calculate the mean and the standard deviation
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)
}

# New dataframe
df2 <- data_summary(ToothGrowth, varname="len", 
                    groupnames=c("supp", "dose"))

df2$dose <- as.factor(df2$dose)

ggplot(df2, aes(x=dose, y=len, fill=supp)) + 
  geom_bar(stat="identity", color="black", position=position_dodge()) +
  geom_errorbar(aes(ymin=len-sd, ymax=len+sd), width=.2, position=position_dodge(.9)) 

Answer 2

Я верю, что что-то вроде следующего будет делать то, что вы хотите.

agg <- aggregate(score ~ gender + measures, data_long, function(x) c(mu = mean(x), se = sd(x)))
agg <- cbind(agg[-ncol(agg)], agg[[ncol(agg)]])

p2 <- ggplot(agg, aes(measures, mu, fill = gender, group = gender)) +
  geom_bar(stat = "identity", position = "dodge") +
  geom_errorbar(aes(ymin = mu - se, ymax = mu + se),
                position = position_dodge(0.9),
                width = 0.1)

p2

Answer 3

Я думаю, что вторая строка вашего кода должна иметь следующий формат:

 geom_errorbar(aes(ymin = lower, ymax = upper), position = dodge, width = 0.25)

Я не уверен, что такое stat_summary в вашем коде, вы можете это объяснить?Однако вам нужно явно упомянуть нижнюю и верхнюю границы панелей ошибок, я не думаю, что это включено в ваш код.

Редактировать: попробуйте настроить position = position = position_dodge (0.9), вдольс размером и шириной.