R 几何抖动标记点

Question

我正在制作与房地产相关的抖动图。绘制的变量是建筑物和拖欠状态（例如太小、小、中、高、太高），这是一个因素。在数据集中，我还有居民的名字和他欠的余额。

这是图表：

我想添加此图表中包含的居民姓名。

我尝试使用：

geom_text(aes(label=resident))

Ì以前用过这个，但似乎不起作用，它向我显示此警告。

In argument: balance = as.integer(gsub("\\$", "", balance))

各自的名字应该放在点旁边。这是代码：

eigpm %>% clean_names() %>%
  mutate(d_status = str_sub(eigpm$Delinquency.Status,1,2)) %>%
  mutate(balance = as.integer(gsub("\\$", "", balance)),
         d_status = as.integer(d_status)
         ) %>%
  mutate(property_name = as.factor(property_name)) %>%
  mutate(delinquency_status = as.factor(delinquency_status)) %>%
  arrange(desc(balance)) %>%
  filter(! is.na(delinquency_status)) %>%
  filter(delinquency_status!="") %>%
  ggplot(aes(x=property_name, y=d_status, color=property_name, size=balance)) +
  geom_jitter(alpha=0.5) +
  scale_y_continuous(breaks = c(1:11)) +
  theme(axis.text.x = element_text(angle=90),
        legend.position = "bottom") +
  labs(x= "Properties", y="Delinquency Status") +
  guides(color=F) +
  geom_text(aes(label=resident))