jitter-facet-pointrange：控制geom_pointrange（）中点和范围的alpha

Question

我有一个抖动/ geom_point范围/分面问题。我试图在y轴上绘制带有置信区间的数值变量，在x轴上绘制因子变量。额外的复杂性：我需要分面，并且facet具有不同级别的因子变量。

我可以通过geom_pointrange（）真正接近，但我似乎无法分别控制点和范围的alpha级别。

如果我这样做：

y = rnorm(1000)
uis = y + 1
lis = y - 1
covariate <- rep(c("Gender", "Party"), each=N/2)
covariate_level <- rep(c("M", "F", "Dem", "Ind", "Rep" ), 
                       times=c(100, 400, 250, 100, 150))
df <- data.frame(y, uis, lis, covariate, covariate_level)

ggplot(df, aes(x=covariate_level, y=y)) +
  geom_point(position = position_jitter(), alpha=.5) +
  geom_linerange(aes(ymin=lis, ymax=uis), position = position_jitter(), alpha=.05) +
  facet_wrap(~covariate, scale="free_x") 

点和范围有不同的紧张情绪。

如果我这样做：

ggplot(df, aes(x=covariate_level, y=y)) +
  geom_pointrange(aes(ymin=lis, ymax=uis), position = position_jitter(), alpha=.1) + 
  facet_wrap(~covariate, scale="free_x") 

很难看清分数。

我无法解决的一个解决方案是向x变量添加抖动，即将其设为数字​​，然后修复x轴上的标签 - 似乎无法修复标签因为分面。