CSVを読み込んでデータフレームを作成

Question

以下のコマンドを短時間で保存して、同じ操作を繰り返さないようにします。 docendoが示唆したように

aa <- read_excel("C:/Users/Piotr/Desktop/aa.xlsx") 
bb <- read_excel("C:/Users/Piotr/Desktop/bb.xlsx") 

data=as.data.frame(aa[1:100,c(1, 18, 20, 22, 35, 39, 41, 44)]) 
row.names(data) <- data$Player 
data=data[,-1] 

data2=as.data.frame(bb[1:100,c(1, 18, 20, 22, 35, 39, 41, 44)]) 
row.names(data2) <- data2$Player 
data2=data2[,-1] 

data_sets <- c("data","data2") 

Answer 1

、単に機能にあなたの繰り返しのステップを一般：あなたは（lapply` `のような）ループを使用するか、または関数を書くか、その両方を行うことができますいずれか

clean_data <- function(x) { 

data <- read_excel(paste0("C:/Users/Piotr/Desktop/", x, ".xlsx")) 
data=as.data.frame(data[1:100,c(1, 18, 20, 22, 35, 39, 41, 44)]) 
    row.names(data) <- data$Player 
    data=data[,-1] 
return(data) 
} 

data_sets = c(clean_data("aa"), clean_data("bb")) 
names(data_sets) = c("data", "data2")