避免在ggplot2中應用alpha美學對geom_text

Question

我有以下ggplot2圖表。我不希望透明度值標籤。

代碼：

ggplot(test, aes(x = reorder(org, -as.numeric(level)), y = obsAvg, fill = level, alpha = round)) + 
    geom_bar(stat = "identity", position = "dodge") + 
    scale_fill_manual(values = c("#E69F00", "#56B4E9", "#009E73")) + 
    scale_alpha_manual(values = c(.5, .75, 1), guide = FALSE) + 
    labs(title = "Average Observation Score by Round", y = "", x = "", fill = "Group") + 
    theme_bw() + 
    geom_text(aes(label = round(obsAvg,1)), vjust = -.5, size = 4, fontface="bold", position = position_dodge(width = .9)) + 
    scale_y_continuous(limits = c(0,4), expand = c(0,0)) + 
    theme(legend.position="bottom") 

數據：

set.seed(1) 
test <- data.frame(
    org = rep(c("Mammals", "Cats", "Tigers", "Lions", "Cheetahs"), 3), 
    level = rep(c("Animals", "Family", rep("Species", 3)), 3), 
    group = rep("Cats",15), 
    round = rep(c("Round1", "Round2", "Round3"),5), 
    obsAvg = runif(15, 1, 4) 
) 

我試圖移動alpha = round是的geom_bar()的審美，但後來我失去了躲閃標籤：

我怎樣才能複製上面的圖，但不適用的透明度審美到我的標籤？

Answer 1

我會將aes(alpha=)移動到geom_bar，然後將aes(group=)添加到geom_text以恢復閃避。

ggplot(test, aes(x = reorder(org, -as.numeric(level)), y = obsAvg, fill = level)) + 
    geom_bar(aes(alpha=round), stat = "identity", position = "dodge") + 
    scale_fill_manual(values = c("#E69F00", "#56B4E9", "#009E73")) + 
    scale_alpha_manual(values = c(.5, .75, 1), guide = FALSE) + 
    labs(title = "Average Observation Score by Round", y = "", x = "", fill = "Group") + 
    theme_bw() + 
    geom_text(aes(label = round(obsAvg,1), group=round), vjust = -.5, size = 4, fontface="bold", position = position_dodge(width = .9)) + 
    scale_y_continuous(limits = c(0,4), expand = c(0,0)) + 
    theme(legend.position="bottom") 

這是一個相當情節。