2017-12-04 12 views
2

次のデータセットがあります。 devtools::reproduce()を使用してここにデータのサンプルを入れました。私は助けが必要な列を選択しました。これはgenresです。文字列の場所に基づいてテキストを解析するためにstringrを使用する必要があります

下記のジャンルが多数あります。私は映画データベースを扱っており、そこにリストされている最初のジャンル(このフォーマットはGenre1 | Genre2 | Genre3)だけを使いたいと思っています。

stringrまたは別のパッケージを使用して、この文字列データを必要な方法で解析するにはどうすればよいですか?

最終的な結果は、回帰モデルで使用することです。

> dput(droplevels(head(movie.cpi,4))) 
structure(list(num_critic_for_reviews = c(723L, 302L, 813L, 462L 
), director_facebook_likes = c(0L, 563L, 22000L, 475L), actor_3_facebook_likes = c(855L, 
1000L, 23000L, 530L), actor_1_facebook_likes = c(1000L, 40000L, 
27000L, 640L), gross = c(866161204.765035, 364628240.876025, 
476821933.103659, 77736216.375), genres = structure(c(2L, 1L, 
4L, 3L), .Label = c("Action|Adventure|Fantasy", "Action|Adventure|Fantasy|Sci-Fi", 
"Action|Adventure|Sci-Fi", "Action|Thriller"), class = "factor"), 
    num_voted_users = c(886204L, 471220L, 1144337L, 212204L), 
    cast_total_facebook_likes = c(4834L, 48350L, 106759L, 1873L 
    ), facenumber_in_poster = c(0L, 0L, 0L, 1L), num_user_for_reviews = c(3054L, 
    1238L, 2701L, 738L), content_rating = structure(c(1L, 1L, 
    1L, 1L), .Label = "PG-13", class = "factor"), budget = c(269925874.125874, 
    353545586.107091, 266006097.560976, 280583231.707317), title_year = c(2009L, 
    2007L, 2012L, 2012L), actor_2_facebook_likes = c(936L, 5000L, 
    23000L, 632L), imdb_score = c(7.9, 7.1, 8.5, 6.6), movie_facebook_likes = c(33000L, 
    0L, 164000L, 24000L)), .Names = c("num_critic_for_reviews", 
"director_facebook_likes", "actor_3_facebook_likes", "actor_1_facebook_likes", 
"gross", "genres", "num_voted_users", "cast_total_facebook_likes", 
"facenumber_in_poster", "num_user_for_reviews", "content_rating", 
"budget", "title_year", "actor_2_facebook_likes", "imdb_score", 
"movie_facebook_likes"), row.names = c(NA, 4L), class = "data.frame") 
+2

'movie.cpi $ genre_1 < - gsub( "\\ |。* $"、 "、movie.cpi $ genres)'。あなたが完全なデータを投稿するとき、我々は確かに言うかもしれません。 – Masoud

答えて

0

あなたは、その列のうち、抽出された第1ジャンルを得ることができ、次のコマンドを使用して(私は新しい列にそれを保存はgenre_1と呼ばれる):

これはおそらく働くだろう
movie.cpi$genre_1 <- gsub("\\|.*$", "", movie.cpi$genres) 

movie.cpi[,c("genres", "genre_1")] 

##       genres genre_1 
## 1 Action|Adventure|Fantasy|Sci-Fi Action 
## 2  Action|Adventure|Fantasy Action 
## 3     Action|Thriller Action 
## 4   Action|Adventure|Sci-Fi Action 
関連する問題