質問編集履歴
2
テキストファイルを読み込むところを書き直し、1行ずつ読むようにしました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -38,4 +38,26 @@
|
|
|
38
38
|
今度はテキストファイルを分割して、別々でMeCabにかけてから統合しようとおもいます…。
|
|
39
39
|
|
|
40
40
|
時間かかってしまいそうだったので途中経過でした。
|
|
41
|
-
また書きます〜！
|
|
41
|
+
また書きます〜！
|
|
42
|
+
|
|
43
|
+
|
|
44
|
+
**追加（2018/06/17 12:10）**
|
|
45
|
+
|
|
46
|
+
テキストファイルを読み込むところを書き直し、1行ずつ読み込むようにしました！
|
|
47
|
+
リストを整形する方法がわからずつまづいているので、もう少しです…！
|
|
48
|
+
```R
|
|
49
|
+
f<-file("ファイルパス〜〜.txt","r")
|
|
50
|
+
word3 <- list()
|
|
51
|
+
repeat {
|
|
52
|
+
# for (line in lines) {
|
|
53
|
+
a<-readLines(con=f,1)
|
|
54
|
+
print(a)
|
|
55
|
+
if (length(a) == 0) {
|
|
56
|
+
break
|
|
57
|
+
}
|
|
58
|
+
if (a == "") {
|
|
59
|
+
next
|
|
60
|
+
}
|
|
61
|
+
word3 <- append(word3, RMeCabC(a))
|
|
62
|
+
}
|
|
63
|
+
```
|
1
アドバイスいただいたのでsapplyを書き直しました。続きまたあとでやってみます！
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,4 +18,24 @@
|
|
|
18
18
|
|
|
19
19
|
lengthが5000ぐらいのデータならうまくうごきます！
|
|
20
20
|
|
|
21
|
-
なにか手の施しようはありますでしょうか…。
|
|
21
|
+
なにか手の施しようはありますでしょうか…。
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
**追加：**
|
|
25
|
+
KojiDoiさまご回答ありがとうございます！
|
|
26
|
+
てさぐりながら、lapply部分をforに書き換えました！
|
|
27
|
+
合っていますでしょうか…。
|
|
28
|
+
```R
|
|
29
|
+
word2 <- list()
|
|
30
|
+
for (i in (1:length(RMeCabText.result))) {
|
|
31
|
+
class(RMeCabText.result[[i]][1])
|
|
32
|
+
word2 <- append(word2, RMeCabText.result[[i]][1])
|
|
33
|
+
}
|
|
34
|
+
word2 <- unlist(word2)
|
|
35
|
+
```
|
|
36
|
+
しかし、今度はRMeCabが重くて？動かなくなってしまった
|
|
37
|
+
（Rstudio.appが「R session aborted」と言っている）ので、
|
|
38
|
+
今度はテキストファイルを分割して、別々でMeCabにかけてから統合しようとおもいます…。
|
|
39
|
+
|
|
40
|
+
時間かかってしまいそうだったので途中経過でした。
|
|
41
|
+
また書きます〜！
|