我们可以使用setdiff 来查找不在'my_data' 中的列名并将它们分配给'no'
my_data[setdiff(names(data_pangan)[-1], names(my_data[-1]))] <- "no"
my_data
# id_kategori Ekstruksi Permisahan Pendinginan Pemotogan Pengeringan
#1 1 no yes no no no
数据
data_pangan <- structure(list(id_kategori = 1:3, Ekstruksi = c("yes", "no",
"yes"), Permisahan = c("no", "yes", "no"), Pendinginan = c("yes",
"yes", "no"), Pemotogan = c("yes", "no", "no"), Pengeringan = c("no",
"no", "yes")), class = "data.frame", row.names = c(NA, -3L))
my_data <- structure(list(id_kategori = 1, Ekstruksi = "no", Permisahan = "yes"),
class = "data.frame", row.names = c(NA,
-1L))