R语言如何遍历所有数据选出某两列满足条件的并导出excel

假设数据存储在一个数据框中，可以使用以下代码遍历数据框的所有行，并选出满足条件的两列：

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

# 定义条件函数
condition <- function(x) {
  # 假设需要选出第一列和第三列数据中值大于10的行
  x[1] > 10 & x[3] > 10
}

# 选出满足条件的数据
selected_data <- data[apply(data, 1, condition), c(1, 3)]

# 导出Excel文件
library(openxlsx)
write.xlsx(selected_data, "selected_data.xlsx")

这里使用了apply函数来遍历数据框的所有行，并将每一行传递给条件函数condition进行判断。如果返回值为TRUE，则表示该行满足条件，将其选出。最后，使用write.xlsx函数将选出的数据导出为Excel文件。需要注意，这里使用了openxlsx包，需要先安装并加载该包。