r - 根据条件对独特的观察进行编码

Question

假设我有一个数据集

car_manu    owner
ford         1
toyota       1
ford         2
ford         3
ford         3
ford         3

我想创建一个变量来说明他们是否是“一个车主”——这意味着车主 2 是一个车主。我知道这会使用 unique(df$owner) 但我不确定将其分配给观察。

预期的输出是

 car_manu owner     type
     ford     1 multicar   
   toyota     1 multicar
     ford     2   onecar
     ford     3 multicar
     ford     3 multicar
     ford     3 multicar

Answer 1

这是一个基本的 R 可能性

tab <- tabulate(df$owner)
cbind(df, type = rep(ifelse(tab == 1L, "onecar", "multicar"), tab))
#   car_manu owner     type
# 1     ford     1 multicar
# 2   toyota     1 multicar
# 3     ford     2   onecar
# 4     ford     3 multicar
# 5     ford     3 multicar
# 6     ford     3 multicar

在哪里

df <- structure(list(car_manu = structure(c(1L, 2L, 1L, 1L, 1L, 1L), .Label = c("ford", 
"toyota"), class = "factor"), owner = c(1L, 1L, 2L, 3L, 3L, 3L
)), .Names = c("car_manu", "owner"), class = "data.frame", row.names = c(NA, 
-6L))