248.png
以下记录，为遇到的问题，记录一下。
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
2. 代码的运行路径
设置当前运行代码的当前路径
在R中，使用setwd()函数可以设置当前工作目录，但是要注意的是，R本身并没有直接提供获取正在运行代码文件的路径的方法。不过，你可以使用rstudioapi包提供的功能来实现这一目的。下面是一个示例代码：
# 如果没有安装过 rstudioapi 包，请先安装
# install.packages("rstudioapi")
library(rstudioapi)
# 获取当前正在运行代码文件的路径
current_script_path <- getActiveDocumentContext()$path
# 将路径转换为当前目录
current_directory <- dirname(current_script_path)
# 设置当前工作目录
setwd(current_directory)
这段代码首先使用getActiveDocumentContext()函数获取当前正在运行的代码文件的路径，然后使用dirname()函数提取路径中的目录部分，最后使用setwd()函数将该目录设置为当前工作目录。
