Возникли проблемы с добавлением второй строки в мой график временных рядов

Question

У меня есть набор данных, который состоит из 3 столбцов (dates, unemployment rate и seasonally adjusted unemployment rate), я пытаюсь отобразить это на графике временного ряда.Тем не менее, я могу заставить его работать только для unemployment rate или seasonally adjusted unemployment rate, и не могу получить оба на одном графике в одно и то же время.

Я пытался использовать разные методы, такие как ggplotи составить график из ответов, найденных на SO, однако я не добился успеха.

Пока это мой код, где данные графика представляют собой кадр данных, в котором хранятся мои данные.

pd <- plotdata
Pd <- ts(pd[,2], frequency = 12, start = 2000)
plot(as.xts(Pd), type="l", col="red", major.format = "%b-%y", ylab="Unemployment Rate",
     main= "Unemployment Rate over Time")
lines(ts(pd[,3]), type = "l", col = "blue")

ОжидаетсяРезультатом будет график с двумя строками.Однако «линии», кажется, не добавляют дополнительную строку, и если я пытаюсь создать временной ряд с помощью pd вместо pd [, 2] или pd [, 3], это создает беспорядок, который не похож на то, что я ищуза.Спасибо

Answer 1

Ваш вопрос нуждается в некоторых деталях.Как называются ваши столбцы?

Используя ggplot, вот как вы бы построили серию:

library(zoo)
library(ggplot2)

pd$Date <- as.Date(as.yearmon(as.character(pd$Date))

ggplot(data = pd, mapping = aes(x = Date)) +
   geom_line(aes(y = Actual)) +
   geom_line(aes(y = Adjusted))