R'de bir veri çerçevesine nasıl satır eklenebilir?

R'de, veri çerçevesi zaten başlatıldıktan sonra bir veri çerçevesine yeni bir satırı nasıl eklersiniz?

Şimdiye kadar şuna sahibim:

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

Herhangi bir yardım takdir edilecektir

@ Khashaa ve @Richard Scriven'in yorumlarda belirttiği gibi, eklemek istediğiniz tüm veri çerçeveleri için tutarlı sütun adları belirlemeniz gerekir.

Bu nedenle, ikinci veri çerçevesi için sütun adlarını açıkça belirtmeniz ve deardından kullanmanız gerekir rbind(). Yalnızca ilk veri çerçevesi için sütun adlarını ayarlarsınız 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)

Basitleştirelim:

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

Veya @MatheusAraujo'dan ilham aldığı gibi:

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

Bu, karışık veri türlerine izin verir.

Şimdi var add_row()dan tibbleveya tidyversepaketler.

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

Belirtilmemiş sütunlar bir NA.

Bunun listyerine, ckarışık veri türlerini daha iyi işlediği için seviyorum . Orijinal göndericinin sorusuna ek bir sütun eklemek:

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

Dizi / faktör dönüşümü önemliyse bazı ek kontrollerin gerekli olduğunu unutmayın.

Veya MatheusAraujo / Ytsen de Boer'in çözümüyle orijinal değişkenleri kullanarak:

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

Veri çerçevesinde mevcut veriler olmadıkça bu çözümün dizelerle iyi çalışmadığını unutmayın.

Çok zarif değil ama:

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

rbindFonksiyonun dokümantasyonundan :

rbindSütun isimleri için uygun isimlerle ilk bağımsız değişkenden alınır: bir matris için sütun isimleri ...

Ben eklemeniz gerekir stringsAsFactors=FALSEdataframe oluştururken.

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

Belirtmek için emin olun stringsAsFactors=FALSEdataframe oluştururken:

> 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=FALSEVeri çerçevesini oluştururken kullanılmaması , yeni satırı eklemeye çalışırken aşağıdaki hataya neden olur:

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

İki veri çerçevesinin aynı sütunları ve türleri paylaştığını biliyorsanız, bir veri çerçevesinden diğerine kayıt eklemenin daha basit bir yolu vardır. Dan bir satır eklemek için xxiçin yysadece aşağıdakileri yapmanız iolduğu iiçinde 'inci satır xx.

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

Bu kadar basit. Dağınık bağ yok. Eğer tüm eklemek gerekirse xxetmek yy, ardından ya bir döngü arayabilir veya R'ın dizisi yeteneklerini yararlanmak ve bunu:

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

Boş bir veri çerçevesi oluşturmak ve bir döngüde içerik eklemek istiyorsanız, aşağıdakiler yardımcı olabilir:

# 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

Umarım yardımcı olur :)