r - r：将文本添加到绘图而不被截断

Question

我正在使用riverplot 包，我正在尝试将文本添加到情节中作为每个时期的标签。我想在情节底部添加文字，但它被切断了。

如何在不被截断的情况下在绘图参数附近添加文本？

library(riverplot)
library(tidyverse)

river <- riverplot.example()
test <- plot(river,plot_area=0.9)

labels <- as_tibble(distinct(test$nodes["x"])) %>%
    dplyr::mutate(y=0) %>%
    dplyr::mutate(label="your \n text \n here")


text(labels$x,labels$y,labels=labels$label,cex=1,pos=1)