小编Dav*_*ave的帖子

我有以下示例图：

test <- data.frame("Factor" = as.factor(c("O", "C", "A")), \n                       b = c(0.18, .34, .65, -.13, .38, .26), \n                       lower95 = c(-.1, .09, .34, -.52, .10, -.02), \n                       upper95 = c(.48, .58, .98, .26, .67, .56), \n                       group = factor(c("Experiment 1","Experiment 2")))\n\ntest$Factor <- factor(test$Factor, as.character(test$Factor))\ntest$group <- factor(test$group, as.character(test$group))\n\nggplot(test, aes(Factor, b, colour = group)) +\n  geom_errorbar(aes(ymin = lower95, ymax = upper95), \n            size = 1,\n            width = .5, \n            position = \'dodge\') +\n  geom_hline(yintercept = 0) +\n  ylim(-1.25, 1.25) +\n  coord_flip() …