0

2つの列を持つデータフレームがあり、2番目の列に特定の指定された値のセットが含まれているかどうかのブール値となる3番目の列を作成したいと思います。

f <- data.frame(name=c("John", "Sara", "David", "Chad"),
                 car=c("Honda|Ford", "BMW", "Toyota|Chevy|Ford", 
                 "Toyota|Chevy|Ford|Honda"))

私が最初にしたことは|を削除することでした 2番目の列の各文字列から、値を3番目の列に配置します

library(stringr)
g = str_replace_all(f$car, "[^[:alnum:]]", " ")
f$make = c(g)
f

別の列を作成する場合は、ブール値、makeに一般的な車が含まれている場合は1、一般的でない車が含まれている場合は0を作成します。

common = c("Honda", "Ford", "Toyota", "Chevy")
not_common = c("BMW", "Lexus", "Acura")

ストリンガーパッケージや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を取る必要があります。したがって、エントリにBMWとFordの両方が含まれている場合、そのエントリは共通の列で0を取る必要があります。

誰でもこのタスクを手伝ってもらえますか？

ああ、これがストリンガーパッケージで試したものですが、機能しません。

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)

ありがとう！

4

2 に答える 2

2

別の方法と比較

f2 <- f[rep(1:4,50000),]
system.time({
v <- sapply(f2$make, strsplit, " ")
sapply(v, function(x) max(1-not_common %in% x)*max(common %in% x))
})
 user  system elapsed 
 7.94    0.01    8.00 

system.time(sapply(f2$car,function(x) ifelse(length(grep("BMW|Lexus|Acura",x))>0,0,1)))
 user  system elapsed 
28.72    0.04   28.87
于 2012-07-09T21:16:03.653 に答える
2

これが最も効率的な方法かどうかはわかりませんが、 を使用して の各値に適用してgrepみてください。これらの文字は、検索語を内部で結合することを意味するだけであり、データの区切り記号とは何の関係もありません。ifelsef$car|orgrep

f$common <- sapply(f$car,function(x) ifelse(length(grep("BMW|Lexus|Acura",x))>0,0,1))

結果：

> f
   name                     car common
1  John              Honda|Ford      1
2  Sara                     BMW      0
3 David       Toyota|Chevy|Ford      1
4  Chad Toyota|Chevy|Ford|Honda      1
于 2012-07-09T21:07:39.763 に答える