Comment ajouter une ligne à un bloc de données dans R?

Dans R, comment ajouter une nouvelle ligne à un bloc de données une fois que le bloc de données a déjà été initialisé?

Jusqu'à présent, j'ai ceci:

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

Toute aide serait appréciée

Comme @Khashaa et @Richard Scriven le soulignent dans les commentaires, vous devez définir des noms de colonne cohérents pour tous les blocs de données que vous souhaitez ajouter.

Par conséquent, vous devez déclarer explicitement les noms de colonnes pour le deuxième bloc de données,, depuis utiliser rbind(). Vous définissez uniquement les noms de colonnes pour la première trame de données, 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)

Faisons simple:

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

Ou, comme inspiré par @MatheusAraujo:

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

Cela permettrait des types de données mixtes.

Il y a maintenant add_row()des packages tibbleou tidyverse.

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

Les colonnes non spécifiées obtiennent un NA.

J'aime listplutôt cparce qu'il gère mieux les types de données mixtes. Ajout d'une colonne supplémentaire à la question de l'affiche originale:

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

Notez qu'un contrôle supplémentaire est nécessaire si la conversion chaîne / facteur est importante.

Ou en utilisant les variables originales avec la solution de MatheusAraujo / Ytsen de Boer:

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

Notez que cette solution ne fonctionne pas bien avec les chaînes sauf s'il existe des données dans le dataframe.

Pas très élégant, mais:

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

De la documentation de la rbindfonction:

Pour les rbindnoms de colonne sont tirés du premier argument avec les noms appropriés: colnames pour une matrice ...

Je dois ajouter stringsAsFactors=FALSElors de la création du dataframe.

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

Assurez-vous de spécifier stringsAsFactors=FALSElors de la création du dataframe:

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

stringsAsFactors=FALSESi vous ne l' utilisez pas lors de la création du dataframe, l'erreur suivante se produira lors de la tentative d'ajout de la nouvelle ligne:

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

Il existe un moyen plus simple d'ajouter un enregistrement d'un dataframe à un autre SI vous savez que les deux dataframes partagent les mêmes colonnes et types. Pour ajouter une ligne de xxà, yyprocédez comme suit: où se itrouve la i'ème ligne xx.

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

Aussi simple que cela. Pas de liaisons désordonnées. Si vous devez tout ajouter xxà yy, appelez une boucle ou profitez des capacités de séquence de R et procédez comme suit:

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

Si vous souhaitez créer un bloc de données vide et ajouter du contenu dans une boucle, les éléments suivants peuvent vous aider:

# 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

J'espère que ça aide :)