Read CSV and create data frame

Question

I would like to save the following commands in a shorter way so that each time I do not repeat the same actions.

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")

You can either use a loop (like `lapply`) or write a function or do both. Have you tried anything? — talat, Nov 13 '17 at 14:02
Some inspiration: https://stackoverflow.com/q/32888757/2204410 — Jaap, Nov 13 '17 at 14:10

David Klotz · Accepted Answer · 2017-11-13T14:58:54.683

0

As docendo suggested, just generalize your repeated steps into a function:

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")

edited Nov 13 '17 at 14:58

answered Nov 13 '17 at 14:12

David Klotz

2,401
1
7
16

In my above example the result is this: > data_sets=c("data","data2") > data_sets [1] "data" "data2" – Kim Nov 13 '17 at 14:41

Read CSV and create data frame

1 Answers1