我有一个有两列的数据框,并且想要创建第三列,它本质上是一个布尔值,用于列2是否包含一组特定的值。基于另一列创建一个新的数据框列
f <- data.frame(name=c("John", "Sara", "David", "Chad"),
car=c("Honda|Ford", "BMW", "Toyota|Chevy|Ford",
"Toyota|Chevy|Ford|Honda"))
我做的第一件事是删除|从第二列的每个字符串,并放置那些价值在第三列
library(stringr)
g = str_replace_all(f$car, "[^[:alnum:]]", " ")
f$make = c(g)
f
我现在要怎么做,如果创建另一列,这将是一个布尔值,1如果make包含一个共同的汽车和0如果它包含一辆不常见的汽车。
common = c("Honda", "Ford", "Toyota", "Chevy")
not_common = c("BMW", "Lexus", "Acura")
我试过几件事情,包括stringr包和ifelse来产生下面的输出。
name car make common
1 John Honda|Ford Honda Ford 1
2 Sara BMW BMW 0
3 David Toyota|Chevy|Ford Toyota Chevy Ford 1
4 Chad Toyota|Chevy|Ford|Honda Toyota Chevy Ford Honda 1
因为它可能同时拥有常见和不常见的车作为入门,不凡的化妆应覆盖常见品牌和该行应采取值0的公共列。因此,如果一个条目同时包含宝马和福特,则该条目在共同栏中应该为0。
任何人都可以帮助完成此任务。
哦,这是我用stringr软件包试过的,但它不起作用。
common = c("Honda", "Ford", "Toyota", "Chevy")
not_common = c("BMW", "Lexus", "Acura")
common_match <- str_c(common)
not_match <- str_c(not_common)
main <- function(df) {
f$new_make <- str_detect(f$make, common_match)
df
}
main(f)
谢谢!