Несколько временных рядов с ggplot2 на одном графике - PullRequest
Новая
       9

Несколько временных рядов с ggplot2 на одном графике

0 голосов
/ 06 апреля 2020

Я хочу показать разные значения на графике.

Мои упрощенные даты и значения: 

date        PS1         PS2         PS3     
2018-01-03  0           0           0       
2018-02-08  -1.74239    -9.08989    7.893879    
2018-03-04  7.478317    2.41062     22.10496     
2018-04-09  -13.5595    -19.3442    -0.66363     
2018-05-03  -4.86796    -4.43937    12.00709        
2018-06-08  -4.90235    -17.3852    13.62891    
2018-07-14  -5.59023    -1.52614    20.46246        
2018-08-19  -15.1569    -14.6963    8.051688        
2018-09-24  -12.4574    -23.6364    -3.87133        
2018-10-30  -3.80931    -19.2343    -1.19859        
2018-11-23  3.613597    -13.4095    15.51371        
2018-12-17  -5.13967    -14.9561    7.437743

Для графика я использовал следующие коды: 

# Libraries
library(tidyverse)
library(hrbrthemes)
library(plotly)
library(patchwork)
library(babynames)
library(viridis)

# Load dataset from github
data <- read.table("C:/Users/PC/Desktop/deneme1.txt", header=T)
data$date <- as.Date(data$date)

# Plot
data %>%
  tail(23) %>%
  ggplot( aes(x=date, y=PS1)) +
  geom_line(color="black") +
  geom_point(color="black", size=1) +
  ggtitle("Displacements") +
  ylab("mm/year") +
  theme_ipsum()

С этими кодами я строю только PS1. Хотя я изменяю код, я не могу добавить другие серии (PS2, PS3). И на оси времени даты не отображаются в формате 2018-01-03.

Есть ли способ построить все серии на одном рисунке и построить все даты в формате 2018-01-03? Спасибо.

...