r - R：使用带有数字位置的重复列名子集 data.table

Question

我有一个看起来像这样的 data.table

> dput(DT)
   A B C A B C D
1: 1 2 3 3 5 6 7
2: 2 1 3 2 1 3 4

这是输入

DT <- structure(list(A = 1:2, B = c(2L, 1L), C = c(3L, 3L), A = c(3L, 
  2L), B = c(5L, 1L), C = c(6L, 3L), D = c(7L, 4L)), .Names = c("A", 
  "B", "C", "A", "B", "C", "D"), row.names = c(NA, -2L), class = c("data.table", 
  "data.frame"))

基本上，我想根据它们的标题对它们进行子集化。所以对于标题“B”，我会这样做：

subset(DT,,grep(unique(names(DT))[2],names(DT)))
   B B
1: 2 2
2: 1 1

如您所见，这些值是错误的，因为第二列只是第一列的重复。我想得到这个：

   B B
1: 2 5
2: 1 1

任何人都可以帮助我吗？

Answer 1

以下替代方案对我有用：

pos <- grep("B", names(DT))
DT[, ..pos]
#    B B
# 1: 2 5
# 2: 1 1
DT[, .SD, .SDcols = patterns("B")]
#    B B
# 1: 2 5
# 2: 1 1
DT[, names(DT) %in% unique(names(DT))[2], with = FALSE]
#    B B
# 1: 2 5
# 2: 1 1