Добавление новой строки в существующий фрейм данных с функцией

Question

Я хочу, чтобы добавить новую строку в существующий фрейм данных, используя функцию следующим образом:

df <- data.frame(num1 = numeric(), 
       num2 = numeric(), 
       int1 = integer(), 
       chr1 = character(), 
       stringsAsFactors=FALSE) 

filler <- function() { 
    newrow = c(0.1, 0.01, 100, "char") 
    df[nrow(df)+1, ] <- newrow 
    assign(x = "df", value = df, envir = .GlobalEnv) 
} 
filler 

, но ничего не происходит.

Я хотел бы получить следующий вывод:

> df 
    num1 num2 int1 chr1 
1 0.1 0.01 100 char 

Примечание: Я не хочу, чтобы определить новую таблицу в пределах функции, потому что я хочу, чтобы повторно запустить функцию впоследствии с различными «NewRow» значения.

Answer 1

Я считаю, что это должно сделать трюк для вас. Я использовал общую строку, чтобы вы могли передавать новые значения в фрейм данных. Вы можете передать вектор значений, выполнив следующие действия: с (значение1, значение2, value3, value4)

df <- data.frame(num1 = numeric(), 
       num2 = numeric(), 
       int1 = integer(), 
       chr1 = character(), 
       stringsAsFactors=FALSE) 

row_attempt <- c(1,2,3,"Master") 

filler <- function(frame_to_attach, my_row){ 
    newrow = my_row 
    data_frame <- rbind(frame_to_attach,my_row) 
    colnames(data_frame) <- colnames(frame_to_attach) 
    return(data_frame) 
} 

z <- filler(df, row_attempt) 
z