回答編集履歴
2
syuusei
test
CHANGED
|
@@ -5,6 +5,10 @@
|
|
|
5
5
|
score = c(3,6,5,7,7,10,4,8)
|
|
6
6
|
|
|
7
7
|
library(ggplot2)
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
x$time <- factor(x$time, levels = c("pre", "post"))
|
|
8
12
|
|
|
9
13
|
|
|
10
14
|
|
1
syuusei
test
CHANGED
|
@@ -2,17 +2,17 @@
|
|
|
2
2
|
|
|
3
3
|
patient = c("1","1","2","2","3","3","4","4")
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
score = c(3,6,5,7,7,10,4,8)
|
|
6
6
|
|
|
7
7
|
library(ggplot2)
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
|
-
x = data.frame(time, patient,
|
|
11
|
+
x = data.frame(time, patient, score)
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
15
|
-
g = ggplot(x, aes(x = time, y =
|
|
15
|
+
g = ggplot(x, aes(x = time, y = score, group=patient) ) +
|
|
16
16
|
|
|
17
17
|
geom_line() +
|
|
18
18
|
|