绘制具有不同长度的不同系列

Question

I want to plot cumsum line for each year of a series, but the thing is each year have different observations. I have tried using Chart_series but it doesn't work.

My goal is to plotting lines as years in terms of cumulative evolution.

In the example I put only two years.

library(PerformanceAnalytics)
library(quantmod)
library(tidyverse)
library(tidyquant)

library(xts)

a<-dailyReturn(TSLA,subset='2020') 
a2019<-dailyReturn(TSLA,subset='2019') 
b<-cumsum(a)*100
b2019<-cumsum(a2019)*100
plot(b2019)
lines(b) 

Answer 1

We could get a single dataset and then do a group by cumsum before plotting

library(dplyr)
library(tibble)
library(lubridate)
library(PerformanceAnalytics)
library(quantmod)
library(ggplot2)

getSymbols('TSLA')
dailyReturn(TSLA, subset = c('2019', '2020')) %>%
    as.data.frame %>% 
    rownames_to_column('Date')  %>%
    mutate(Date = as.Date(Date)) %>% 
    group_by(Year = year(Date)) %>% 
    mutate(CumDaily.returns = cumsum(daily.returns) * 100) %>% 
    ggplot(aes(x = Date, y = CumDaily.returns, color = Year)) + 
         geom_line() +
         theme_bw()

-output