cSplitを使用して文字列を大文字で複数の行に分割する

1
Antonio 2019-09-06 17:16.

調査データがあります。いくつかの質問は複数の答えを可能にしました。私のデータでは、さまざまな回答がコンマで区切られています。選択肢ごとにデータフレームに新しい行を追加したいと思います。だから私はこのようなものを持っています:

survey$q1 <- c("I like this", "I like that", "I like this, but not much",
 "I like that, but not much", "I like this,I like that", 
"I like this, but not much,I like that")

使用する複数の選択肢を分割するためだけにコンマがあった場合:

survey <- cSplit(survey, "q1", ",", direction = "long")

希望の結果が得られます。いくつかのコンマが答えの一部であるとすると、コンマの後に大文字を区切り文字として使用してみました。

survey <- cSplit(survey, "q1", ",(?=[A-Z])", direction = "long")

しかし、何らかの理由でそれは機能しません。エラーは発生しませんが、文字列を分割せず、データフレームから一部の行を削除します。次に、strsplitを使用してみました。

strsplit(survey$1, ",(?=[A-Z])", perl=T)

これは正しく分割するのに役立ちますが、cSplitのように、各文が同じ列の異なる行になるように実装することはできません。必要な出力は次のとおりです。

survey$q1
[1] "I like this"
[2] "I like that"
[3] "I like this, but not much"
[4] "I like that, but not much"
[5] "I like this"
[6] "I like that"
[7] "I like this, but not much"
[8] "I like that"

2つの方法のいずれかを使用して取得する方法はありますか?ありがとうございました

2 answers

2
akrun 2019-09-07 00:22.

オプション付き separate_rows

library(dplyr)
library(tidyr)
survey %>% 
   separate_rows(q1, sep=",(?=[A-Z])")
#                       q1
#1               I like this
#2               I like that
#3 I like this, but not much
#4 I like that, but not much
#5               I like this
#6               I like that
#7 I like this, but not much
#8               I like that

ではcSplit、引数が存在しfixedているTRUEデフォルトでは、私たちが使用している場合fixed = FALSE、それは失敗することがあります。PCRE正規表現用に最適化されていないことが原因である可能性があります

library(splitstackshape)
cSplit(survey, "q1", ",(?=[A-Z])", direction = "long", fixed = FALSE)

strsplit(indt [[splitCols [x]]]、split = sep [x]、fixed = fixed)のエラー:無効な正規表現 '、(?= [AZ])'、理由 '無効な正規表現'

それをバイパスする1つのオプションsub/gsubは、PCRE正規表現をsep使用cSplitしてを変更し、それを使用できる関数()を使用して列を変更することです。sep

cSplit(transform(survey, q1 = sub(",(?=[A-Z])", ":", q1, perl = TRUE)), 
         "q1", sep=":", direction = "long")
#                        q1
#1:               I like this
#2:               I like that
#3: I like this, but not much
#4: I like that, but not much
#5:               I like this
#6:               I like that
#7: I like this, but not much
#8:               I like that

データ

survey <- structure(list(q1 = c("I like this", "I like that", "I like this, but not much", 
"I like that, but not much", "I like this,I like that", "I like this, but not much,I like that"
)), class = "data.frame", row.names = c(NA, -6L))
1
Antonio 2019-09-07 01:20.

@akrunによる答えは正しいものです。追加したかったのですが、いくつかの文字列を3つ以上の部分に分割する必要がある場合、彼のコードが機能する方法は、同じ行を複数回実行することです。なぜそうなるのか完全にはわかりませんが、機能します

Related questions

MORE COOL STUFF

「水曜日」シーズン1の中心には大きなミステリーがあります

「水曜日」シーズン1の中心には大きなミステリーがあります

Netflixの「水曜日」は、典型的な10代のドラマ以上のものであり、実際、シーズン1にはその中心に大きなミステリーがあります.

ボディーランゲージの専門家は、州訪問中にカミラ・パーカー・ボウルズが輝くことを可能にした微妙なケイト・ミドルトンの動きを指摘しています

ボディーランゲージの専門家は、州訪問中にカミラ・パーカー・ボウルズが輝くことを可能にした微妙なケイト・ミドルトンの動きを指摘しています

ケイト・ミドルトンは、州の夕食会と州の訪問中にカミラ・パーカー・ボウルズからスポットライトを奪いたくなかった、と専門家は言う.

一部のファンがハリー・スタイルズとオリビア・ワイルドの「非常に友好的な」休憩が永続的であることを望んでいる理由

一部のファンがハリー・スタイルズとオリビア・ワイルドの「非常に友好的な」休憩が永続的であることを望んでいる理由

一部のファンが、オリビア・ワイルドが彼女とハリー・スタイルズとの間の「難しい」が「非常に友好的」な分割を恒久的にすることを望んでいる理由を見つけてください.

エリザベス女王の死後、ケイト・ミドルトンはまだ「非常に困難な時期」を過ごしている、と王室の専門家が明らかにする 

エリザベス女王の死後、ケイト・ミドルトンはまだ「非常に困難な時期」を過ごしている、と王室の専門家が明らかにする&nbsp;

エリザベス女王の死後、ケイト・ミドルトンが舞台裏で「非常に困難な時期」を過ごしていたと伝えられている理由を調べてください.

セントヘレナのジェイコブのはしごを登るのは、気弱な人向けではありません

セントヘレナのジェイコブのはしごを登るのは、気弱な人向けではありません

セント ヘレナ島のジェイコブズ ラダーは 699 段の真っ直ぐ上る階段で、頂上に到達すると証明書が発行されるほどの難易度です。

The Secrets of Airline Travel Quiz

