r - 如何在ggplot2中旋转图例符号？

Question

例如，考虑这个使用数据 mtcars 的图。和函数 coord_flip

library(ggplot2)
library(Hmisc)

ggplot(mtcars,aes(x=gear,y=cyl)) + stat_summary(aes(color=as.factor(rep(1:2,16))),
fun.data=mean_cl_boot, position=position_dodge(0.4)) + coord_flip()

误差线在图表上是水平的，但在图例中是垂直的，这让我很困扰 :) 如何旋转这些符号？

Answer 1

ggstance包在这里提供了一个易于实现的解决方案:

library(ggplot2)
library(ggstance)

ggplot(mtcars,aes(x=cyl,y=gear)) + stat_summaryh(aes(color=as.factor(rep(1:2,16))),
                                                fun.data=mean_cl_boot_h, position = position_dodgev(height = 0.4))

或作为 geom :

df <- data.frame(x = 1:3, y = 1:3)
ggplot(df, aes(x, y, colour = factor(x))) +
     geom_pointrangeh(aes(xmin = x - 1, xmax = x + 1))