質問編集履歴
3
エラー追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -209,3 +209,93 @@
|
|
|
209
209
|
|
|
210
210
|
|
|
211
211
|
このエラーの詳細や対策方法などご教授いただけると幸いです．
|
|
212
|
+
|
|
213
|
+
|
|
214
|
+
|
|
215
|
+
//追記
|
|
216
|
+
|
|
217
|
+
Rを再起動したところ，下記のようなエラーが出ました．途中まではうまく通るようになったようです，回答ありがとうございます．
|
|
218
|
+
|
|
219
|
+
```R
|
|
220
|
+
|
|
221
|
+
> library(kohonen)
|
|
222
|
+
|
|
223
|
+
> library(ggplot2)
|
|
224
|
+
|
|
225
|
+
>
|
|
226
|
+
|
|
227
|
+
> #---ここのDimとUseDataを必要に応じて変更する
|
|
228
|
+
|
|
229
|
+
> Dim <- 10
|
|
230
|
+
|
|
231
|
+
> UseData <- do.call(cbind, iris[, -5])
|
|
232
|
+
|
|
233
|
+
> UseData <- scale(UseData)
|
|
234
|
+
|
|
235
|
+
>
|
|
236
|
+
|
|
237
|
+
>
|
|
238
|
+
|
|
239
|
+
> #------SOMの実行
|
|
240
|
+
|
|
241
|
+
> GRID <- somgrid(xdim = Dim, ydim = Dim, topo = "hexa")
|
|
242
|
+
|
|
243
|
+
> DataSom <- som(UseData, grid = GRID)
|
|
244
|
+
|
|
245
|
+
>
|
|
246
|
+
|
|
247
|
+
> DataHex <- data.frame(DataSom$codes)
|
|
248
|
+
|
|
249
|
+
> DataHexStd <- data.frame(scale(DataHex))
|
|
250
|
+
|
|
251
|
+
> DataHexStd$x <- rep(1:Dim, Dim)
|
|
252
|
+
|
|
253
|
+
> DataHexStd$y <- rep(1:Dim, rep(Dim, Dim))
|
|
254
|
+
|
|
255
|
+
>
|
|
256
|
+
|
|
257
|
+
> #---------グラフ
|
|
258
|
+
|
|
259
|
+
> HighCol <- "#950000"
|
|
260
|
+
|
|
261
|
+
> LowCol <- "#3500BF"
|
|
262
|
+
|
|
263
|
+
>
|
|
264
|
+
|
|
265
|
+
>
|
|
266
|
+
|
|
267
|
+
> #------textの追加
|
|
268
|
+
|
|
269
|
+
> DataSomMap <- data.frame(Data = 1:nrow(UseData),
|
|
270
|
+
|
|
271
|
+
+ x = DataSom$unit.classif - trunc((DataSom$unit.classif - 1)/Dim) * Dim,
|
|
272
|
+
|
|
273
|
+
+ y = trunc((DataSom$unit.classif - 1)/Dim) + 1)
|
|
274
|
+
|
|
275
|
+
> DataSomMap$x <- DataSomMap$x + runif(nrow(UseData), -0.5, 0.5)
|
|
276
|
+
|
|
277
|
+
> DataSomMap$y <- DataSomMap$y + runif(nrow(UseData), -0.5, 0.5)
|
|
278
|
+
|
|
279
|
+
> DataSomMap <- cbind(DataSomMap, UseData)
|
|
280
|
+
|
|
281
|
+
>
|
|
282
|
+
|
|
283
|
+
>
|
|
284
|
+
|
|
285
|
+
> #------ggplot2
|
|
286
|
+
|
|
287
|
+
> i <-1
|
|
288
|
+
|
|
289
|
+
> ggplot(DataHexStd, aes(x, y, col = DataHexStd[, i])) +
|
|
290
|
+
|
|
291
|
+
+ scale_colour_gradient2(high = LowCol, low = HighCol) +
|
|
292
|
+
|
|
293
|
+
+ geom_point(size = 190 / Dim, shape = 15) +
|
|
294
|
+
|
|
295
|
+
+ opts(legend.position = "none", title = names(DataHexStd)[i])
|
|
296
|
+
|
|
297
|
+
opts(legend.position = "none", title = names(DataHexStd)[i]) でエラー:
|
|
298
|
+
|
|
299
|
+
関数 "opts" を見つけることができませんでした
|
|
300
|
+
|
|
301
|
+
```
|
2
Rに直しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
|
-
```
|
|
11
|
+
```R
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
@@ -94,7 +94,7 @@
|
|
|
94
94
|
|
|
95
95
|
しかし下記のようにエラーがでてきます．
|
|
96
96
|
|
|
97
|
-
```
|
|
97
|
+
```R
|
|
98
98
|
|
|
99
99
|
> library(kohonen)
|
|
100
100
|
|
1
Rに記述しなおしました
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
RでのSOM 自己組織化マップ
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
R初学者です．タイトルの通り，RでSOMをつくりたくいろんなサイトを参考に試行錯誤していますが，うまくいかず困っています．
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|