ggplot2 - Série Temporal
Uma série temporal é um gráfico que representa a série de pontos de dados em uma ordem de tempo específica. Uma série temporal é uma sequência obtida com uma sequência em pontos sucessivos com espaçamento igual. As séries temporais podem ser consideradas como dados em tempo discreto. O conjunto de dados que usaremos neste capítulo é um conjunto de dados de “economia” que inclui todos os detalhes das séries de tempo econômicas dos EUA.
O dataframe inclui os seguintes atributos mencionados abaixo -
| Encontro | Mês de coleta de dados |
| Psavert | Taxa de poupança pessoal |
| Pce | Despesa de consumo pessoal |
| Desempregar | Número de desempregados em milhares |
| Não empatado | Duração média do desemprego |
| Pop | População total em milhares |
Carregue os pacotes necessários e defina o tema padrão para criar uma série temporal.
> 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 3018Crie um gráfico de linha básico que cria uma estrutura de série temporal.
> # Basic line plot
> ggplot(data = economics, aes(x = date, y = pop))+
+ geom_line(color = "#00AFBB", size = 2)
Podemos plotar o subconjunto de dados usando o seguinte comando -
> # Plot a subset of the data
> ss <- subset(economics, date > as.Date("2006-1-1"))
> ggplot(data = ss, aes(x = date, y = pop)) +
+ geom_line(color = "#FC4E07", size = 2)
Criando Séries Temporais
Aqui, plotaremos as variáveis psavert e uempmed por datas. Aqui devemos remodelar os dados usando o pacote tidyr. Isso pode ser obtido recolhendo os valores psavert e uempmed na mesma coluna (nova coluna). Função R: recolher () [tidyr]. A próxima etapa envolve a criação de uma variável de agrupamento que com levels = psavert e 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.9Crie gráficos de várias linhas usando o seguinte comando para ver a relação entre “psavert” e “desempmed” -
> ggplot(df, aes(x = date, y = value)) +
+ geom_line(aes(color = variable), size = 1) +
+ scale_color_manual(values = c("#00AFBB", "#E7B800")) +
+ theme_minimal()