r - 使用 ggplot2 有条件地为条形图分配 geom_text 位置

Question

我在 ggplot2 中制作带有混合符号值的条形图时遇到问题。举个例子:

df <- data.frame(year = letters[1:2],
                 value = c(1, -1))

ggplot(df, aes(year, value)) +
  geom_col() +
  geom_text(aes(label = value), vjust = 0.0, size = 5)

产生:

我希望与文本的位置保持一致 - 在条形下方或上方。这很棘手，因为在上图中的两种情况下，文本都在值的正上方。但是，由于第一个值为正而第二个值为负，因此文本出现在相对于栏的不同位置。我希望看到的是(红色调整):

我的问题是:是否可以根据值的符号有条件地格式化标签放置？

Answer 1

df <- data.frame(year = letters[1:3],
                 value = c(1, -1,-5)) %>%
    mutate(text_location = ifelse(value < 0,0,value))

ggplot(df, aes(year, value)) +
    geom_col() +
    geom_text(aes(y = text_location,label = value), vjust = 0.0, size = 5)