0

我有一个看起来像这样的大 data.frame：

   Col1      Col1    Col2      Col3    Col4     Col4
    sd      rt       yu       hg     e         po
    23      0.12     0.34     0.2    0.98      0.2
    vf      qw       we       mi     kl        jk
    0.21    0.33     0.1      0.234  0.76      0.54

我需要删除（并保存在第二个 data.frame 中）具有相同标题的所有列。我怎样才能做到这一点？我是 R 的新手。

4

1 回答 1

1

首先，您应该识别所有出现两次的列名duplicated（不过，如果有任何有助于摆脱双重duplicated声明的建议，我将不胜感激）。将这些列索引存储在数字向量中，以供进一步的工作步骤。

# Data generation
data <- data.frame(rbind(c("sd", "rt", "yu", "hg", "e", "po"), 
                         c(23, .12, .34, .2, .98, .2), 
                         c("vf", "qw", "we", "mi", "kl", "jk"), 
                         c(.21, .33, .1, .234, .76, .54)))
names(data) <- c("Col1", "Col1", "Col2", "Col3", "Col4", "Col4")

# Identify duplicated column names
dupl.cols.ff <- duplicated(names(data))
dupl.cols.fl <- duplicated(names(data), fromLast = TRUE)
dupl.cols <- sort(unique(c(which(dupl.cols.ff), which(dupl.cols.fl))))

现在，可以根据已识别的列构建一个新的数据框，并将它们从您的初始数据框中删除。

# Build new dataframe with duplicated columns 
data2 <- data[,dupl.cols]
names(data2) <- names(data)[dupl.cols]
data2
  Col1 Col1 Col4 Col4
1   sd   rt    e   po
2   23 0.12 0.98  0.2
3   vf   qw   kl   jk
4 0.21 0.33 0.76 0.54

# Remove duplicated columns from initial dataframe
data <- data[,-dupl.cols]
data
  Col2  Col3
1   yu    hg
2 0.34   0.2
3   we    mi
4  0.1 0.234
于 2013-05-07T14:37:50.097 回答