如何一次绘制数据集R中特定列的多个直方图

# 读取数据集
data <- read.csv("data.csv")

# 指定要绘制直方图的列
columns <- c("column1", "column2", "column3")

# 创建一个空的图形窗口
par(mfrow = c(1, length(columns)))

# 循环绘制直方图
for (i in 1:length(columns)) {
  # 选择要绘制直方图的列
  column <- data[[columns[i]]]
  
  # 绘制直方图
  hist(column, main = columns[i], xlab = "Value", ylab = "Frequency")
}

# 关闭图形窗口
dev.off()