更改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列，因为它不包含空格：

 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的旧列名，然后在每列之间添加一个空格，我最终希望所有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"

第一行使用表中的列名重命名所有偶数列索引（2,4,6，...），第二行将所有奇数列索引重命名为空白。 然后将第一列重命名为“ Ind”。