基於均值（）和sd（）數據添加多個ggplot2 geom_segment（）

Question

我有一個數據幀mydataAll，列DESWC,journal和highlight。爲了計算的DESWC的平均值和標準偏差對每個journal，我

avg <- aggregate(DESWC ~ journal, data = mydataAll, mean) 
stddev <- aggregate(DESWC ~ journal, data = mydataAll, sd) 

現在我繪製與沿x軸DESWC值的水平帶狀圖，並且每個journal沿y軸。但是對於每個journal，我想用一條簡單的線條來表示標準偏差和平均值。這是我目前的代碼和結果。

stripchart2 <- 
    ggplot(data=mydataAll, aes(x=mydataAll$DESWC, y=mydataAll$journal, color=highlight)) + 
    geom_segment(aes(x=avg[1,2] - stddev[1,2], 
       y = avg[1,1], 
       xend=avg[1,2] + stddev[1,2], 
       yend = avg[1,1]), color="gray78") + 
    geom_segment(aes(x=avg[2,2] - stddev[2,2], 
       y = avg[2,1], 
       xend=avg[2,2] + stddev[2,2], 
       yend = avg[2,1]), color="gray78") + 
    geom_segment(aes(x=avg[3,2] - stddev[3,2], 
       y = avg[3,1], 
       xend=avg[3,2] + stddev[3,2], 
       yend = avg[3,1]), color="gray78") + 
    geom_point(size=3, aes(alpha=highlight)) + 
    scale_x_continuous(limit=x_axis_range) + 
    scale_y_discrete(limits=mydataAll$journal) + 
    scale_alpha_discrete(range = c(1.0, 0.5), guide='none') 
show(stripchart2) 

看到三個水平geom_segments在圖像顯示蔓延的底部？我想爲所有journals這樣做，但沒有手工製作每一個。我試過using the solution from this question，但是當我把一切都放在一個循環，並刪除AES（），它給我一個錯誤，指出：

Error in x - from[1] : non-numeric argument to binary operator 

誰能幫助我凝結geom_segment（）語句？

Answer 1

我生成了一些虛擬數據來演示。首先，我們使用您所做的aggregate，然後結合這些結果創建一個data.frame，其中我們創建了upper和lower列。然後，我們將這些傳遞給指定我們的新數據集的geom_segment。另外，我指定x作爲字符變量，y爲數值型變量，然後用coord_flip()：

library(ggplot2) 
set.seed(123) 
df <- data.frame(lets = sample(letters[1:8], 100, replace = T), 
       vals = rnorm(100), 
       stringsAsFactors = F) 
means <- aggregate(vals~lets, data = df, FUN = mean) 
sds <- aggregate(vals~lets, data = df, FUN = sd) 
df2 <- data.frame(means, sds) 
df2$upper = df2$vals + df2$vals.1 
df2$lower = df2$vals - df2$vals.1 

ggplot(df, aes(x = lets, y = vals))+geom_point()+ 
    geom_segment(data = df2, aes(x = lets, xend = lets, y = lower, yend = upper))+ 
    coord_flip()+theme_bw() 

這裏，lets列將類似於您的字符變量。