Pertanyaan Tambahkan indeks daftar ke bind_rows?


Saya memiliki data ini:

dat=list(structure(list(Group.1 = structure(3:4, .Label = c("A","B", "C", "D", "E", "F"), class = "factor"), Pr1 = c(65, 75)), row.names = c(NA, -2L), class = "data.frame"),NULL, structure(list( Group.1 = structure(3:4, .Label = c("A","B", "C", "D", "E", "F"), class = "factor"), Pr1 = c(81,4)), row.names = c(NA,-2L), class = "data.frame"))

Saya ingin menggunakan menggabungkan menggunakan bind_rows(dat) tetapi menyimpan nomor indeks sebagai varaibel Output Termasuk Type([[1]] and [[3]])

  type   Group.1     Pr1
1   1      C          65
2   1      D         75
3   3      C         81
4   3      D          4

4
2018-06-13 09:53


asal


Jawaban:


solusi data.table

gunakan rbindlist (), yang memiliki id-support built-in yang menghormati NULL df's.

library(data.table)
rbindlist( dat, idcol = TRUE )

   .id Group.1 Pr1
1:   1       C  65
2:   1       D  75
3:   3       C  81
4:   3       D   4

dplyr - sebagian solusi

bind_rows juga memiliki ID-support, tetapi itu 'melompati' elemen kosong ...

bind_rows( dat, .id = "id" )

  id Group.1 Pr1
1  1       C  65
2  1       D  75
3  2       C  81
4  2       D   4

Perhatikan bahwa ID dari elemen ketiga dari dat menjadi 2, dan bukan 3.


4
2018-06-13 10:00



Menurut dokumentasi bind_rows() Anda dapat memberikan nama untuk .id argumen dari fungsi tersebut. Ketika Anda mendaftar bind_rows() ke daftar data.frames nama daftar yang berisi Anda data.frames ditugaskan ke kolom identifier. [EDIT] Tapi ada masalah yang disebutkan oleh @Wimpel:

names(dat)
NULL

Namun, memasok nama-nama ke daftar akan melakukan hal tersebut:

names(dat) <- 1:length(dat)
names(dat)
[1] "1" "2" "3"
bind_rows(dat, .id = "type")
  type Group.1 Pr1
1    1       C  65
2    1       D  75
3    3       C  81
4    3       D   4

Atau dalam satu baris, jika Anda lebih suka:

bind_rows(setNames(dat, seq_along(dat)), .id = "type")

3
2018-06-13 10:20