如何在不同 geom_col 绘图的恒定垂直位置注释文本

Question

我需要编写一个函数，该函数将为具有不同列数的不同数据创建geom_plot。我需要在绘图的固定位置添加文本注释，无论它将有多少列。它将始终在y = 1.02 上，我希望它始终与右侧对齐。我对单个情节的尝试如下：

mtcars %>% 
    mutate(gear = as.factor(as.character(gear))) %>% 
    group_by(gear) %>% summarise(qsec = sum(qsec)) %>% 
    mutate(qsec_index = qsec / mean(qsec)) %>% 
    ggplot() + 
        geom_col(aes(gear, qsec_index)) + 
        geom_hline(aes(yintercept = 1)) + 
        geom_text(aes(x = 3.4, y = 1.02, label = 'Average'))

但是，无论我的基础数据是否有 2、4、5 等列，我如何才能使其始终与右侧对齐？

Answer 1

您可以根据 x 变量的级别数放置注释。这里我们用carb代替gear来演示：

mtcars %>% 
    mutate(carb = as.factor(as.character(carb))) %>% 
    group_by(carb) %>% summarise(qsec = sum(qsec)) %>% 
    mutate(qsec_index = qsec / mean(qsec)) %>% 
    ggplot() + 
        geom_col(aes(carb, qsec_index)) + 
        geom_hline(aes(yintercept = 1)) + 
        geom_text(aes(x = length(levels(carb)) + .4, y = 1.02, label = 'Average'),
                  hjust = 1, vjust = -1)

它仍然可以使用gear：

mtcars %>% 
    mutate(gear = as.factor(as.character(gear))) %>% 
    group_by(gear) %>% summarise(qsec = sum(qsec)) %>% 
    mutate(qsec_index = qsec / mean(qsec)) %>% 
    ggplot() + 
        geom_col(aes(gear, qsec_index)) + 
        geom_hline(aes(yintercept = 1)) + 
        geom_text(aes(x = length(levels(gear)) + .4, y = 1.02, label = 'Average'),
                  hjust = 1, vjust = -1)

^{由reprex package (v0.3.0) 于 2020 年 4 月 7 日创建}