samp2 <- samp[,-1]
rownames(samp2) <- samp[,1]
data$row_names <- row.names(data) # Apply row.names function
data # Print updated data
# x1 x2 row_names
# 1 A e 1
# 2 B d 2
library("dplyr")
data <- tibble::rownames_to_column(data, "row_names") # Apply rownames_to_column
data # Print updated data
# row_names x1 x2
# 1 1 A e
# 2 2 B d
# 3 3 C c
d <- cbind(rownames(d), data.frame(d, row.names=NULL))
library(tidyverse)
samp %>% remove_rownames %>% column_to_rownames(var="names")
samp2 <- samp[,-1]
rownames(samp2) <- samp[,1]
> samp.with.rownames <- data.frame(samp[,-1], row.names=samp[,1])