Chuyển đổi tên hàng thành cột đầu tiên

Tôi có một khung dữ liệu như thế này:

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" 

Tôi muốn chuyển đổi tên hàng thành cột đầu tiên. Hiện tại tôi sử dụng một cái gì đó như thế này để đặt tên hàng làm cột đầu tiên:

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

Có một dòng duy nhất để làm điều này?

Bạn có thể xóa cả tên hàng và chuyển đổi chúng thành một cột bằng cách tham chiếu (không cần phân bổ lại bộ nhớ bằng cách sử dụng ->) setDTvà keep.rownames = TRUEđối số của nó từ data.tablegói

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

Như được đề cập bởi @snoram, bạn có thể đặt cho cột mới bất kỳ tên nào bạn muốn, ví dụ: setDT(df, keep.rownames = "newname")sẽ thêm "newname" làm cột hàng.

Hoặc bạn có thể sử dụng dplyr's add_rownamesmà làm điều tương tự như câu trả lời của David:

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

CẬP NHẬT (giữa năm 2016): (kết hợp với những điều trên)

Hàm cũ được gọi là add_rownames()không dùng nữa và đang được thay thế bằng tibble::rownames_to_column()(cùng hàm, nhưng Hadley đã cấu trúc lại dplyrmột chút).

Tùy chọn một dòng là:

df$names <- rownames(df)

Ngoài ra, bạn có thể tạo một khung dữ liệu mới (hoặc ghi đè lên khung hiện tại, như ví dụ bên dưới) để bạn không cần sử dụng bất kỳ gói bên ngoài nào. Tuy nhiên cách này có thể không hiệu quả với các datafram lớn.

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

Chuyển nhận xét của tôi thành câu trả lời cho mỗi đề xuất ở trên:

Bạn không cần các gói bổ sung, đây là một gói:

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

dplyr::as_data_frame(df, rownames = "your_row_name") sẽ cung cấp cho bạn kết quả thậm chí đơn giản hơn.

Hoặc bằng cách sử dụng DBIssqlRownamesToColumn

library(DBI)
sqlRownamesToColumn(df)