다음과 같은 데이터 프레임이 있습니다.
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" 행 이름을 첫 번째 열로 변환하고 싶습니다. 현재 행 이름을 첫 번째 열로 만들기 위해 다음과 같은 것을 사용합니다.
d <- df
names <- rownames(d)
rownames(d) <- NULL
data <- cbind(names,d)이 작업을 수행 할 수있는 단일 회선이 있습니까?
답변
할 수 있습니다 모두 삭제 행 이름과 컬럼으로 변환 참조 (사용 메모리 재 할당없이 ->사용) setDT과 그 keep.rownames = TRUE으로부터 인수를 data.table패키지
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@snoram이 언급했듯이 새 열에 원하는 이름을 지정할 수 있습니다. 예를 들어 setDT(df, keep.rownames = "newname")행 열로 “newname”을 추가하십시오.
답변
또는 당신은 사용할 수 dplyr의 add_rownames다윗의 대답과 같은 일을한다 :
library(dplyr)
df <- tibble::rownames_to_column(df, "VALUE")업데이트 (2016 년 중반) : (위에 통합)
호출 된 이전 함수 add_rownames()는 더 이상 사용되지 않으며 tibble::rownames_to_column()(동일한 함수이지만 Hadley dplyr가 약간 리팩토링 )로 대체하고 있습니다.
답변
한 줄 옵션은 다음과 같습니다.
df$names <- rownames(df)답변
또는 새 데이터 프레임을 만들거나 아래 예와 같이 현재 데이터 프레임을 덮어 쓸 수 있으므로 외부 패키지를 사용할 필요가 없습니다. 그러나이 방법은 거대한 데이터 프레임에서 효율적이지 않을 수 있습니다.
df <- data.frame(names = row.names(df), df)답변
위의 제안에 따라 내 의견을 답변으로 옮겼습니다.
추가 패키지가 필요하지 않습니다. 여기 하나의 라이너가 있습니다.
d <- cbind(rownames(d), data.frame(d, row.names=NULL))답변
dplyr::as_data_frame(df, rownames = "your_row_name") 더 간단한 결과를 제공합니다.
답변
또는 DBIs 를 사용하여sqlRownamesToColumn
library(DBI)
sqlRownamesToColumn(df)