R语言ggplot2可视化：使用短表数据（宽表表数据）（ wide Data Format）可视化多个时间序列数据、在同一个可视化图像中可视化多个时间序列数据（Multiple Time Series
该文本介绍了使用R语言ggplot2包在宽表数据格式下绘制多个时间序列数据的可视化方法。具体包括：在同一个图表中绘制多个时间序列数据、自定义X轴的时间间隔和标签设置、添加图表标题、副标题和题注等。代码展示了如何从宽表数据中提取时间序列数据，设置时间间隔和标签，以及调整颜色和网格样式。
采用短表数据（宽表表数据）（ wide Data Format）在R语言ggplot2中实现多个时间序列数据的可视化。通过在同一幅可视化图表中展示多个时间序列数据，实现多时间序列数据的高效展示。在X轴上自定义时间间隔设置和标签显示，并添加图表标题、副标题和题注说明。
目录
R语言ggplot2可视化：通过短表数据（宽表表数据）（ wide Data Format）在同一幅可视化图像中展示多个时间序列数据，并根据需求自定义X轴的时间间隔设置和标签显示，同时添加图表标题、副标题，并设置题注说明。
#仿真数据
R语言ggplot2可视化：wide data format支持宽表数据（即短表数据）的可视化，能够同时展示多个时间序列数据。在同一个可视化图像中，该方法可实现对multiple time series的展示。用户可通过自定义设置来调整X轴的时间间隔和标签设置。此外，该可视化还支持添加标题、副标题和题注以增强图表的表达效果。
#仿真数据
data(economics_long, package = "ggplot2")
head(economics_long)
#> date variable value value01
#> <date> <fctr> <dbl> <dbl>
#> 1 1967-07-01 pce 507.4 0.0000000000
#> 2 1967-08-01 pce 510.5 0.0002660008
#> 3 1967-09-01 pce 516.3 0.0007636797
#> 4 1967-10-01 pce 512.9 0.0004719369
#> 5 1967-11-01 pce 518.1 0.0009181318
#> 6 1967-12-01 pce 525.8 0.0015788435library(ggplot2)
head(economics)
A tibble: 6 x 6
date pce pop psavert uempmed unemploy
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
str(economics)
spec_tbl_df [574 x 6] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
date : Date[1:574], format: "1967-07-01" "1967-08-01" ... pce : num [1:574] 507 510 516 512 517 ...
pop : num [1:574] 198712 198911 199113 199311 199498 ... psavert : num [1:574] 12.6 12.6 11.9 12.9 12.8 11.8 11.7 12.3 11.7 12.3 ...
uempmed : num [1:574] 4.5 4.7 4.6 4.9 4.7 4.8 5.1 4.5 4.1 4.6 ... unemploy: num [1:574] 2944 2945 2958 3143 3066 ...
采用宽格式数据来实现多个时间序列数据的可视化。在同一幅可视化图像中展示多个时间序列数据，同时实现X轴上时间间隔和标签的自定义设置。在可视化图表中添加图表标题、副标题以及图注，以增强信息表达的清晰度和专业性。
library(ggplot2)
library(lubridate)
theme_set(theme_bw())
df <- economics[, c("date", "psavert", "uempmed")]
df <- df[lubridate::year(df$date) %in% c(1967:1981), ]
# labels and breaks for X axis text
brks <- df$date[seq(1, length(df$date), 12)]
lbls <- lubridate::year(brks)
# plot
ggplot(df, aes(x=date)) +
geom_line(aes(y=psavert, col="psavert")) +
geom_line(aes(y=uempmed, col="uempmed")) +
labs(title="Time Series of Returns Percentage",
subtitle="Drawn From Wide Data format",
caption="Source: Economics", y="Returns %") + # title and caption
scale_x_date(labels = lbls, breaks = brks) + # change to monthly ticks and labels
scale_color_manual(name="",
values = c("psavert"="#00ba38", "uempmed"="#f8766d")) + # line color
theme(panel.grid.minor = element_blank()) # turn off minor grid