无法在ggplot -R上放置批注

# 导入所需的包
library(ggplot2)
library(gridExtra)

# 创建示例数据
data <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 4, 6, 8, 10))

# 创建第一个图形对象
plot1 <- ggplot(data, aes(x, y)) + 
  geom_point() +
  labs(title = "Scatter Plot")

# 创建第二个图形对象
plot2 <- ggplot(data, aes(x, y)) + 
  geom_line() +
  labs(title = "Line Plot")

# 创建批注
annotation <- "这是一个批注"

# 使用grid.arrange组合图形和批注
combined_plot <- grid.arrange(plot1, plot2, 
                              annotations = textGrob(annotation, 
                                                    x = 0.5, 
                                                    y = 0.1))

# 显示组合图形和批注
print(combined_plot)