# install.packages("ggplot2")
# install.packages("lubridate")

library(ggplot2)

fee.clusters <- read.csv("Monero-Nonstandard-Fees/data/fee-clusters-by-day.csv", stringsAsFactors = FALSE)

exodus <- data.frame(block_timestamp_date = fee.clusters$block_timestamp_date,
  exodus.desktop.txs = fee.clusters$X24_34_44_fee,
  exodus.mobile.txs = fee.clusters$X98_109_fee_per_byte, stringsAsFactors = FALSE)

exodus$Week <- factor(c(rep(NA, 5), paste0("Week starting ",
  rep(exodus$block_timestamp_date[-(1:5)][seq(1, nrow(exodus) - 5, by = 7)], each = 7))))
# Note: Must change the "5" here if data does not end on a Thursday

exodus$day.of.week <- lubridate::wday(as.Date(exodus$block_timestamp_date), label = TRUE, week_start = "Friday")
# Note: Must change the "week_start" here if data does not end on a Thursday

exodus <- exodus[(nrow(exodus) - 7*10 + 1):nrow(exodus), ]


png("Monero-Nonstandard-Fees/images/Exodus-txs-after-fix-release.png", width = 800, height = 800)

theme_set(theme_gray(base_size = 18))

ggplot(exodus, aes(x = day.of.week, y = exodus.desktop.txs, col = Week, group = Week)) +
  geom_line() + geom_point() + expand_limits(y = 0) +
  labs(title = "Number of Monero transactions with 0.00024060, 0.00034245, or\n0.00044430 XMR total fee (suspected Exodus Desktop wallet transactions)",
    x = "Day of week (by UTC time)", y = "Number of transactions per day",
    caption = "New version of Exodus Desktop with standard fees was released Tuesday 2023-10-10") +
  annotate("text", y = 0, x = 6, label = "github.com/Rucknium", size = 6) +
  theme(plot.caption = element_text(color = "red"))

dev.off()


png("Exodus-Mobile-txs-after-fix-release.png", width = 800, height = 800)

theme_set(theme_gray(base_size = 18))

ggplot(exodus, aes(x = day.of.week, y = exodus.mobile.txs, col = Week, group = Week)) +
  geom_line() + geom_point() + expand_limits(y = 0) +
  labs(title = "Number of Monero transactions with fee per byte between\n98 and 109 nanoneros (suspected Exodus Mobile wallet transactions)",
    x = "Day of week (by UTC time)", y = "Number of transactions per day",
    caption = "New version of Exodus Mobile with standard fees was released Tuesday 2023-11-07") +
  annotate("text", y = 0, x = 6, label = "github.com/Rucknium", size = 6) +
  theme(plot.caption = element_text(color = "red"))

dev.off()