Как исключить строки из списка, если эти строки не включены в другую строку, и поместить их в формулу?

Question

У меня есть список строк и другая строка, которая содержит подмножество этих строк.Мне нужно вычесть подмножество строк из первого списка, а затем мне нужно поместить вывод в формулу R.

Например:

total <- c("Blue", "Black", "Green","Red", "White", "Yellow")
small <- c("Blue", "Red")

 Output <- total - small

Что я получил:

Error in Output : 
  non-numeric argument to binary operator

Каков был ожидаемый результат: [1] «Черный», «Зеленый», «Белый», «Желтый»

Затем я хочу отделить элементы Вывода с помощью + и поместить это вформула R:

myFormula <- as.formula(paste(Output, sep=" + "))

Answer 1

Опустить аргумент response, если вы хотите пустую LHS:

reformulate(setdiff(total, small), response = "y")
## y ~ Black + Green + White + Yellow