将第一行转换为数据框列表中的列名，然后删除第一行

我对R相对较新，并且遇到尝试将数据框列表的第一行转换为列名的问题。

我有一个120行的数据框，下面给出前10行的dput。

> dput(head(mmcmon,10))
structure(list(`mmcall[1:120, ]` = structure(c(121L, 1L, 1L, 
1L, 1L, 103L, 125L, 1L, 1L, 1L), .Label = c("0", "0.000120774", 
"0.000411971", "0.000418782", "0.001009412", "0.002133363", "0.006300886", 
"0.007512761", "0.01520653", "0.01922036", "0.02122252", "0.03000229", 
"0.03125497", "0.09864875", "0.1038622", "0.1110728", "0.1716216", 
"0.301216", "0.3091952", "0.3409163", "0.3741058", "0.3840781", 
"0.4457962", "0.554204", "0.6159262", "0.6258942", "0.6590838", 
"0.6908052", "0.6987841", "0.8283813", "0.8889272", "0.8961378", 
"0.9013513", "0.968745", "0.9699977", "0.9787775", "0.9807797", 
"0.9847939", "0.9924875", "0.9936991", "0.9978666", "0.9989906", 
"0.9995812", "0.999588", "0.9998792", "0.9999928", "0.9999952", 
"0.9999953", "0.9999976", "0.9999999", "1", "1.02E-274", "1.06E-170", 
"1.14E-177", "1.33E-08", "1.34E-164", "1.36E-26", "1.50E-67", 
"1.70E-87", "1.74E-137", "1.79E-10", "1.79E-23", "1.80E-220", 
"1.88E-83", "1.92E-09", "1.97E-13", "1.98E-40", "2.13E-69", "2.23E-78", 
"2.37E-08", "2.38E-06", "2.38E-11", "2.55E-74", "2.58E-41", "2.76E-44", 
"2.79E-275", "2.90E-72", "3.06E-56", "3.09E-64", "3.50E-128", 
"3.50E-300", "3.55E-258", "3.61E-95", "3.99E-22", "4.31E-53", 
"4.44E-134", "4.72E-06", "4.84E-06", "5.15E-09", "5.18E-281", 
"5.19E-128", "5.25E-165", "5.34E-66", "5.51E-247", "5.52E-08", 
"5.80E-43", "6.08E-33", "6.14E-46", "6.65E-208", "7.22E-06", 
"7.49E-10", "7.88E-51", "8.24E-130", "8.32E-162", "8.48E-99", 
"8.76E-120", "8.78E-24", "8.81E-28", "9.83E-32", "ABS1,ABS2", 
"ABS1,AR1", "ABS1,AR2", "ABS1,BS", "ABS2,ABS1", 
"ABS2,AR1", "ABS2,AR2", "ABS2,BS", "AR1,ABS1", 
"AR1,ABS2", "AR1,AR2", "AR1,BS", "AR2,ABS1", 
"AR2,ABS2", "AR2,AR1", "AR2,BS", "BS,ABS1", 
"BS,ABS2", "BS,AR1", "BS,AR2"), class = "factor")), .Names = "mmcall[1:120, ]", row.names = c(NA, 
10L), class = "data.frame")

我通过使用以下命令将数据帧分为5个数据帧（每行24行）来获得数据帧列表：

cmonlist=split(mmcmon, (seq(nrow(mmcmon))-1) %/% 24)

如此获得的第一元素的产量在下面给出。

