在x轴下注释

Question

我的数据如下：

dat <- data.frame(
  rate = sample(1:30),
  group = sample(c("grp1", "grp2", "grp3"))
)

dat <- dat[order(dat$group),]

dat <- dat %>% group_by(group) %>% mutate(groupid = row_number())

我想按组绘制折线图并在x轴下添加文本，我尝试过：

ggplot(dat, aes(x = groupid, y = rate, group = group, colour = group)) + 
  geom_line() +
  geom_point() +
  scale_x_continuous(name = "", breaks = seq(1, 10, by = 1)) +
  annotate("text", x = 3, y = -3, size = 3.5,label = "2016")

，但文本绘制在图形内部而不是图形下方。 我希望2016年数字不高于3。有什么建议吗？

谢谢！