Làm thế nào có thể thêm một hàng vào khung dữ liệu trong R?

Trong R, làm thế nào để bạn thêm một hàng mới vào khung dữ liệu sau khi khung dữ liệu đã được khởi tạo?

Cho đến nay tôi có điều này:

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

Bất kỳ trợ giúp sẽ được đánh giá cao

Giống như @Khashaa và @Richard Scriven chỉ ra trong các bình luận, bạn phải đặt tên cột nhất quán cho tất cả các khung dữ liệu bạn muốn nối.

Do đó, bạn cần khai báo rõ ràng tên cột cho khung dữ liệu thứ hai de, sau đó sử dụng rbind(). Bạn chỉ đặt tên cột cho khung dữ liệu đầu tiên , 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)

Hãy làm cho nó đơn giản:

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

Hoặc, như được truyền cảm hứng bởi @MeditusAraujo:

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

Điều này sẽ cho phép các loại dữ liệu hỗn hợp.

Bây giờ add_row()từ gói tibblehoặc tidyverse.

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

Các cột không xác định có được một NA.

Tôi thích listthay cvì bởi vì nó xử lý các loại dữ liệu hỗn hợp tốt hơn. Thêm một cột bổ sung cho câu hỏi của người đăng ban đầu:

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

Lưu ý rằng một số điều khiển bổ sung là bắt buộc nếu chuyển đổi chuỗi / yếu tố là quan trọng.

Hoặc sử dụng các biến ban đầu với giải pháp từ MatheusAraujo / Ytsen de Boer:

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

Lưu ý rằng giải pháp này không hoạt động tốt với các chuỗi trừ khi có dữ liệu hiện có trong khung dữ liệu.

Không thanh lịch khủng khiếp, nhưng:

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

Từ tài liệu của rbindchức năng:

Đối với rbindtên cột được lấy từ đối số đầu tiên với tên thích hợp: colnames cho ma trận ...

Tôi cần thêm stringsAsFactors=FALSEkhi tạo 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
> 

Đảm bảo chỉ định stringsAsFactors=FALSEkhi tạo khung dữ liệu:

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

Không sử dụng stringsAsFactors=FALSEkhi tạo dataframe sẽ dẫn đến lỗi sau khi cố gắng thêm hàng mới:

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

Có một cách đơn giản hơn để nối một bản ghi từ một khung dữ liệu này sang một khung dữ liệu khác NẾU bạn biết rằng hai tệp dữ liệu này có chung các cột và loại. Để thêm một hàng từ xxđể yychỉ làm những điều sau đây mà ilà i'thứ hàng trong xx.

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

Đơn giản như vậy. Không có ràng buộc lộn xộn. Nếu bạn cần nối thêm tất cả xxvào yy, thì hãy gọi một vòng lặp hoặc tận dụng các khả năng trình tự của R và thực hiện điều này:

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

Nếu bạn muốn tạo một khung dữ liệu trống và thêm nội dung trong một vòng lặp, những điều sau đây có thể giúp:

# 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

Hy vọng nó giúp :)