面向條形圖中帶有負值的條形圖標籤（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"是obviously不是要走的方式，因爲「向內和向外是相對於圖的物理中間，而不是在0軸」。

更新：

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重新精確（而不是僅僅vjust = 0或vjust = 1，你可以從一個邏輯得到），你可以使用ifelse和更準確地定義你的位置：

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' 
      )