The Secrets of Airline Travel Quiz

Air travel is far more than getting from point A to point B safely. How much do you know about the million little details that go into flying on airplanes?

Where in the World Are You? Take our GeoGuesser Quiz

Where in the World Are You? Take our GeoGuesser Quiz

The world is a huge place, yet some GeoGuessr players know locations in mere seconds. Are you one of GeoGuessr's gifted elite? Take our quiz to find out!

バイオニック読書はあなたをより速く読むことができますか?

バイオニック読書はあなたをより速く読むことができますか?

BionicReadingアプリの人気が爆発的に高まっています。しかし、それは本当にあなたを速読術にすることができますか?

その時ゼルダの予告編はおそらく成長した男性を泣かせた

その時ゼルダの予告編はおそらく成長した男性を泣かせた

まったく新しいゼルダの伝説ゲームが期待されているゲームの公開はほとんどありませんが、2004年のE3でトワイライトプリンセスが生み出した激しい反応には何の影響もありません。ゲーム会社が記者会見を従業員でいっぱいにするのはよくあることです。

レポート:テリーコリンズはメッツマネージャーとして行われる

レポート:テリーコリンズはメッツマネージャーとして行われる

写真:アル・ベロ/ゲッティ・ケン・ローゼンタールは、今日のフィリーズとの試合が終了すると、テリー・コリンズがメッツのマネージャーを辞任すると報告しています。これは、大きな救済として上陸したとしても、大きなショックではありません。コリンズの契約は今シーズン後に失効する予定だったので、メッツは彼の将来について何らかの形で決定することを決定しました、そしてロッカールームが準備ができた有毒な場所になったという報告が出た後、彼らが彼を連れ戻すことは想像できませんでした彼らのマネージャーから移動します。

その時私はウェンディのツイッターアカウントを実行している間にウイルスに行きました

その時私はウェンディのツイッターアカウントを実行している間にウイルスに行きました

この画像は法的な理由で削除されました。16分は、一時的に口コミで広まった一般の人々にチェックインするシリーズです。

ポルシェ911フラットシックスが高解像度で解剖されるのを見る

ポルシェ911フラットシックスが高解像度で解剖されるのを見る

写真:911 Magazine / Vimeoポルシェ911フラットシックスは象徴的なエンジンです。このリアマウントエンジンは、おそらくこれまでで最も話題になり、賞賛されたスポーツカーの心臓部です。

ケイト・ミドルトンとウィリアム王子は、彼らが子供たちと行っているスパイをテーマにした活動を共有しています

ケイト・ミドルトンとウィリアム王子は、彼らが子供たちと行っているスパイをテーマにした活動を共有しています

ケイト・ミドルトンとウィリアム王子は、子供向けのパズルの本の序文を書き、ジョージ王子、シャーロット王女、ルイ王子と一緒にテキストを読むと述べた.

事故で押しつぶされたスイカは、動物を喜ばせ水分補給するために野生生物保護団体に寄付されました

事故で押しつぶされたスイカは、動物を喜ばせ水分補給するために野生生物保護団体に寄付されました

Yak's Produce は、数十個のつぶれたメロンを野生動物のリハビリ専門家であるレスリー グリーンと彼女のルイジアナ州の救助施設で暮らす 42 匹の動物に寄付しました。

デミ・ロヴァートは、新しいミュージシャンのボーイフレンドと「幸せで健康的な関係」にあります: ソース

デミ・ロヴァートは、新しいミュージシャンのボーイフレンドと「幸せで健康的な関係」にあります: ソース

8 枚目のスタジオ アルバムのリリースに向けて準備を進めているデミ ロヴァートは、「スーパー グレート ガイ」と付き合っている、と情報筋は PEOPLE に確認しています。

Plathville の Kim と Olivia Plath が数年ぶりに言葉を交わすことへようこそ

Plathville の Kim と Olivia Plath が数年ぶりに言葉を交わすことへようこそ

イーサン プラスの誕生日のお祝いは、TLC のウェルカム トゥ プラスビルのシーズン 4 のフィナーレで、戦争中の母親のキム プラスと妻のオリビア プラスを結びつけました。

仕事の生産性を高める 8 つのシンプルなホーム オフィスのセットアップのアイデア

仕事の生産性を高める 8 つのシンプルなホーム オフィスのセットアップのアイデア

ホームオフィスのセットアップ術を極めよう!AppExert の開発者は、家族全員が一緒にいる場合でも、在宅勤務の技術を習得しています。祖父や曽祖父が共同家族で暮らしていた頃の記憶がよみがえりました。

2022 年、私たちのデジタル ライフはどこで終わり、「リアル ライフ」はどこから始まるのでしょうか?

20 年前のタイムトラベラーでさえ、日常生活におけるデジタルおよびインターネットベースのサービスの重要性に驚くことでしょう。MySpace、eBay、Napster などのプラットフォームは、高速化に焦点を合わせた世界がどのようなものになるかを示してくれました。

ニューロマーケティングの秘密科学

ニューロマーケティングの秘密科学

マーケティング担当者が人間の欲望を操作するために使用する、最先端の (気味が悪いと言う人もいます) メソッドを探ります。カートをいっぱいにして 3 桁の領収書を持って店を出る前に、ほんの数点の商品を買いに行ったことはありませんか? あなたは一人じゃない。

地理情報システムの日: GIS 開発者として学ぶべき最高の技術スタック

地理情報システムの日: GIS 開発者として学ぶべき最高の技術スタック

私たちが住んでいる世界を確実に理解するには、データが必要です。ただし、空間参照がない場合、このデータは地理的コンテキストがないと役に立たなくなる可能性があります。

Language