在R中编写一个函数来更改一组数据集布局

Question

我有许多tibble格式的数据集，变量为行。我想更改布局和争论单个数据集。为了避免重复工作和犯错的风险。我在 R 中编写了此函数来执行此操作。

library(tidyverse)    
change_data_layout<- function(data_df){    
data_df_2 <- data_df %>% mutate(samples = colnames()) %>% t()    
colnames(data_df_2) <-data_df_2[1,]    
rownames <- rownames(data_df_2) [2:nrow(data_df_2)]

data_df_3 <- data_df_2[1:nrow(data_df_2),] %>% as_tibble() %>% mutate(samples = rownames)    
colnames(data_df_3) <- data_df_3 [1,]    
data_df_4 <- data_df_3[2:nrow(data_df_3),]

data_final <- data_df_4 %>% 
mutate_each(funs(type.convert)) %>%  mutate_if(is.factor, as.character)        

return(data_final)
}

但是，当我将此功能运行为：

dataset1_final <- change_data_layout(dataset1)

我收到此错误消息：

  

错误：参数＆＃34; x＆＃34;缺少，没有默认值       来自：mutate_impl（.data，dots）

有任何帮助和建议吗？