¿Cómo se puede agregar una fila a un marco de datos en R?

En R, ¿cómo agrega una nueva fila a un marco de datos una vez que el marco de datos ya se ha inicializado?

Hasta ahora tengo esto:

df <- data.frame("hi", "bye")
names(df) <- c("hello", "goodbye")

#I am trying to add "hola" and "ciao" as a new row
de <- data.frame("hola", "ciao")

merge(df, de) # Adds to the same row as new columns

# Unfortunately, I couldn't find an rbind() solution that wouldn't give me an error

Cualquier ayuda sería apreciada

Como @Khashaa y @Richard Scriven señalan en los comentarios, debe establecer nombres de columna consistentes para todos los marcos de datos que desea agregar.

Por lo tanto, debe declarar explícitamente los nombres de las columnas para el segundo marco de datos dey luego usarlos rbind(). Solo establece los nombres de columna para el primer marco de datos df:

df<-data.frame("hi","bye")
names(df)<-c("hello","goodbye")

de<-data.frame("hola","ciao")
names(de)<-c("hello","goodbye")

newdf <- rbind(df, de)

Hagámoslo simple:

df[nrow(df) + 1,] = c("v1","v2")

O, inspirado por @MatheusAraujo:

df[nrow(df) + 1,] = list("v1","v2")

Esto permitiría tipos de datos mixtos.

Ahora hay add_row()de los paquetes tibbleo tidyverse.

library(tidyverse)
df %>% add_row(hello = "hola", goodbye = "ciao")

Las columnas no especificadas obtienen un NA.

Me gusta en listlugar de cporque maneja mejor los tipos de datos mixtos. Agregar una columna adicional a la pregunta del póster original:

#Create an empty data frame
df <- data.frame(hello=character(), goodbye=character(), volume=double())
de <- list(hello="hi", goodbye="bye", volume=3.0)
df = rbind(df,de, stringsAsFactors=FALSE)
de <- list(hello="hola", goodbye="ciao", volume=13.1)
df = rbind(df,de, stringsAsFactors=FALSE)

Tenga en cuenta que se requiere algún control adicional si la conversión de cadena / factor es importante.

O usando las variables originales con la solución de MatheusAraujo / Ytsen de Boer:

df[nrow(df) + 1,] = list(hello="hallo",goodbye="auf wiedersehen", volume=20.2)

Tenga en cuenta que esta solución no funciona bien con las cadenas a menos que haya datos existentes en el marco de datos.

No es terriblemente elegante, pero:

data.frame(rbind(as.matrix(df), as.matrix(de)))

De la documentación de la rbindfunción:

Para los rbindnombres de columna se toman del primer argumento con nombres apropiados: colnames para una matriz ...

Necesito agregar stringsAsFactors=FALSEal crear el marco de datos.

> df <- data.frame("hello"= character(0), "goodbye"=character(0))
> df
[1] hello   goodbye
<0 rows> (or 0-length row.names)
> df[nrow(df) + 1,] = list("hi","bye")
Warning messages:
1: In `[<-.factor`(`*tmp*`, iseq, value = "hi") :
  invalid factor level, NA generated
2: In `[<-.factor`(`*tmp*`, iseq, value = "bye") :
  invalid factor level, NA generated
> df
  hello goodbye
1  <NA>    <NA>
> 

.

> df <- data.frame("hello"= character(0), "goodbye"=character(0), stringsAsFactors=FALSE)
> df
[1] hello   goodbye
<0 rows> (or 0-length row.names)
> df[nrow(df) + 1,] = list("hi","bye")
> df[nrow(df) + 1,] = list("hola","ciao")
> df[nrow(df) + 1,] = list(hello="hallo",goodbye="auf wiedersehen")
> df
  hello         goodbye
1    hi             bye
2  hola            ciao
3 hallo auf wiedersehen
> 

Asegúrese de especificar stringsAsFactors=FALSEal crear el marco de datos:

> rm(list=ls())
> trigonometry <- data.frame(character(0), numeric(0), stringsAsFactors=FALSE)
> colnames(trigonometry) <- c("theta", "sin.theta")
> trigonometry
[1] theta     sin.theta
<0 rows> (or 0-length row.names)
> trigonometry[nrow(trigonometry) + 1, ] <- c("0", sin(0))
> trigonometry[nrow(trigonometry) + 1, ] <- c("pi/2", sin(pi/2))
> trigonometry
  theta sin.theta
1     0         0
2  pi/2         1
> typeof(trigonometry)
[1] "list"
> class(trigonometry)
[1] "data.frame"

Si no se usa stringsAsFactors=FALSEal crear el marco de datos, se producirá el siguiente error al intentar agregar la nueva fila:

> trigonometry[nrow(trigonometry) + 1, ] <- c("0", sin(0))
Warning message:
In `[<-.factor`(`*tmp*`, iseq, value = "0") :
  invalid factor level, NA generated

Hay una manera más simple de agregar un registro de un marco de datos a otro SI sabe que los dos marcos de datos comparten las mismas columnas y tipos. Para añadir una fila a partir xxde yysimplemente hacer lo siguiente donde ies la i'th en fila xx.

yy[nrow(yy)+1,] <- xx[i,]

Simple como eso. Sin ataduras desordenadas. Si necesita agregar todo xxa yy, entonces llame a un bucle o aproveche las habilidades de secuencia de R y haga esto:

zz[(nrow(zz)+1):(nrow(zz)+nrow(yy)),] <- yy[1:nrow(yy),]

Si desea crear un marco de datos vacío y agregar contenido en un bucle, lo siguiente puede ayudar:

# Number of students in class
student.count <- 36

# Gather data about the students
student.age <- sample(14:17, size = student.count, replace = TRUE)
student.gender <- sample(c('male', 'female'), size = student.count, replace = TRUE)
student.marks <- sample(46:97, size = student.count, replace = TRUE)

# Create empty data frame
student.data <- data.frame()

# Populate the data frame using a for loop
for (i in 1 : student.count) {
    # Get the row data
    age <- student.age[i]
    gender <- student.gender[i]
    marks <- student.marks[i]

    # Populate the row
    new.row <- data.frame(age = age, gender = gender, marks = marks)

    # Add the row
    student.data <- rbind(student.data, new.row)
}

# Print the data frame
student.data

Espero eso ayude :)