Добавить дополнительные заголовки к кадру данных

Question

Я читаю в CSV-файле, который имеет три соответствующие строки заголовка. Я хотел бы прочитать в файле, изменить некоторые переменные и экспортировать .csv (сохраняя те же три строки заголовка).

Var1, Var2, VarN
In, Lb, Yrs
Height, Weight, Age
5'8, 180, 40
...

Я сохранил первые две строки заголовка:

headers <- read.csv(filename, header=F, nrows=2, as.is=T)

Я прочитаю остальные данные с одним заголовком (пропуская первые две строки, которые я только что сохранил выше):

df <- read.csv(filename, skip=2, header=T, as.is=T, stringsAsFactors = FALSE)

После внесения ряда изменений в данные я хотел бы добавить их обратно в два заголовка. Использование rbind приводит к ошибке, поскольку имена не совпадают. Количество строк остается неизменным (новые строки не были созданы). Спасибо за любые советы!

Answer 1

#First write your headers to csv
write.table(x = mtcars[1:3,],
            file = "test.csv",
            col.names = TRUE,
            row.names = FALSE,
            sep = ",",
            append = FALSE)

#Then write your modified data
write.table(x = mtcars[-(1:3),] * 2000,
            file = "test.csv",
            col.names = FALSE,  #We've written this the first time
            row.names = FALSE,
            sep = ",",
            append = TRUE)      #add to an existing file