dput（head（cmonlist [[1]]）））结构（list（mmcall[1:120, ]=结构（c（121L，1L，1L，1L，1L，103L），.Label = c（“ 0”，“ 0.000120774”，“ 0.000411971”，“ 0.000418782”，“ 0.001009412”，“ 0.002133363”，“ 0.006300886” ，“ 0.007512761”，“ 0.01520653”，“ 0.01922036”，“ 0.02122252”，“ 0.03000229”，“ 0.03125497”，“ 0.09864875”，“ 0.1038622”，“ 0.1110728”，“ 0.1716216”，“ 0.301216”，“ 0.3091952”，“ 0.3409163”，“ 0.3741058”，“ 0.3840781”，“ 0.4457962”，“ 0.554204”，“ 0.6159262”，“ 0.6258942”，“ 0.6590838”，“ 0.6908052”，“ 0.6987841”，“ 0.8283813”，“ 0.8889272”，“ 0.8961378” ，“ 0.9013513”，“ 0.968745”，“ 0。9699977”，“ 0.9787775”，“ 0.9807797”，“ 0.9847939”，“ 0.9924875”，“ 0.9936991”，“ 0.9978666”，“ 0.9989906”，“ 0.9995812”，“ 0.999588”，“ 0.9998792”，“ 0.9999928”，“ 0.9999952” ，“ 0.9999953”，“ 0.9999976”，“ 0.9999999”，“ 1”，“ 1.02E-274”，“ 1.06E-170”，“ 1.14E-177”，“ 1.33E-08”，“ 1.34E-164” “，” 1.36E-26“，” 1.50E-67“，” 1.70E-87“，” 1.74E-137“，” 1.79E-10“，” 1.79E-23“，” 1.80E-220“ ，“ 1.88E-83”，“ 1.92E-09”，“ 1.97E-13”，“ 1.98E-40”，“ 2.13E-69”，“ 2.23E-78”，“ 2.37E-08”， “ 2.38E-06”，“ 2.38E-11”，“ 2。55E-74”，“ 2.58E-41”，“ 2.76E-44”，“ 2.79E-275”，“ 2.90E-72”，“ 3.06E-56”，“ 3.09E-64”，“ 3.50E” -128”，“ 3.50E-300”，“ 3.55E-258”，“ 3.61E-95”，“ 3.99E-22”，“ 4.31E-53”，“ 4.44E-134”，“ 4.72E- 06”，“ 4.84E-06”，“ 5.15E-09”，“ 5.18E-281”，“ 5.19E-128”，“ 5.25E-165”，“ 5.34E-66”，“ 5.51E-247” “，” 5.52E-08“，” 5.80E-43“，” 6.08E-33“，” 6.14E-46“，” 6.65E-208“，” 7.22E-06“，” 7.49E-10“ ，“ 7.88E-51”，“ 8.24E-130”，“ 8.32E-162”，“ 8.48E-99”，“ 8.76E-120”，“ 8.78E-24”，“ 8.81E-28”， “ 9.83E-32”，“ ABS1，ABS2”，“ ABS1，AR1”，“ ABS1，AR2”，“ ABS1，BS”，“ ABS2，ABS1”，“ ABS2，AR1”，“ ABS2，AR2”，“ ABS2，BS”，“ AR1，ABS1”，“ AR1，ABS2” ，“ AR1，AR2”，“ AR1，BS”，“ AR2，ABS1”，“ AR2，ABS2”，“ AR2，AR1”，“ AR2，BS”，“ BS，ABS1”，“ BS，ABS2”，“ BS，AR1“，” BS，AR2“），class =” factor“）），.names =” mmcall [1：120，]“，row.names = c（NA，6L），class =” data.frame ”）ABS2“，” BS，AR1“，” BS，AR2“），类=” factor“））。名称=” mmcall [1：120，]“，row.names = c（NA，6L），类= “ data.frame”）ABS2“，” BS，AR1“，” BS，AR2“），类=” factor“））。名称=” mmcall [1：120，]“，row.names = c（NA，6L），类= “ data.frame”）

列表中的所有其他数据框都具有类似的结构。如您所见，每个数据框名称都类似于“ mmcall [1：120，]”，而第一行则类似于“ AR1，BS”。我想用第一行重命名该列，然后删除第一行。因此，我希望我的数据框的列名称为“ AR1，BS”，其值为0,0,0,0,8.24E-130。

当我尝试使用lapply时，我没有得到任何错误，但是得到了奇怪的结果。

trylist = lapply（cmonlist，function（x）{colnames（x）= x [1，]}）

> trylist[[1]]
[1] AR1,BS
129 Levels: 0 0.000120774 0.000411971 0.000418782 0.001009412 0.002133363 ... BS,AR2

单个数据框的类别也将更改为“ factor”。

> class(cmonlist[[1]]) 
[1] "data.frame"
> class(trylist[[1]]) 
[1] "factor"

谁能帮忙吗？我不知道如何完成这项工作，以及为什么将其变成一个因素。

同样，如果有人也能回答为什么看起来这么小的数据帧的输出看起来如此巨大，那将是很好的。

在此先多谢。-湿婆