rownames(df) <- df$datesamp2 <- samp[,-1] rownames(samp2) <- samp[,1]library(tidyverse) samp %>% remove_rownames %>% column_to_rownames(var="names")> samp.with.rownames <- data.frame(samp[,-1], row.names=samp[,1])
rownames(df) <- df$datesamp2 <- samp[,-1] rownames(samp2) <- samp[,1]library(tidyverse) samp %>% remove_rownames %>% column_to_rownames(var="names")> samp.with.rownames <- data.frame(samp[,-1], row.names=samp[,1])