2020-06-11

横坐标是分类/日期变量，纵坐标是数值变量，画折线图
例1：

datedata
date value class
1 2020-01-01 0.39121506 a
2 2020-01-02 0.80494396 a
3 2020-01-03 0.58351189 a
4 2020-01-04 0.05941928 a
5 2020-01-05 0.07531910 a
6 2020-01-06 0.80780271 a
7 2020-01-07 0.06380257 a
8 2020-01-08 0.92145849 a
9 2020-01-09 0.73850064 a
10 2020-01-10 0.35237536 a
11 2020-01-11 0.92347969 a
12 2020-01-12 0.79455759 a
13 2020-01-13 0.75459159 a
14 2020-01-14 0.87136337 a
15 2020-01-15 0.47105110 a
16 2020-01-16 0.16413874 a
17 2020-01-17 0.05736173 a
18 2020-01-18 0.44688925 a
19 2020-01-19 0.42349645 a
20 2020-01-20 0.97528244 a
21 2020-01-21 0.62083745 a
22 2020-01-01 0.46938583 b
23 2020-01-02 0.82710660 b
24 2020-01-03 0.71093411 b
25 2020-01-04 0.73021773 b
26 2020-01-05 0.79499679 b
27 2020-01-06 0.65321258 b
28 2020-01-07 0.40133712 b
29 2020-01-08 0.96178454 b
30 2020-01-09 0.04142646 b
31 2020-01-10 1.07853129 b
32 2020-01-11 0.12897003 b
33 2020-01-12 0.85772176 b
34 2020-01-13 0.12634062 b
35 2020-01-14 0.96898946 b
36 2020-01-15 0.42971008 b
37 2020-01-16 0.11953182 b
38 2020-01-17 0.02485203 b
39 2020-01-18 0.33823720 b
40 2020-01-19 0.18782383 b
41 2020-01-20 0.46701040 b
42 2020-01-21 0.79352727 b
43 2020-01-01 0.25582165 c
44 2020-01-02 0.36760256 c
45 2020-01-03 0.16433186 c
46 2020-01-04 0.56795373 c
47 2020-01-05 0.86550311 c
48 2020-01-06 0.46132921 c
49 2020-01-07 0.83051082 c
50 2020-01-08 0.17638435 c
51 2020-01-09 0.84784771 c
52 2020-01-10 0.26215971 c
53 2020-01-11 0.87021982 c
54 2020-01-12 0.73355191 c
55 2020-01-13 0.05142295 c
56 2020-01-14 0.68029021 c
57 2020-01-15 0.34619824 c
58 2020-01-16 0.87034349 c
59 2020-01-17 0.66815194 c
60 2020-01-18 0.04437336 c
61 2020-01-19 0.41315784 c
62 2020-01-20 0.56587129 c
63 2020-01-21 0.27803644 c
library(ggplot2)
library(gridExtra)
p1 <- ggplot(datedata)+geom_line(aes(x=date,y=value,group=class,color=class))+geom_point(aes(x=date,y=value,group=class,color=class))+scale_x_date(date_breaks = “1 day”)+theme_light()+theme(axis.text.x = element_text(angle = 90, hjust = 1))
p2 <- ggplot(datedata)+geom_line(aes(x=date,y=value,group=class,color=class))+geom_point(aes(x=date,y=value,group=class,color=class))+scale_x_date(date_breaks = “1 day”)+theme_light()+theme(axis.text.x = element_text(angle = 90, hjust = 1))+facet_wrap(~class,ncol = 3)
grid.arrange(p1,p2,ncol=1)

---

例2：

df
cond yval
1 A 2.0
2 B 2.5
3 C 1.6
p3 <- ggplot(df)+geom_line(aes(x=cond,y=yval,group=1))
p4 <- ggplot(df)+geom_line(aes(x=cond,y=yval,group=1),color=“blue”)+geom_point(aes(x=cond,y=yval),color=“red”,size=3)
grid.arrange(p3,p4,ncol=2)