如果你想将文本精确地放置在绘图边界上，可以使用 +Inf 和 -Inf。由于我们不再从 mpg 计算位置，可以使用 tibble() 来创建数据框：

label <- tibble( displ = Inf, hwy = Inf, label = paste( "发动机排量增大与\n燃油经济性下降" "相关。" ) ) ggplot(mpg, aes(displ, hwy)) + geom_point() + geom_text( aes(label = label), data = label, vjust = "top", hjust = "right" )