创建 ID（行号）列

您可以使用：cbind

d <- data.frame(V1=c(23, 45, 56), V2=c(45, 45, 67))

## enter id here, you could also use 1:nrow(d) instead of rownames
id <- rownames(d)
d <- cbind(id=id, d)

## set colnames to OP's wishes
colnames(d) <- paste0("V", 1:ncol(d))

编辑：以下是@dacko建议的比较。 稍微快一点，但列的顺序不同（是最后一列;重新排序它们似乎比使用 ）：d$id <- seq_len(nrow(d)idcbind

library("microbenchmark")

set.seed(1)
d <- data.frame(V1=rnorm(1e6), V2=rnorm(1e6))

cbindSeqLen <- function(x) {
  return(cbind(id=seq_len(nrow(x)), x))
}

dickoa <- function(x) {
  x$id <- seq_len(nrow(x))
  return(x)
}

dickoaReorder <- function(x) {
  x$id <- seq_len(nrow(x))
  nc <- ncol(x)
  x <- x[, c(nc, 1:(nc-1))]
  return(x)
}

microbenchmark(cbindSeqLen(d), dickoa(d), dickoaReorder(d), times=100)

# Unit: milliseconds
#             expr      min       lq   median       uq      max neval
#   cbindSeqLen(d) 23.00683 38.54196 40.24093 42.60020 47.73816   100
#        dickoa(d) 10.70718 36.12495 37.58526 40.22163 72.92796   100
# dickoaReorder(d) 19.25399 68.46162 72.45006 76.51468 88.99620   100

您也可以使用以下命令执行此操作：dplyr

DF <- mutate(DF, id = rownames(DF))

希望这会有所帮助。创建 ID 列的最短和最佳方法是：

dataframe$ID <- seq.int(nrow(dataframe))

data.table 解决方案

语法更简单，速度更快

library(data.table)

dt <- data.table(V1=c(23, 45, 56), V2=c(45, 45, 67))

setnames(dt, c("V2", "V3")) # changing column names
dt[, V1 := .I] # Adding ID column

两个整洁的替代方案（使用 sgibb 的示例数据）：

tibble::rowid_to_column(d, "ID")

这给了：

  ID V1 V2
1  1 23 45
2  2 45 45
3  3 56 67

艺术

dplyr::mutate(d, ID = row_number())

这给了：

  V1 V2 ID
1 23 45  1
2 45 45  2
3 56 67  3

如您所见，-function 将新列添加到其他列的前面，而 &-com 组合将新列添加到其他列之后。rowid_to_columnmutaterow_number()

---

另一个基本的 R 替代方案：

d$ID <- seq_along(d[,1])

许多人提出了他们的想法，但我认为这是这项任务最简单和最简单的代码：

data$ID <- 1:nrow(data)

一行。独一无二。

这是一个解决方案，它保留了 dplyr 管道格式并将 id 放在第一列中，这可能是首选。

d %>% 
  mutate(id = rownames(.)) %>% 
  select(id, everything())

如果你开始的时候在df中没有命名的行，那么整洁的方法是：

df %>% 
  mutate(id = row_number()) %>% 
  select(id, everything())

该函数将行名移动到列中;在包 （docs） 中找到。rownames_to_column()tidyverse

rownames_to_column(DF, "my_column_name")

用于反向操作。column_to_rownames()

如果你的数据库不是太大，这将起作用

# Load sample data
Dt1 <- tibble(V1=c(23,45,56),V2=c(45,45,67))
# Create Separate Tibble with row numbers
Dt2 <- tibble(id=seq(1:nrow(Dt1)))
# Join together
Dt3 <- cbind(Dt2,Dt1)