网站的费用可以做无形资产吗/甘肃百度推广电话

数据导入

CSV 文件： 使用 read.csv() 函数导入逗号分隔的文本文件。

data <- read.csv("data.csv")

Excel 文件： 使用 readxl 包中的函数 read_excel() 导入 Excel 文件。

install.packages("readxl")  # 安装 readxl 包（如果尚未安装）
library(readxl)
data <- read_excel("data.xlsx")

文本文件： 使用 readLines() 函数读取文本文件的内容。

lines <- readLines("textfile.txt")

数据导出

CSV 文件： 使用 write.csv() 函数将数据写入逗号分隔的文件。

write.csv(data, "output.csv", row.names = FALSE)

Excel 文件： 使用 openxlsx 包中的函数 write.xlsx() 将数据写入 Excel 文件。

install.packages("openxlsx")  # 安装 openxlsx 包（如果尚未安装）
library(openxlsx)
write.xlsx(data, "output.xlsx")

文本文件： 使用 writeLines() 函数将文本写入文件。

text <- "Hello, world!"
writeLines(text, "output.txt")

批量导入

如果您有多个文件需要批量导入，可以使用循环结构和文件列表来实现

# 获取文件列表
file_list <- list.files(pattern = "*.csv")  # 以 .csv 扩展名为例# 循环导入文件
data_list <- list()
for (file in file_list) {data <- read.csv(file)data_list[[file]] <- data
}