Konwertuj nazwy wierszy na pierwszą kolumnę

147

Mam taką ramkę danych:

df
              VALUE              ABS_CALL DETECTION P-VALUE    
    1007_s_at "957.729231881542" "P"      "0.00486279317241156"
    1053_at   "320.632701283368" "P"      "0.0313356324173416" 
    117_at    "429.842323161046" "P"      "0.0170004527476119" 
    121_at    "2395.7364289242"  "P"      "0.0114473584876183" 
    1255_g_at "116.493632746934" "A"      "0.39799368200131"   
    1294_at   "739.927122116896" "A"      "0.0668649772942343"

Chcę przekonwertować nazwy wierszy na pierwszą kolumnę. Obecnie używam czegoś takiego, aby nazwy wierszy były pierwszą kolumną:

  d <- df
  names <- rownames(d)
  rownames(d) <- NULL
  data <- cbind(names,d)

Czy jest do tego jedna linia?

r dataframe col rowname

— Agaz Hussain
źródło

możliwy duplikat R: konwersja nazw wierszy w wielu ramkach danych na kolumny w ramce danych

— rmuc8

12

Nie potrzebujesz dodatkowych pakietów, oto jedna linijka:d <- cbind(rownames(d), data.frame(d, row.names=NULL))

— ssp3nc3r

Komentarz @ ssp3nc3r powinien być zaakceptowaną odpowiedzią

— Hrant

119

Możesz zarówno usunąć nazwy wierszy, jak i przekonwertować je na kolumnę przez odniesienie (bez ponownego przydzielania pamięci za pomocą ->) używając setDTi jego keep.rownames = TRUEargumentu z data.tablepakietu

library(data.table)
setDT(df, keep.rownames = TRUE)[]
#    rn     VALUE  ABS_CALL DETECTION     P.VALUE
# 1:  1 1007_s_at  957.7292         P 0.004862793
# 2:  2   1053_at  320.6327         P 0.031335632
# 3:  3    117_at  429.8423         P 0.017000453
# 4:  4    121_at 2395.7364         P 0.011447358
# 5:  5 1255_g_at  116.4936         A 0.397993682
# 6:  6   1294_at  739.9271         A 0.066864977

Jak wspomniał @snoram, możesz nadać nowej kolumnie dowolną nazwę, np. setDT(df, keep.rownames = "newname")Dodać „ nową nazwę ” jako kolumnę wierszy.

— David Arenburg
źródło

5

W colnames(df)[1] <- "newname"razie potrzeby użyj, aby zmienić nazwę pierwszej kolumny.

— Swetabh

5

@Swetabh Cóż, nie. setnames(df, 1, "newname")jest data.tabledroga.

— David Arenburg

@DavidArenburg Cóż, (przynajmniej) teraz możesz to zrobić w tej samej rozmowiesetDT(df, keep.rownames = "newname")[]

— sindri_baldur

1

@DavidArenburg znaleziono w dokumentacji dla as.data.table(): Jeśli TRUE, dodaje nazwy obiektów wejściowych jako oddzielną kolumnę o nazwie „rn”. keep.rownames = "id" zamiast tego

— nazywa

1

@snoram dobre znalezisko, zrobię PR dotyczący tego, aby dokumenty były spójne.

— David Arenburg

140

Lub możesz użyć dplyr, add_rownamesktóre działa tak samo jak odpowiedź Davida:

library(dplyr)
df <- tibble::rownames_to_column(df, "VALUE")

UPDATE (połowa 2016 r.): (Włączona do powyższego)

stara wywołana funkcja add_rownames()została przestarzała i jest zastępowana przez tibble::rownames_to_column()(te same funkcje, ale Hadley dplyrnieco refaktoryzował ).

— hrbrmstr
źródło

14

Nie do końca to samo, ponieważ nie robi tego przez odniesienie :)

— David Arenburg

1

UPDATE: aktualizacja dplyr wymaga użycia tibble :: rownames_to_column (), ponieważ dplyr :: rownames jest przestarzały.

— EDennnis

To jest świetne, jeśli ktoś chce pozostać w porządku

— Euler_Salter

83

Jedną linią jest:

df$names <- rownames(df)

— Emilia
źródło

12

Mam nadzieję, że zdajesz sobie sprawę z tego, że dodaje się rownamesjako kolumna na końcu, a właściwie nie jako pierwsza kolumna.

— Agaz Hussain

30

Alternatywnie możesz utworzyć nową ramkę danych (lub nadpisać obecną, jak w przykładzie poniżej), dzięki czemu nie musisz używać żadnego zewnętrznego pakietu. Jednak ten sposób może nie być wydajny w przypadku dużych ramek danych.

df <- data.frame(names = row.names(df), df)

— drasc
źródło

10

Lub:df <- cbind(names = rownames(df), df)

— Mark Miller

15

Przeniosłem mój komentarz do odpowiedzi na sugestię powyżej:

Nie potrzebujesz dodatkowych paczek, oto jedna linijka:

d <- cbind(rownames(d), data.frame(d, row.names=NULL))

— ssp3nc3r
źródło

4

dplyr::as_data_frame(df, rownames = "your_row_name") da ci jeszcze prostszy wynik.

— SteveS
źródło

2

@HectorHaffenden zmodyfikował to na potrzeby plakatu, ponieważ jest to w rzeczywistości fajna sugestia.

— Tjebo

2

Lub używając DBIssqlRownamesToColumn

library(DBI)
sqlRownamesToColumn(df)

— Agaz Hussain
źródło