编写一个返回ggplot2图形向量的函数

# 加载所需的库
library(ggplot2)

# 创建一个函数来生成ggplot2图形向量
create_ggplot_vector <- function(data, x_var, y_var, title) {
  # 创建一个图形向量
  ggplot_vector <- ggplot(data, aes(x = data[[x_var]], y = data[[y_var]])) +
    geom_point() +
    labs(title = title, x = x_var, y = y_var) +
    theme_minimal()
  
  # 返回图形向量
  return(ggplot_vector)
}

# 使用内置的mtcars数据集创建一个图形向量
ggplot_vector <- create_ggplot_vector(data = mtcars, x_var = "mpg", y_var = "hp", title = "MPG vs HP")

# 打印图形向量
print(ggplot_vector)