回答編集履歴
1
追記
test
CHANGED
@@ -9,3 +9,63 @@
|
|
9
9
|
|
10
10
|
|
11
11
|
例で使われているデータフレームとggplot()の使い方をよく見てみましょう。そしてあなたの書いたプログラムと比較してみましょう。
|
12
|
+
|
13
|
+
|
14
|
+
|
15
|
+
# 追記:データフレームの変形
|
16
|
+
|
17
|
+
|
18
|
+
|
19
|
+
私の誘導がまずかったようです。考察すべきはggplotの使い方というよりdataframeの変形の手順でしたね。
|
20
|
+
|
21
|
+
|
22
|
+
|
23
|
+
ggplotで使うために、データフレームの列とグラフ上のx,yが1:1対応するような形にしなければなりません。
|
24
|
+
|
25
|
+
そのための便利な関数があります。
|
26
|
+
|
27
|
+
|
28
|
+
|
29
|
+
```
|
30
|
+
|
31
|
+
library(dplyr)
|
32
|
+
|
33
|
+
data_raw <- read.table(text="
|
34
|
+
|
35
|
+
303 312 324 304 324 326 339 345 346
|
36
|
+
|
37
|
+
278 316 315 301 313 313 305 310 310
|
38
|
+
|
39
|
+
194 217 216 205 213 212 215 221 222
|
40
|
+
|
41
|
+
150 170 170 162 170 173 171 173 173
|
42
|
+
|
43
|
+
84 94 94 91 94 97 98 100 102
|
44
|
+
|
45
|
+
224 241 240 228 241 248 251 252 238
|
46
|
+
|
47
|
+
")
|
48
|
+
|
49
|
+
colnames(data_raw) <- c("pre","0min","1min","5min","10min","15min","20min","25min","30min")
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
data_mod <- data_raw %>% tidyr::gather(key=time, value=count)
|
54
|
+
|
55
|
+
```
|
56
|
+
|
57
|
+
元データ(data_raw)と変形後のデータ(data_mod)を見比べてください。
|
58
|
+
|
59
|
+
複数列に分かれていたデータが1列にまとまり、なおかつ、それぞれのデータがもともと所属していた列の名が新たな列("time")の中に記述されているのがわかります。
|
60
|
+
|
61
|
+
|
62
|
+
|
63
|
+
これでggplotのx,yとして使える列がそろったわけです。ggplotのaesの中にこの列名を指定します。これでたぶん求めているグラフが描けるのではないでしょうか。
|
64
|
+
|
65
|
+
```
|
66
|
+
|
67
|
+
g <- ggplot(data_mod, aes(x=time, y=count)) + geom_boxplot()
|
68
|
+
|
69
|
+
plot(g)
|
70
|
+
|
71
|
+
```
|