Trying to plot multiple indexed prices of cryptocurrencies with different dates-CodePudding

I'm trying to create a nice graph of indexed prices for a few currencies so I can track relative performance from origin for different projects and price-levels.

Below is my dummy code. I've tried a lot of things but this is as far as I got...

CodePudding user response：



n1 <- 366

dat1 <- data.frame(timestamp=seq.Date(as.Date("2012-12-26"), as.Date("2013-12-26"), "day"),
                   index.btc=cumsum(sample(-2:10, n1, replace=TRUE))
)
dat2 <- data.frame(timestamp=seq.Date(as.Date("2013-12-26"), as.Date("2014-12-26"), "day"),
                   index.hex=cumsum(sample(-2:10, n1, replace=TRUE))
)

dat1$timestamp<- seq(length(dat1$timestamp))
dat2$timestamp<- seq(length(dat2$timestamp))

# Merging data
jointdataset2 <- merge(dat1, dat2, by = 'timestamp', all = TRUE)

# Creating plottable data with melt function
jointdataset_plot <- melt(jointdataset2 ,  id.vars = 'timestamp', variable.name = 'project')
# plot on same grid, each series colored differently -- 
# good if the series have same scale (they have but different starting date)
ggplot(jointdataset_plot, aes(timestamp,value))   
  geom_line(aes(colour = project))  
  scale_y_log10()

# Can also plot like this
ggplot()   geom_line(data = dat1, aes(timestamp,index.btc),
                     color = "blue", 
                     size = 1)  
  geom_line(data = dat2, aes(timestamp,index.hex),
            color = "red", 
            size = 1)  
  labs(x = "Time", 
       y = "Indexed Price",
       title ="Indexed historical price (daily close index)",
       subtitle = "Candlesticks - data by nomics.com")  
  scale_x_continuous()  
  scale_y_log10()  
  theme_bw()

CodePudding user response：

I got it to work using @Marcelo Camacho's solution, here is the result. Can't post an image in the comments.