2つのギオムのx軸の位置をどのようにずらすのですか

Question

私はggplotのプロットを持っています。私はジッタのある点に相対的なエラーバーをシフトする必要があります。私のコードは次のとおりです。

data("cabbages", package = "MASS") 

require("ggplot2") 

pos_1 <- position_jitterdodge(
    jitter.width = 0.25, 
    jitter.height = 0, 
    dodge.width = 0.9 
) 

gg <- 
    ggplot(data = cabbages, 
      aes(
       x  = Cult, 
       y  = HeadWt, 
       colour = Cult, 
       fill = Cult 
       )) + 

    geom_jitter(alpha = 0.4, position = pos_1) + 

    stat_summary(fun.y = "mean", geom = "point", size = 3) + 

    stat_summary(fun.data = "mean_cl_normal", 
       geom = "errorbar", 
       width = 0.05, 
       lwd = 1, 
       fun.args = list(conf.int = 0.95) 
) + 

    theme_bw() 

print(gg) 

現在の結果は次のとおりです。

そして、私はこのような何か必要があります：あなたがでaesにxにオフセットを追加することがあり

Answer 1

を各stat_summary（aes(x = as.numeric(Cult) + 0.2)）：

ggplot(data = cabbages, 
     aes(x = Cult, 
      y  = HeadWt, 
      colour = Cult, 
      fill = Cult)) + 
    geom_jitter(alpha = 0.4, position = pos_1) + 
    stat_summary(aes(x = as.numeric(Cult) + 0.2), fun.y = "mean", geom = "point", size = 3) + 
    stat_summary(aes(x = as.numeric(Cult) + 0.2), fun.data = "mean_cl_normal", 
       geom = "errorbar", 
       width = 0.05, 
       lwd = 1, 
       fun.args = list(conf.int = 0.95)) + 
    theme_bw()