第一行作为数据框列表中的列名（2）

Question

我想用第一行重命名数据列表中每个数据帧的列。

我尝试过此问题First row as column names in a list of data frames的代码  但它返回 first_row_name = rows_number / c（date = 3） /

dflist1 <- lapply(dflist, function(x){
  names(x) <- x[1,]
  x <- x[-1,]
  return(x)
})

Answer 1

问题是因为列为factor。因此，我们unlist并转换为character类

names(x) <- as.character(unlist(x[1,]))