如何将属性从数据框复制到另一个数据框

Posted 2023-02-02

my last question之后，我有这样的数据帧：

而且我也有这样的数据：

我需要从“ my_data”中获取的数据：

如果“ my_data”中不存在“ data_pangan”属性，该属性如何复制到“ my_data”中？以及如何将值设置为“ no”？

答案

我们可以使用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))