数据
我有一个名为" list "的dataframe
;如下:
名称 | 机构 | 院系 | 亚当 | xxx |
---|---|---|
夜道明> | yyy | |
打鼾声 | ||
C | xxx |
使用apply
循环,而不是paste
,使用file.path
形成无扩展名的文件名。然后paste0
扩展。
parent_dir<-"Documents/Files"
apply(List, 1, (x, parent_dir, ext){
f <- file.path(parent_dir, x[2], x[3], x[1])
paste0(f, ext)
}, parent_dir = parent_dir, ext = ".xlsx")
#[1] "Documents/Files/A/xxx/Adam.xlsx"
#[2] "Documents/Files/B/yyy/Eve.xlsx"
#[3] "Documents/Files/A/zzz/John.xlsx"
#[4] "Documents/Files/C/xxx/Jane.xlsx"
注意:要在路径名前添加"/"
条,请将其添加到parent_dir
:
parent_dir <- "/Documents/Files"
数据
List <- read.table(text = "
Name Institution Department
Adam A xxx
Eve B yyy
John A zzz
Jane C xxx
", header = TRUE)