r 转置数据帧R.

Posted 2021-05-24

tFrame <- function(x) {
  x <- t(x)
  row_names <- row.names(x)[2:length(row.names(x))]
  col_names <- x[1,]
  x <- tbl_df(as.data.frame(x[2:nrow(x),]))
  colnames(x) <- col_names
  rownames(x) <- row_names
  x <- dplyr::add_rownames(x, var = "strain")
  x
}