R studio拆分写入txt文件出错

# 示例代码
data <- data.frame(id = 1:10, name = c("Alice", "Bob", "Charlie"), score = c(85, 90, 78))
data$name <- as.character(data$name)
write.table(data, file = "output.txt", sep = "\t", row.names = FALSE)

# 示例代码
file_path <- "C:/path/to/output.txt"
if (!dir.exists(dirname(file_path))) {
  dir.create(dirname(file_path), recursive = TRUE)
}
write.table(data, file = file_path, sep = "\t", row.names = FALSE)

# 示例代码
library(dplyr)
data_split <- split(data, data$id %% 10) # 将数据按id模10拆分
for (i in seq_along(data_split)) {
  write.table(data_split[[i]], file = paste0("output_", i, ".txt"), sep = "\t", row.names = FALSE)
}

# 示例代码
write.table(data, file = "output.txt", sep = "\t", row.names = FALSE, fileEncoding = "UTF-8")