更改 R 中的列标题，交替使用空格和名称（对于 genalex 格式）

Question

我有一个名为 genalex 的数据框，因为我正试图将我的遗传数据放入通用的 "genalex" 格式。我刚刚在 R 中使用了 strsplit 函数来拆分列，现在我有了这个：

> genalex[1:5,1:10]
  Ind V1 V2 V3 V4 V5 V6 V7 V8 V9
1 100  A  A  C  C  N  N  C  C  N
2 101  A  A  C  C  N  N  N  N  N
3  10  A  A  C  C  N  N  C  C  N
4  11  A  A  N  N  N  N  C  C  N
5  12  N  N  N  N  N  N  C  C  G

这个数据框实际上有 330 行和 32,068 列。我想用新名称替换所有其他列（V1、V3、V5、V7、V9 等）的名称。我还想删除所有其他列名称（V2、V4、V6、V8 等）

对于新的列名，我想在拆分列之前使用旧数据框中的列名。我将调用旧数据框 table。此数据框有 16,034 列，因为它不包括 spaces:

 table[1:5,1:5]
    X X446043 X539052 X614054 X683054
1 100       A       C       N       C
2 101       A       C       N       N
3  10       A       C       N       C
4  11       A       N       N       C
5  12       N       N       N       C

因此，使用 table 中的旧列名称，然后在每列之间添加一个 space，我最终希望我的数据框看起来像这样，对于所有 32,068 列：

   > genalex[1:5,1:8]
      Ind    X446043         X539052         X614054         X683054
    1 100    A       A       C       C       N       N       C  
    2 101    A       A       C       C       N       N       N  
    3  10    A       A       C       C       N       N       C  
    4  11    A       A       N       N       N       N       C  
    5  12    N       N       N       N       N       N       C

感谢您的帮助。

Answer 1

您可以使用seq函数获取奇数和偶数位置：

names(genalex)[seq(2,ncol(genalex),2)] <- names(table)
names(genalex)[seq(1,ncol(genalex),2)] <- ""
names(genalex)[1] <- "Ind"

第一行使用 table 中的列名重命名所有 even-numbered 列索引 (2,4,6,...)，第二行设置所有 odd-numbered列索引为空。然后将第一列重命名为 "Ind".

更改 R 中的列标题，交替使用空格和名称（对于 genalex 格式）

Change column headings in R, with alternating blanks and names (for genalex format)

r

replace

dataframe

names

strsplit