以下记录，为遇到的问题，记录一下。

1. xls转换成csv文件

有时候R处理的问题，使用其他程序读取是有问题的，所以通用->转换

input_file = "D:/aR_project/test_scaner/xls_data/first_3_lines.xls"

# 读取.xls文件
data <- read.table(input_file,sep = "\t",header = TRUE, check.names = FALSE)

# 查看前三列数据
# head(data[, 1:3])

# 查看后三列数据
# tail(data[, (ncol(data)-2):ncol(data)])
# 将数据保存为 CSV 文件
write.csv(data, file = "xls_data/first3_lines.csv", row.names = TRUE)

# 打印成功保存的消息
cat("数据已保存到 output_file.csv 文件中。\n")

# 读取 CSV 文件
data <- read.csv("xls_data/first3_lines.csv")

# 查看数据框的维度
print(dim(data)) # 2 17000