如何在R中的ggplot中为两个并排的图上的滚动条添加标签？

install.packages("ggplot2")
install.packages("gridExtra")

library(ggplot2)
library(gridExtra)

library(ggplot2)
library(gridExtra)

# 创建第一个图形对象
plot1 <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point() +
  labs(title = "Scatterplot of Sepal Length and Width")

# 创建第二个图形对象
plot2 <- ggplot(data = iris, aes(x = Petal.Length, y = Petal.Width)) +
  geom_point() +
  labs(title = "Scatterplot of Petal Length and Width")

# 将两个图形对象并排显示，并添加滚动条标签
grid.arrange(plot1, plot2, ncol = 2)

# 在第一个图形上添加滚动条标签
plot1 <- plot1 +
  annotate("text", x = 5, y = 4, label = "Scrollbar")

# 在第二个图形上添加滚动条标签
plot2 <- plot2 +
  annotate("text", x = 2, y = 1, label = "Scrollbar")

# 再次将两个图形对象并排显示，并添加滚动条标签
grid.arrange(plot1, plot2, ncol = 2)