帮我写一个R的代码，我给你一个Excel，Excel里面有三列，分别是d18O，d2H和id，我希望把Excel里面的d18O，d2H列的每一行形成一个单独的csv，然后生成的新的csv以id列的值命名，最后生成的csv都放在“E:/长江/20240924”这个文件夹里

你可以使用`readr`包来读取Excel数据，并使用`write_csv`函数将数据保存为单独的CSV文件。以下是相应的R代码：

# 首先安装需要的库，如果没有安装可以运行
# install.packages(c("readxl", "tidyverse")) # 如果尚未安装

library(readxl)
library(tidyverse)

# 确定Excel文件的位置
excel_file <- "your_excel.xlsx" # 替换为你的实际文件路径

# 读取Excel数据
data <- read_excel(excel_file, sheet = 1) # 假设你的数据在第一张工作表

# 使用row.names设置id作为新数据框的索引
data_with_index <- data %>% mutate(row_id = row_number()) %>%
  select(-id) %>% # 如果id不需要在新csv中保留，则删除它
  rename_with(~ paste0("value_", .), d18O:d2H) %>%
  gather(key = "variable", value = "value", -row_id) %>% # 转换为长格式

# 创建目录，如果不存在则创建
dir.create("E:/长江/20240924", showWarnings = FALSE, recursive = TRUE)

# 根据row_id分组并保存到单独的CSV文件中
data_split <- data_with_index %>%
  group_by(row_id) %>%
  do({
    write_csv(data = ., file = paste0("E:/长江/20240924/", deparse(substitute(.))), row.names = FALSE)
  })

# 提示用户检查是否所有的CSV文件已成功生成
cat("\n所有CSV文件已保存至'E:/长江/20240924/'目录下，请检查。\n")

记得替换`your_excel.xlsx`为你的Excel文件的实际路径。这段代码会按照id将d18O和d2H的数据分开保存到单独的CSV文件中。