ggplot2で負の値を持つ棒グラフの「内向き」のバーのラベル

Question

ggplot2の正と負の値を棒グラフで内向きの棒のラベルに設定するにはどうすればよいですか？私。バーのラベルは0軸を向いている必要があります。

df <- data.frame(trt = c("a", "b", "c", "d"), 
       outcome = c(2.3, 1.9, 0.5, -0.5)) 

ggplot(df, aes(trt, outcome, label = outcome)) + 
    geom_bar(stat = "identity", 
      position = "identity") + 
    geom_text(vjust = "inward", color = 'red') 

vjust = "inward"「内外物理プロットの中央ではなく、ここで0軸があるに対するものである」ので、obviously進むべき道ではありません。

更新：

Answer 1

あなたは行ごとに別々に制御することがaesマッピングの内部vjustを設定することができるはず、ここではそれが正または負であるかどうかに基づいて：

ggplot(df, aes(trt, outcome, label = outcome)) + 
    geom_bar(stat = "identity", 
      position = "identity") + 
    geom_text(aes(vjust = outcome > 0) 
      , color = 'red') 

moの周りのラベルを移動する場合は、1（

ggplot(df, aes(trt, outcome, label = outcome)) + 
    geom_bar(stat = "identity", 
      position = "identity") + 
    geom_text(aes(vjust = ifelse(outcome > 0 
           , 1.5, -0.5)) 
      , color = 'red' 
      )