尝试将 geom_text 的标签应用到柱子的子集时出错

Question

我想将 geom_text 应用于一组特定的变量。

我有，例如：

  decade   count
   <dbl> <int>
1   1930   505
2   1940   630
3   1950   806
4   1960   446
5   1970   469
6   1980   807
7   1990  1057
8   2000  1856
9   2010  2133

我的情节是这样的： My plot

所以，我想为每个必须显示年份的栏添加一些标签。对于值 >= 500 的条，我希望标签在条内，其余的我希望在条外。

我尝试用 geom_text 来做到这一点：

geom_col(fill = THISBLUE,
           width = 0.7) +
  geom_text(data = subset(data, count >= 500)
            aes(0, y = name, label = name))

但是，我收到此错误消息：

Error in count >= 500 : comparison (5) is possible only for atomic and list types

Answer 1

这种方法怎么样？

ggplot(df,aes(decade,count)) +
  geom_col(fill = "blue", width = 4) + 
  coord_flip() + 
  geom_text(data = subset(df, count >= 500), aes(label = count),nudge_y = -100,color="white") + 
  geom_text(data = subset(df, count < 500), aes(label = count),nudge_y = 100,color="black")

输入：

df =tribble(
  ~decade,~count,
  
1930,   505,
1940,   630,
1950,   806,
1960,   446,
1970,   469,
1980,   807,
1990,  1057,
2000,  1856,
2010,  2133
)

尝试将 geom_text 的标签应用到柱子的子集时出错

Getting an error while trying to apply the labels of geom_text to a subset of bars

r

ggplot2

geom-text