Konwertuj dane.frame na kolumnę data.table brakującą

Question

Miałem taki przypadek. Próbowałem przekonwertować klasę "mtcars" z data.frame na data.table.

"mtcars" Dane:

> mtcars 
        mpg cyl disp hp drat wt qsec vs am gear carb 
Mazda RX4   21.0 6 160.0 110 3.90 2.620 16.46 0 1 4 4 
Mazda RX4 Wag  21.0 6 160.0 110 3.90 2.875 17.02 0 1 4 4 
Datsun 710   22.8 4 108.0 93 3.85 2.320 18.61 1 1 4 1 

Original klasa jest "data.frame".

> str(mtcars) 
'data.frame': 32 obs. of 11 variables: 
$ mpg : num 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ... 
$ cyl : num 6 6 4 6 8 6 8 4 4 6 ... 
$ disp: num 160 160 108 258 360 ... 
$ hp : num 110 110 93 110 175 105 245 62 95 123 ... 
$ drat: num 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ... 
$ wt : num 2.62 2.88 2.32 3.21 3.44 ... 
$ qsec: num 16.5 17 18.6 19.4 17 ... 
$ vs : num 0 0 1 1 0 1 0 1 1 1 ... 
$ am : num 1 1 1 0 0 0 0 0 0 0 ... 
$ gear: num 4 4 4 3 3 3 3 4 4 4 ... 
$ carb: num 4 4 1 1 2 1 4 2 2 4 ... 

Konwersja na tabelę danych. Znaleziono kolumnę dla marek samochodów już nie ma. Czemu? Jak zachować kolumnę marek?

> mtcars2 <- data.table(mtcars) 
> mtcars2 
    mpg cyl disp hp drat wt qsec vs am gear carb 
1: 21.0 6 160.0 110 3.90 2.620 16.46 0 1 4 4 
2: 21.0 6 160.0 110 3.90 2.875 17.02 0 1 4 4 
3: 22.8 4 108.0 93 3.85 2.320 18.61 1 1 4 1 

Chciałbym mieć plik data.table z ostatecznym formatem danych, jak poniżej - o nowej kolumnie nazwy "Marki" dla pierwszej kolumny marek. Jak kodować, aby dodać kolumnę "Marki" z oryginalnego zestawu danych "mtcars"?

Brands    mpg cyl disp hp drat wt qsec vs am gear carb 
Mazda RX4   21.0 6 160.0 110 3.90 2.620 16.46 0 1 4 4 
Mazda RX4 Wag  21.0 6 160.0 110 3.90 2.875 17.02 0 1 4 4 
Datsun 710   22.8 4 108.0 93 3.85 2.320 18.61 1 1 4 1 

Answer 1

Brakuje rownamów, a nie jednej z kolumn.

Jeśli chcesz marek jak kolumny, podręcznik podejście jest:

data.table(Brands = rownames(mtcars), mtcars) 

---

Alternatywnie:

data.table(mtcars, keep.rownames = TRUE) 

Jednak to nie czyni otrzymany data.table mieć stary rownames, po prostu tworzy dla nich kolumnę, zwaną "rn". Jest to w dokumentacji, ?data.table.

---

Alternatywnie, należy zmodyfikować tabelę w miejscu, do DF = mtcars:

setDT(DF, keep.rownames = "Brands") 

drobna uwaga: nie możemysetDT(mtcars, ...), ponieważ mtcars jest wbudowany w stół.