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

Question

введите описание изображения здесь у меня есть следующие данные; пожалуйста, кто-нибудь может мне помочь построить его, я пытался использовать много разных команд, но ни одна не дала мне идеальный график

year   x   y 
2012   4   5
2014   7    9 
2017   4    3

введите описание изображения здесь эту картинку мне нужно сделать как она

Answer 1

Используя данные, воспроизводимые в примечании ниже, используйте matplot.Пакеты не используются.

matplot(dd[[1]], dd[-1], pch = c("x", "y"), type = "o", xlab = "year", ylab = "value")

Примечание

dd <- structure(list(year = c(2012L, 2014L, 2017L), x = c(4L, 7L, 4L), 
y = c(5L, 9L, 3L)), class = "data.frame", row.names = c(NA, -3L))

Answer 2

Основываясь на ваших комментариях вы можете искать:

library(tidyverse)

plot1 <- df %>% gather(key = measure, value = value, -year) %>%
ggplot(aes(x = year, y = value, color = measure))+
geom_point()+
geom_line()+
facet_wrap(~measure)

plot1

Самые большие очки здесь gather и facet_wrap. Я рекомендую следующие две ссылки:

https://ggplot2.tidyverse.org/reference/facet_grid.html

https://ggplot2.tidyverse.org/reference/facet_wrap.html

Answer 3

Вам необходимо преобразовать тип столбца года в дату. Это решение в стиле Tidyverse

библиотека (tidyverse)

mydf %>% 
  rename("col1" = x, "col2" = y) %>% 
  mutate(year = paste0(year, "-01-01")) %>% 
  mutate(year = as.Date(year)) %>% 
  ggplot() + 
  geom_line(aes(x = year, y = col1), color = "red", size = 2) + 
  geom_line(aes(x = year, y = col2), color = "blue", size = 2) +
  theme_minimal()

, который возвращает