У меня есть многомерный набор данных, типизированный данными ниже:

financials <- 
  "A           B         C          D            E         Dates
52730.1     104761.1    275296.1     569423.1  1136638.1    2013-12-2
77709       97940       275778      515095     1075166      2013-08-04
102734      71672       227017      482068     1011764      2013-03-17
96345       74035       240334      429026      998734      2012-10-28 
98651       62305       236694      436948      962913      2012-06-10 
78804       73568       242068      471640      945891      2012-01-22"
fData <- read.table(text = financials, header = TRUE)

Я строю все переменные (A, B, .. и т. Д.) На одном графике. Вот мой код, и он работает:

 range <- range(fData[,-6])
fData$Dates <- as.Date(fData$Dates, origin = "2011-07-03")
Labels <- seq(as.Date("2012-01-22", origin = "2011-07-03"),
              to = as.Date("2013-12-2",origin = "2011-07-03"),
              by = "2 months")
plot(A ~ Dates, fData,  type = "o", col = "red", ylim = range, xaxt="n", pch = 10)
points(B ~ Dates, fData, type = "o", col = "green", pch = 11)
points(C ~ Dates, fData, type = "o", col = "black", pch = 12)
points(D ~ Dates, fData, type = "o", col = "blue", pch = 13)
points(E ~ Dates, fData, type = "o", col = "magenta", pch = 14)

Я попытался добавить ось X функции оси, как показано ниже, но ось X не появилась

axis(side = 1, at = seq(1,12), labels = Labels)

Тогда я попробовал axis.ate функцию я получил ошибку «origin» должен быть предоставлен.

axis.Date(side = 1, x = Labels, at = seq(1,12), format = "%m/%y", origin = "2011-07-03") 

Что мне нужно, это: (1) 12 меток даты «Метки» с 12 отметками на оси x, наклоненные под углом 45 градусов, и (2) форматирование оси y для отображения финансовых данных в 100 000 отметок, (3), пожалуйста, помогите мне понимаю мои ошибки.

Спасибо заранее.