从同时满足两个条件的数据帧中删除列

问：

我有几十个调查数据文件。每个列都有几列包含数字数据，然后还有一些包含字符数据的列。我需要根据必须同时满足的两个条件，动态地从每个列中删除一列：

• 该列是数字，并且...
• 该列包含“总体”一词

我不能简单地取消选择任何/所有包含“Overall”一词的列，因为我必须保留的一个字符列的标题中包含“Overall”。

我不能简单地按名称或位置取消选择它，因为不同的文件在位置或名称方面不一致。它们唯一的共同点是该列是数字，并且标题中包含“总体”。此外，并非所有文件都有这样的列，这就是我尝试动态执行此操作的原因。

下面是一个非常简化的此类文件的示例，因为它显示在 DataFrame 中：

#### reproducible example ####

columns <- c("rating A", "rating B", "Student Overall Rating", 
              "feedback 1", "feedback 2", "Student Overall Feedback")
c1 <- c(4, 4, 3)
c2 <- c(5, 4, 4)
c3 <- c(4.5, 4, 3.5)
c4 <- c("blah", "blah", "blah")
c5 <- c("blah", "blah", "blah")
c6 <- c("blahblah", "blahblah", "blahblah")

df <- as.data.frame(cbind(c1, c2, c3, c4, c5, c6))
names(df) <- columns
df$`rating A` <- as.numeric(df$`rating A`)
df$`rating B` <- as.numeric(df$`rating B`)
df$`Student Overall Rating` <- as.numeric(df$`Student Overall Rating`)

str(df)  # shows relative structure I am dealing with

'data.frame':   3 obs. of  6 variables:
 $ rating A                : num  4 4 3
 $ rating B                : num  5 4 4
 $ Student Overall Rating  : num  4.5 4 3.5
 $ feedback 1              : chr  "blah" "blah" "blah"
 $ feedback 2              : chr  "blah" "blah" "blah"
 $ Student Overall Feedback: chr  "blahblah" "blahblah" "blahblah"

我进行了广泛的搜索，并尝试了几件事：

df <- df %>% select(!intersect(is.numeric(df), df %like% "Overall"))

这给了我：

Error in `select()`:
! Can't subset columns with `intersect(is.numeric(df), df %like% "Overall")`.
✖ `intersect(is.numeric(df), df %like% "Overall")` must be numeric or character, not `FALSE`.

我也试过了......

df <- df %>% select(!where(is.numeric | contains("Overall")))

其结果是：

Error in `select()`:
! Problem while evaluating `where(is.numeric | contains("Overall"))`.
Caused by error in `is.numeric | contains("Overall")`:
! operations are possible only for numeric, logical or complex types

对于具有数字“学生总体评分”字段的文件，我想要的结果是这样的：

'data.frame':   3 obs. of  5 variables:
 $ rating A                : num  4 4 3
 $ rating B                : num  5 4 4
 $ feedback 1              : chr  "blah" "blah" "blah"
 $ feedback 2              : chr  "blah" "blah" "blah"
 $ Student Overall Feedback: chr  "blahblah" "blahblah" "blahblah"

我知道我可以单独做任何一个条件，但是有没有办法同时满足两个条件？有没有其他方法可以做到这一点？我真的在努力避免手动操作每个文件。select(where())