r - 从数据框中选择数字列和按名称指定的一列

Question

我有一个包含数字和非数字列的数据框，比如说

df <- data.frame(v1=1:20,v2=1:20,v3=1:20,v4=letters[1:20],v5=letters[1:20])

只选择我会使用的非数字列

fixCol <- !sapply(df,is.numeric)

但现在我还想包含一个特定的数字列，比如 v2。我的数据框非常大，列的顺序发生了变化，所以我无法使用数字对其进行索引，我真的想使用名称“v2”。我试过

fixCol$v2 = TRUE

但这给了我警告 In fixCol$FR = TRUE : Coercing LHS to a list这使得我不可能对我的原始数据框进行子集化以仅获得 fixCol

df[,fixCol]

给出:Error in .subset(x, j) : invalid subscript type 'list'
最后，我的目标是缩放数据框的所有数字列，除了这个指定的列，使用类似这样的东西

scaleCol = !fixCol
df_scaled = cbind(df[,fixCol], sapply(df[,scaleCol],scale))

我怎样才能最好地做到这一点？

Answer 1

我们可以使用 OR 条件( | )来获取逻辑索引，然后对 'df' 的列进行子集化。

df1 <- df[!sapply(df, is.numeric)|names(df)=='v2']
head(df1,2)
#  v2 v4 v5
#1  1  a  a
#2  2  b  b