我经常需要从 data.frame 中删除列列表。
我通常这样做：
to.remove <- c("hp","drat","wt","qsec")
mtcars[,-which(names(mtcars) %in% to.remove)]
效果很好。
但我希望能够使用subset 以更简洁的方式执行此操作。但它似乎附加了 data.frame，然后将列名作为变量而不是字符串访问。
例如，这是我希望能够做到的：
subset(mtcars,select=-to.remove)
有没有办法强制subset 在select 语句中使用字符串向量？还是有其他更好的选择？
【问题讨论】：
我可能会这样做：
to.remove <- c("hp","drat","wt","qsec")
`%ni%` <- Negate(`%in%`)
subset(mtcars,select = names(mtcars) %ni% to.remove)
（我经常使用%ni%，所以我已经将它内置到我的 .Rprofile 中了。）
【讨论】：
funprog里的东西，这个用处很大。
Negate 看起来像一个非常有用的隐藏宝石，%ni% 也是如此。而你的下一个任务是用……鲱鱼砍伐森林中最强大的树！
! 运算符，例如：mtcars[,!(names(mtcars) %in% to.remove)]
您当然可以使用 select，但您必须传入名称，而不是字符。所以这会起作用：
subset( mtcars, select = -c(hp, drat, wt, qsec) )
【讨论】：