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

时间:2019-12-21 17:33:45

标签: r

my last question之后,我得到了这样的数据帧:

data_pangan

我也有这样的数据:

my_data

“ my_data”中需要的数据:

Data that I need

如果“ my_data”中不存在“ data_pangan”属性,该如何将其复制到“ my_data”中?以及如何将值设置为“否”?

1 个答案:

答案 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))