r - Subtract sets so that rest of the similar multiple elements are retained in the result

Question

For example, I have 2 chairs and one table in set1 and 1 chair in set2. I want to subtract set2 from set1 and want the result as c("chair", "table")

set1 <- c("chair", "chair", "table")
set2 <- c("chair")

setdiff(set1, set2)

gives "table"

Answer 1

set1 <- c("chair", "chair", "table")
set2 <- c("chair")

levels <- union(set1, set2)

set1 <- factor(set1, levels = levels)
set2 <- factor(set2, levels = levels)

rep(levels, table(set1) - table(set2))
#[1] "chair" "table"