小编mkr*_*ink的帖子

我正在尝试为几种货币创建一个很好的索引价格图表，以便我可以跟踪不同项目和价格水平的相对表现。

下面是我的虚拟代码。我已经尝试了很多事情，但这只是我所能得到的......

原代码的R图：HEX和BTC的价格

我希望在进行过程中添加其他货币。

最后，它只是一个包含多个列的数据框，所有列都需要从同一点开始，时间戳是无关紧要的，我可以只绘制系列或将它们全部移动以从同一位置开始。

这就是我想要实现的目标：

同源项目的指数价格

# Dummy data that recreates my problem - two frames with different starting dates and an indexed value of the closing price.

n1 <- 366

dat1 <- data.frame(timestamp=seq.Date(as.Date("2012-12-26"), as.Date("2013-12-26"), "day"),
                   index.btc=seq(from = 1, to = n1, by=1, replace=TRUE)
                   )
dat2 <- data.frame(timestamp=seq.Date(as.Date("2013-12-26"), as.Date("2014-12-26"), "day"),
                   index.hex=seq(from = 1, to = n1, by=1, replace=TRUE)
                  )
# Merging data
jointdataset2 <- merge(dat1, dat2, by = 'timestamp', all = TRUE)

# Creating plottable data with melt function …