diff --git a/Pre-fork-BCH-BTC-Spending/create-plots.R b/Pre-fork-BCH-BTC-Spending/create-plots.R index fda5125..ec204e4 100644 --- a/Pre-fork-BCH-BTC-Spending/create-plots.R +++ b/Pre-fork-BCH-BTC-Spending/create-plots.R @@ -150,10 +150,10 @@ print( axis.text = element_text(size = 20), axis.title.x = element_text(size = 20), legend.title = element_blank(), legend.text = element_text(size = 14)) + geom_vline(xintercept = as.POSIXct("2017-11-12"), linetype = 3) + - geom_text(aes(x = as.POSIXct("2017-11-12"), label = "Max BCH/BTC Exchange Rate", + geom_text(aes(x = as.POSIXct("2017-11-12"), label = "Max BTC/BCH Exchange Rate", y = 0.75 * sum.value.pre.fork), colour = "black", size = 6, check_overlap = TRUE) + geom_vline(xintercept = as.POSIXct("2017-12-20"), linetype = 3) + - geom_text(aes(x = as.POSIXct("2017-12-20"), label = "Max BCH/USD Exchange Rate", + geom_text(aes(x = as.POSIXct("2017-12-20"), label = "Max USD/BCH Exchange Rate", y = 0.75 * sum.value.pre.fork), colour = "black", size = 6, check_overlap = TRUE) + geom_vline(xintercept = as.POSIXct("2018-11-15"), linetype = 3) + geom_text(aes(x = as.POSIXct("2018-11-15"), label = "BSV Hard Fork", @@ -191,10 +191,10 @@ print( axis.text = element_text(size = 20), axis.title.x = element_text(size = 20), legend.title = element_blank(), legend.text = element_text(size = 14)) + geom_vline(xintercept = as.POSIXct("2017-11-12"), linetype = 3) + - geom_text(aes(x = as.POSIXct("2017-11-12"), label = "Max BCH/BTC Exchange Rate", + geom_text(aes(x = as.POSIXct("2017-11-12"), label = "Max BTC/BCH Exchange Rate", y = 0.75 * sum.outputs.pre.fork), colour = "black", size = 6, check_overlap = TRUE) + geom_vline(xintercept = as.POSIXct("2017-12-20"), linetype = 3) + - geom_text(aes(x = as.POSIXct("2017-12-20"), label = "Max BCH/USD Exchange Rate", + geom_text(aes(x = as.POSIXct("2017-12-20"), label = "Max USD/BCH Exchange Rate", y = 0.75 * sum.outputs.pre.fork), colour = "black", size = 6, check_overlap = TRUE) + geom_vline(xintercept = as.POSIXct("2018-11-15"), linetype = 3) + geom_text(aes(x = as.POSIXct("2018-11-15"), label = "BSV Hard Fork", diff --git a/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-outputs.png b/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-outputs.png index 883f19d..6625b74 100644 Binary files a/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-outputs.png and b/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-outputs.png differ diff --git a/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-value.png b/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-value.png index 699f0aa..930fb2f 100644 Binary files a/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-value.png and b/Pre-fork-BCH-BTC-Spending/images/pre-fork-BTC-BCH-spent-status-by-value.png differ