ggplot2 - 时间序列
时间序列是一种图形绘图,它表示按特定时间顺序排列的一系列数据点。时间序列是在连续相等间隔的时间点上按顺序获取的序列。时间序列可以被视为离散时间数据。本章将使用的数据集是"经济学"数据集,其中包含美国经济时间序列的所有细节。
数据框包括以下属性,如下所示 −
Date | 数据收集月份 |
Psavert | 个人储蓄率 |
Pce | 个人消费支出 |
Unemploy | 失业人数(千人) |
Unempmed | 失业率 |
Pop | 总人口(千人) |
加载所需的包并设置默认主题以创建时间序列。
> library(ggplot2) > theme_set(theme_minimal()) > # Demo dataset > head(economics) # A tibble: 6 x 6 date pce pop psavert uempmed unemploy <date> <dbl> <dbl> <dbl> <dbl> <dbl> 1 1967-07-01 507. 198712 12.6 4.5 2944 2 1967-08-01 510. 198911 12.6 4.7 2945 3 1967-09-01 516. 199113 11.9 4.6 2958 4 1967-10-01 512. 199311 12.9 4.9 3143 5 1967-11-01 517. 199498 12.8 4.7 3066 6 1967-12-01 525. 199657 11.8 4.8 3018
创建一个基本的线图,以创建时间序列结构。
> # 基本线图 > ggplot(data = economics, aes(x = date, y = pop))+ + geom_line(color = "#00AFBB", size = 2)

我们可以使用以下命令绘制数据子集−
> # 绘制数据子集 > ss <- subset(economics, date > as.Date("2006-1-1")) > ggplot(data = ss, aes(x = date, y = pop)) + + geom_line(color = "#FC4E07", size = 2)

创建时间序列
在这里,我们将按日期绘制变量 psavert 和 uempmed。在这里,我们必须使用 tidyr 包重塑数据。这可以通过将 psavert 和 uempmed 值折叠在同一列(新列)中来实现。R 函数:gather()[tidyr]。下一步涉及创建一个分组变量,其级别 = psavert 和 uempmed。
> library(tidyr) > library(dplyr) Attaching package: ‘dplyr’ The following object is masked from ‘package:ggplot2’: vars The following objects are masked from ‘package:stats’: filter, lag The following objects are masked from ‘package:base’: intersect, setdiff, setequal, union > df <- economics %>% + select(date, psavert, uempmed) %>% + gather(key = "variable", value = "value", -date) > head(df, 3) # A tibble: 3 x 3 date variable value <date> <chr> <dbl> 1 1967-07-01 psavert 12.6 2 1967-08-01 psavert 12.6 3 1967-09-01 psavert 11.9
使用以下命令创建多线图来查看"psavert"和"unempmed"之间的关系 −
> ggplot(df, aes(x = date, y = value)) + + geom_line(aes(color = variable), size = 1) + + scale_color_manual(values = c("#00AFBB", "#E7B800")) + + theme_minimal()
