Wie kann eine Zeile zu einem Datenrahmen in R hinzugefügt werden?

Wie fügt man in R einem Datenrahmen eine neue Zeile hinzu, nachdem der Datenrahmen bereits initialisiert wurde?

Bisher habe ich Folgendes:

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

Jede Hilfe wäre dankbar

Wie @Khashaa und @Richard Scriven in Kommentaren hervorheben, müssen Sie für alle Datenrahmen, die Sie anhängen möchten, konsistente Spaltennamen festlegen.

Daher müssen Sie die Spaltennamen für den zweiten Datenrahmen explizit deklarieren deund dann verwenden rbind(). Sie legen nur Spaltennamen für den ersten Datenrahmen fest 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)

Machen wir es einfach:

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

Oder, inspiriert von @MatheusAraujo:

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

Dies würde gemischte Datentypen ermöglichen.

Es gibt jetzt add_row()aus den tibbleoder tidyversePaketen.

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

Nicht spezifizierte Spalten erhalten eine NA.

Ich mag liststatt, cweil es gemischte Datentypen besser handhabt. Hinzufügen einer zusätzlichen Spalte zur Frage des Originalplakats:

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

Beachten Sie, dass eine zusätzliche Steuerung erforderlich ist, wenn die Zeichenfolge / Faktor-Konvertierung wichtig ist.

Oder verwenden Sie die ursprünglichen Variablen mit der Lösung von MatheusAraujo / Ytsen de Boer:

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

Beachten Sie, dass diese Lösung mit den Zeichenfolgen nur dann gut funktioniert, wenn Daten im Datenrahmen vorhanden sind.

Nicht besonders elegant, aber:

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

Aus der Dokumentation der rbindFunktion:

Denn rbindSpaltennamen werden aus dem ersten Argument mit entsprechenden Namen übernommen: Spaltennamen für eine Matrix ...

Ich muss stringsAsFactors=FALSEbeim Erstellen des Datenrahmens hinzufügen.

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

stringsAsFactors=FALSEStellen Sie sicher, dass Sie beim Erstellen des Datenrahmens Folgendes angeben:

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

Wenn Sie stringsAsFactors=FALSEden Datenrahmen nicht erstellen, wird beim Versuch, die neue Zeile hinzuzufügen, der folgende Fehler angezeigt:

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

Es gibt eine einfachere Möglichkeit, einen Datensatz von einem Datenrahmen an einen anderen anzuhängen, wenn Sie wissen, dass die beiden Datenrahmen dieselben Spalten und Typen verwenden. Anhängen eine Zeile aus xxzu yynur folgendes tun , wo idie i‚ten Zeile in xx.

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

So einfach ist das. Keine unordentlichen Bindungen. Wenn Sie alle anhängen müssen xxan yy, dann rufen Sie entweder eine Schleife oder nutzen Sequenz Fähigkeiten des R und dies tun:

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

Wenn Sie einen leeren Datenrahmen erstellen und Inhalte in einer Schleife hinzufügen möchten, kann Folgendes hilfreich sein:

# 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

Ich hoffe es hilft :)