用R语言写脚本：让数据处理更省心

很多人觉得R语言只是做统计图、跑模型的工具，其实它写脚本的能力也很实用。比如你每天要整理销售数据，手动打开Excel复制粘贴，费时还容易出错。这时候写个R脚本，一键读文件、算汇总、生成报表，早上到公司点一下就搞定。

从最简单的开始：自动读取CSV文件

假设你手头有一堆.csv格式的订单记录，想把它们合并成一个总表。可以写个R脚本自动完成：

file_list <- list.files(pattern = "*.csv")
data_list <- lapply(file_list, read.csv)
combined_data <- do.call(rbind, data_list)
write.csv(combined_data, "all_orders.csv", row.names = FALSE)

这段代码会找出当前目录下所有CSV文件，逐个读进来，拼成一张大表，再保存为all_orders.csv。以后新来一批数据，只要放进同一个文件夹，重新运行脚本就行。

加点判断逻辑，应对异常情况

有时候数据格式不对，或者文件缺失，脚本直接报错就白搭了。可以在脚本里加些简单判断：

if (length(file_list) == 0) {
  print("警告：没有找到CSV文件！")
} else {
  data_list <- lapply(file_list, read.csv)
  combined_data <- do.call(rbind, data_list)
  write.csv(combined_data, "all_orders.csv", row.names = FALSE)
}

这样哪怕忘了放文件，脚本也不会崩溃，而是提醒你检查目录。

定时执行？交给系统任务计划

Windows有个“任务计划程序”，Mac和Linux可以用cron，配合Rscript命令就能让脚本定时跑。比如每天早上8点半自动更新报表：

Rscript C:\\scripts\\merge_orders.R

只要把这行命令添加到计划任务里，以后不用动手，数据准时就位。适合那些每周都要交汇总的活儿，再也不用临时抱佛脚。

小技巧：出错了也能知道哪一步卡住

脚本跑着跑着失败，却不知道停在哪一步？在关键位置加几句print提示：

print("开始读取文件...")
data_list <- lapply(file_list, read.csv)
print(paste("成功读取", length(data_list), "个文件"))

运行时看着控制台输出，一目了然。就像烧菜时看步骤提示，不会糊锅。

写R脚本不一定要多复杂，能解决眼前问题就是好用。从一个小任务开始试试，慢慢你会发现，电脑维护不只是清垃圾、杀病毒，让重复操作自动化，才是真正省心。