Получение ошибки при попытке применить метки geom_text к подмножеству стержней

Я хочу применить 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

Мой сюжет выглядит так: Мой сюжет

Итак, я хочу добавить несколько меток к каждой полосе, где должен отображаться год. Для баров со значением >= 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