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

【问题标题】：Convert first row as column name in a list of dataframes, then delete first row将第一行转换为数据框列表中的列名，然后删除第一行
【发布时间】：2014-01-25 05:58:18
【问题描述】：

我对 R 比较陌生，并且在尝试将数据框列表的第一行转换为列名时遇到了问题。

我有一个 120 行的数据框，前 10 行的数据如下所示。

> 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]])) 结构（列表（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= "因子")), .Names = "mmcall[1:120, ]", row.names = c(NA, 6L), class= "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

单个数据框的类也更改为“因子”。

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

有人可以帮忙吗？我不明白如何做到这一点以及为什么它会变成一个因素。

另外，如果有人也能回答为什么这么小的数据框的 dput 看起来这么大，那就太好了。

提前非常感谢。 -希瓦姆

【问题讨论】：

第一件事：colnames 用于矩阵，矩阵只允许一种类型的数据，所以如果你有任何字母（你有），所有的列都将转换为字符串。使用names
@raw - names 恐怕也会给出相同的结果。

标签： r

【解决方案1】：

lapply 中的函数仅返回 x[1, ]。您必须改为返回整个数据框。使用这个命令：

lapply(cmonlist, function(x) "names<-"(x, x[1, ]))

如果您还想删除每个数据框的第一行，请使用：

lapply(cmonlist, function(x) tail("names<-"(x, x[1, ]), -1))

【讨论】：

"names<-"(x, x[1, ]) 将等同于names(x) <- names(x[1, ])，对吗？哦，这可以在没有反引号的情况下工作吗？
@rawr 差不多，是names(x) <- x[1, ]。
@Sven 您的解决方案有效。非常感谢！！但顺便说一句，您对@rawr 的评论实际上不起作用。请详细说明一下。
@rawr 没有引号就不行，但是可以使用：{names(x) <- x[1, ]; x}。
@Shivam 命令"names<-"(a, b) 类似于names(a) <- b，但保持a 不变并返回整个修改后的对象。