创建for循环以删除重复项，并将其作为csv从R中数据帧的不同列中导出

# 导入所需的库
library(dplyr)

# 创建一个示例数据框
df <- data.frame(
  col1 = c(1, 2, 3, 4, 5),
  col2 = c(2, 3, 4, 5, 6),
  col3 = c(3, 4, 5, 6, 7)
)

# 创建一个空的数据框，用于存储结果
result <- data.frame()

# 创建for循环来遍历数据框的每一列
for (col in names(df)) {
  # 使用dplyr库中的distinct函数删除重复项
  unique_values <- distinct(df, !!as.symbol(col))
  
  # 将结果添加到结果数据框中的新列
  result[[paste0(col, "_unique")]] <- unique_values[[col]]
}

# 将结果数据框导出为CSV文件
write.csv(result, "output.csv", row.names = FALSE)