mirror of
https://github.com/Rucknium/misc-research.git
synced 2025-01-03 17:19:30 +00:00
51 lines
2.3 KiB
R
51 lines
2.3 KiB
R
|
|
# 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()
|
|
|