Bagaimana cara menambahkan baris ke bingkai data di R?

Di R, bagaimana Anda menambahkan baris baru ke bingkai data setelah bingkai data telah diinisialisasi?

Sejauh ini saya punya ini:

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

Bantuan apa pun akan dihargai

Seperti yang ditunjukkan oleh @Khashaa dan @Richard Scriven dalam komentar, Anda harus menetapkan nama kolom yang konsisten untuk semua bingkai data yang ingin Anda tambahkan.

Karenanya, Anda harus secara eksplisit mendeklarasikan nama kolom untuk bingkai data kedua de,, lalu gunakan rbind(). Anda hanya mengatur nama kolom untuk data frame pertama, 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)

Mari kita membuatnya sederhana:

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

Atau, seperti yang terinspirasi oleh @MatheusAraujo:

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

Ini akan memungkinkan untuk tipe data campuran.

Ada sekarang add_row()dari paket tibbleatau tidyverse.

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

Kolom yang tidak ditentukan mendapatkan NA.

Saya suka listbukan ckarena menangani tipe data campuran lebih baik. Menambahkan kolom tambahan ke pertanyaan pengirim asli:

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

Perhatikan bahwa beberapa kontrol tambahan diperlukan jika konversi string / faktor penting.

Atau menggunakan variabel asli dengan solusi dari MatheusAraujo / Ytsen de Boer:

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

Perhatikan bahwa solusi ini tidak bekerja dengan baik dengan string kecuali ada data yang ada di dalam kerangka data.

Tidak terlalu anggun, tapi:

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

Dari dokumentasi rbindfungsi:

Untuk rbindnama-nama kolom diambil dari argumen pertama dengan nama-nama yang sesuai: nama-nama untuk matriks ...

Saya perlu menambahkan stringsAsFactors=FALSEsaat membuat kerangka data.

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

Pastikan untuk menentukan stringsAsFactors=FALSEkapan membuat bingkai data:

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

Gagal digunakan stringsAsFactors=FALSEsaat membuat kerangka data akan menghasilkan kesalahan berikut saat mencoba menambahkan baris baru:

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

Ada cara yang lebih sederhana untuk menambahkan catatan dari satu kerangka data ke kerangka data lain JIKA Anda tahu bahwa kedua kerangka data tersebut berbagi kolom dan jenis yang sama. Untuk menambahkan satu baris dari xxke yyhanya melakukan berikut di mana iadalah i'th baris dalam xx.

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

Sederhana seperti itu. Tidak ada ikatan yang berantakan. Jika Anda perlu menambahkan semua xxuntuk yy, maka panggil satu lingkaran atau manfaatkan kemampuan urutan R dan lakukan ini:

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

Jika Anda ingin membuat bingkai data kosong dan menambahkan konten dalam satu lingkaran, hal berikut ini dapat membantu:

# 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

Semoga bermanfaat :)