为R中的单个预测变量生成多个散点图

install.packages("ggplot2")
install.packages("dplyr")

library(ggplot2)
library(dplyr)

dataset <- read.csv("your_dataset.csv")

x_variable <- "your_x_variable"

for (variable in colnames(dataset)) {
  if (variable != x_variable && variable != "target_variable") {
    # 创建散点图
    plot_data <- dataset %>%
      select(x_variable, variable)
    
    scatter_plot <- ggplot(plot_data, aes_string(x = x_variable, y = variable)) +
      geom_point() +
      labs(x = x_variable, y = variable) +
      ggtitle(paste("Scatter plot of", variable, "vs.", x_variable))
    
    # 显示散点图
    print(scatter_plot)
  }
}