[R]文件处理

CSV合并与批量文件重命名

转载于 2016-09-30 11:49:00 发布 · 106 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://yq.aliyun.com/articles/618663

本文介绍如何使用R语言进行CSV文件的合并操作，并演示了如何批量修改文件夹内图片文件的名字，适用于数据整合及文件管理场景。

合并csv

path <- 'E:\\Data\\combine'
setwd(path)
dir(path)
name_table <- as.data.frame(dir(),stringsAsFactors = F) 
initial_data <-
  read.table(paste0(name_table$`dir()`[1]),
             header = TRUE,
             sep = ",")
for(k in 2:length(name_table$`dir()`))
{
    temp_data <-
      read.table(paste0(name_table$`dir()`[k]),
                 header = TRUE,
                 sep = ",")
    
    initial_data <- rbind(initial_data,temp_data)
}

批量修改文件名（ps：修改锁屏壁纸到本地）

path <- 'C:\\Users\\HOHO\\AppData\\Local\\Packages\\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\\LocalState\\Assets'
setwd(path)
dir(path)
fl <- as.data.frame(dir(),stringsAsFactors = F) 
fl_2 <- paste0(fl$`dir()`,".jpg")
fl <- dir()
fl_2 <- as.character(unlist(fl_2))
file.rename(fl, fl_2)