質問編集履歴
2
テキストファイルを読み込むところを書き直し、1行ずつ読むようにしました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -79,3 +79,47 @@
|
|
|
79
79
|
時間かかってしまいそうだったので途中経過でした。
|
|
80
80
|
|
|
81
81
|
また書きます〜！
|
|
82
|
+
|
|
83
|
+
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
**追加（2018/06/17 12:10）**
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
|
|
91
|
+
テキストファイルを読み込むところを書き直し、1行ずつ読み込むようにしました！
|
|
92
|
+
|
|
93
|
+
リストを整形する方法がわからずつまづいているので、もう少しです…！
|
|
94
|
+
|
|
95
|
+
```R
|
|
96
|
+
|
|
97
|
+
f<-file("ファイルパス〜〜.txt","r")
|
|
98
|
+
|
|
99
|
+
word3 <- list()
|
|
100
|
+
|
|
101
|
+
repeat {
|
|
102
|
+
|
|
103
|
+
# for (line in lines) {
|
|
104
|
+
|
|
105
|
+
a<-readLines(con=f,1)
|
|
106
|
+
|
|
107
|
+
print(a)
|
|
108
|
+
|
|
109
|
+
if (length(a) == 0) {
|
|
110
|
+
|
|
111
|
+
break
|
|
112
|
+
|
|
113
|
+
}
|
|
114
|
+
|
|
115
|
+
if (a == "") {
|
|
116
|
+
|
|
117
|
+
next
|
|
118
|
+
|
|
119
|
+
}
|
|
120
|
+
|
|
121
|
+
word3 <- append(word3, RMeCabC(a))
|
|
122
|
+
|
|
123
|
+
}
|
|
124
|
+
|
|
125
|
+
```
|
1
アドバイスいただいたのでsapplyを書き直しました。続きまたあとでやってみます！
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -39,3 +39,43 @@
|
|
|
39
39
|
|
|
40
40
|
|
|
41
41
|
なにか手の施しようはありますでしょうか…。
|
|
42
|
+
|
|
43
|
+
|
|
44
|
+
|
|
45
|
+
|
|
46
|
+
|
|
47
|
+
**追加：**
|
|
48
|
+
|
|
49
|
+
KojiDoiさまご回答ありがとうございます！
|
|
50
|
+
|
|
51
|
+
てさぐりながら、lapply部分をforに書き換えました！
|
|
52
|
+
|
|
53
|
+
合っていますでしょうか…。
|
|
54
|
+
|
|
55
|
+
```R
|
|
56
|
+
|
|
57
|
+
word2 <- list()
|
|
58
|
+
|
|
59
|
+
for (i in (1:length(RMeCabText.result))) {
|
|
60
|
+
|
|
61
|
+
class(RMeCabText.result[[i]][1])
|
|
62
|
+
|
|
63
|
+
word2 <- append(word2, RMeCabText.result[[i]][1])
|
|
64
|
+
|
|
65
|
+
}
|
|
66
|
+
|
|
67
|
+
word2 <- unlist(word2)
|
|
68
|
+
|
|
69
|
+
```
|
|
70
|
+
|
|
71
|
+
しかし、今度はRMeCabが重くて？動かなくなってしまった
|
|
72
|
+
|
|
73
|
+
（Rstudio.appが「R session aborted」と言っている）ので、
|
|
74
|
+
|
|
75
|
+
今度はテキストファイルを分割して、別々でMeCabにかけてから統合しようとおもいます…。
|
|
76
|
+
|
|
77
|
+
|
|
78
|
+
|
|
79
|
+
時間かかってしまいそうだったので途中経過でした。
|
|
80
|
+
|
|
81
|
+
また書きます〜！
|