Как загрузить один CSV в нескольких таблицах с R

Question

Я работаю с набором данных, которые имеют несколько заголовков:

Lap 1   Athlete   Speed   Distance
        Player 01 5       767
        Player 02 9       886
        Player 03 19      981
Lap 2   Athlete   Speed   Distance
        Player 01 7       876
        Player 02 6       454
        Player 03 14      998
Lap 3   Athlete   Speed   Distance
        Player 01 8       097
        Player 02 9       556
        Player 03 7       453

В RStudio я хочу разделить эти данные. Вот мой код:

setwd("E:/Data/R/M1UltimateAnalysis")
DATA_SET_MAIN <- read.csv2("data/dataset.csv", header = FALSE)

DATA_SET_LAPS = split(DATA_SET_MAIN,
                      sample(rep(1:3,4)))

DATA_SET_LAP_1 = DATA_SET_LAPS$`1`
write.csv(DATA_SET_LAP_1,
          file="First_lap.csv",
          quote = F,
          row.names = F)

Но раскол упорядочен во что-то совершенно случайное и без заголовка.

Как я могу сделать это в R? Спасибо.

Answer 1

Вы используете функцию выборки, которая в данном случае скремблирует rep(1:3,4), это назначает случайные номера строк для функции разделения, используемой при сортировке.

Сначала вам нужно удалить строки с заголовками. Вы можете использовать это как заголовки в первую очередь names(DATA_SET_MAIN) <- as.character(DATA_SET_MAIN[1,]) DATA_SET_MAIN <- DATA_SET_MAIN[DATA_SET_MAIN[,1] == '', ]

Затем вы можете удалить первый столбец:

DATA_SET_MAIN[,1] <- NULL

Тогда вы можете использовать функцию разделения

DATA_SET_LAPS = split(DATA_SET_MAIN,
                  rep(1:3,each = 3))