在my last question之后,我得到了这样的数据帧:
我也有这样的数据:
“ my_data”中需要的数据:
如果“ my_data”中不存在“ data_pangan”属性,该如何将其复制到“ my_data”中?以及如何将值设置为“否”?
答案 0 :(得分:0)
我们可以使用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))