横坐标分类纵坐标数值画折线图

横坐标是分类/日期变量,纵坐标是数值变量,画折线图
例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)

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值