data.frame删除指定列

df <- data.frame(a1=c(1,2,3,4), a2=c(5,6,7,8))
subset(df, select = -c(a1)) #按列名
subset(df, select = -c(1)) #按列数
df[, -c(1)] #按列数