

RMeCabを使った形態素解析で、文章中の句読点（。 、）とサ変接続（”
’）を取り除く方法を教えて頂けませんでしょうか？下のコードを試したのですが、消すことができませんでした。

[code]

    data_clean <- gsub('。', "", data)
    data_clean <- gsub('、', "", data)
    data_clean <- gsub(',', "", data)
    data_clean <- gsub('"', "", data)
    data_clean <- gsub(''', "", data)
    
[/code]


CC BY-SA 3.0
2016-11-09T09:38:28.480
30266
2016-11-17T23:38:48.847
2016-11-09T11:42:17.277
76
19408
question
r
gsubで句読点とサ変接続を取り除く方法


。や、には全角半角の両タイプがあるため除去漏れが生じているのではないでしょうか
(Rは全角`。`と半角`｡`を区別します)。半角の`'`は`\'`と、`"`は`\"`と表記することでパターンに含める事ができます。なお、`gsub()`は`|`を用いることで複数のパターンを引数に取ることができます。

[code]

      # data例 (左から各記号の全角版・半角版が挟まっています、"を入れた都合で\が入っています)
    x <- "あ。い｡う、え､お’か'き”く\"け"
    
    　 # 全角半角両方の 。 、 ” ’ をパターンに指定し、除去
    gsub(pattern = "。|｡|、|､|”|\"|’|\'", replacement = "", x)   # [1] "あいうえおかきくけ"
    
        # 正規表現を用いたパターンマッチ (@MichaelChirico様コメントありがとうございます)
       gsub(pattern = "[。｡、､”\"’\']", replacement = "", x)
    
    library(stringr)
    str_replace_all(x, pattern = "。|｡|、|､|”|\"|’|\'", replacement = "")   # 同上
    
    a <- str_extract_all(x, pattern = "\\p{Hiragana}|\\p{Katakana}|\\p{Han}")
    paste(a[[1]], collapse = "")　　# 削除ではなく抽出で処理
    
[/code]


CC BY-SA 3.0
2016-11-09T12:35:10.457
30271
2016-11-17T23:38:48.847
2016-11-17T23:38:48.847
15653
15653
30266
answer