R使用名称列表在数据帧中删除列

我正在寻找一种基于名称列表在数据框中删除列的方法

我尝试过几种方法（比如

子集（df，listofcolumn）

），但每次都会出现错误。我最后一次尝试循环，但仍有一个错误：

“c（名称）中出错：一元运算符的参数无效”

---

discretizedh
df[！（名称（df）%in%coltodrop）]
将是一种方法。它可以完美地工作！非常感谢
df[！（名称（df）%in%coltodrop）]
将是一种方法。它可以完美地工作！非常感谢！
discretizedh<-function(h,df){
discret<-discretized(h,df)
coltodrop=NULL
i=1
for(column in discret){
  k=0
  for(data in column){
    k=k+data
}
if(k==0){
    coltodrop=c(coltodrop,colnames(discret[i]))
}
i=i+1
}

for(name in coltodrop){
discret=subset(discret,-c(name))
}
return(discret)