如何使用R中的if循环在函数内部使用plot函数绘制图形

# 定义一个函数，它接受一个数据框和一个布尔值作为参数
draw_plot <- function(data, should_plot) {
  # 检查是否应该绘制图形
  if (should_plot) {
    # 如果条件为真，则绘制图形
    plot(data$x, data$y, main="My Plot", xlab="X Axis", ylab="Y Axis")
  } else {
    # 如果条件为假，则打印一条消息
    message("Plotting is skipped.")
  }
}

# 创建一个示例数据框
example_data <- data.frame(x=1:10, y=rnorm(10))

# 调用函数并设置should_plot为TRUE来绘制图形
draw_plot(example_data, should_plot=TRUE)

# 再次调用函数并设置should_plot为FALSE来跳过绘图
draw_plot(example_data, should_plot=FALSE)

# 定义一个函数，它接受一个数据框和一个条件向量作为参数
draw_multiple_plots <- function(data, conditions) {
  # 遍历条件向量
  for (i in seq_along(conditions)) {
    # 检查每个条件是否满足
    if (conditions[i]) {
      # 如果条件为真，则绘制图形
      plot(data$x[i], data$y[i], main=paste("Plot", i), xlab="X Axis", ylab="Y Axis")
    }
  }
}

# 创建一个示例数据框
example_data <- data.frame(x=1:10, y=rnorm(10))

# 定义一个条件向量
condition_vector <- c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE)

# 调用函数来绘制满足条件的图形
draw_multiple_plots(example_data, condition_vector)