使用索引保留不正确的名称

Question

我需要用重复的名称命名 data.frame 的列。在 data.frame 里面你可以使用 check.names = FALSE 来做淘气的名字契约。但是如果你索引它，那么你在索引时就会失去顽皮的名字。我想保留这些名字。所以 beloe 是一个例子，我得到的输出，我想得到:

x <- data.frame(b= 4:6, a =6:8, a =6:8, check.names = FALSE)
x[, -1]

我得到:

  a a.1
1 6   6
2 7   7
3 8   8

我想要:

  a a
1 6 6
2 7 7
3 8 8

Answer 1

这个怎么样:

subdf <- function(df, ii) {
    do.call("data.frame", c(as.list(df)[ii], check.names=FALSE))
}

subdf(x, -1)
#   a a
# 1 6 6
# 2 7 7
# 3 8 8

subdf(x, 2:3)
#   a a
# 1 6 6
# 2 7 7
# 3 8 8