Visualizing Time Series Data in R
Arnaud Amsellem
Quantitative Trader and creator of the R Trader blog

plot(my_ts, main = "My Stocks")

plot(my_ts, main = "My Stocks")
lines(my_ts2, col = "red")

plot(my_ts, main = "My Stocks")
lines(my_ts2, col = "red")
axis(side = 4, at = pretty(my_ts2))

plot(my_ts, main = "My Stocks")
lines(my_ts2, col = "red")
axis(side = 4, at = pretty(my_ts2))
legend(x = "bottomright", legend = c("Stock X", "Stock Y"),
col = c("black", "red"), lty = c(1, 1))
abline(v = as.Date("2016-04-14"))

abline(v = as.Date("2016-04-14"))

abline(h = 1)

plot(my_ts, main = "My Stocks")
lines(my_ts2, col = "red")
axis(side = 4, at = pretty(my_ts2))
legend(x = "bottomright", legend = c("Stock X", "Stock Y"),
col = c("black", "red"), lty = c(1, 1))
abline(h = 10)

library(PerformanceAnalytics)
period <- c("2014-01/2015-06")
chart.TimeSeries(my_ts, period.areas = period, main = "my_ts")

Visualizing Time Series Data in R