DEGEN token price chart

degen-analysis.R

library(tidyverse)
library(cowplot)

# download historical data in csv format from here:
# https://www.coingecko.com/en/coins/degen-base/historical_data
data <- read_csv("degen-usd-max.csv")

make_date_number <- function(x) {
  as.numeric(difftime(x, ymd_hms(data$snapped_at[1]), units="days"))
}

make_date_label <- function(x) {
  d <- make_date_number(x)
  format(ymd_hms(data$snapped_at[1]) + days(d), "%b. %Y")
}

breaks1 <- ymd_hms(
  glue::glue('{c("2024-02-01", "2024-03-01", "2024-04-01")} 00:00:00 UTC')
)
breaks2 <- ymd_hms(
  glue::glue('{c("2024-02-01", "2024-04-01", "2024-06-01")} 00:00:00 UTC')
)

plot_base <- data %>%
  mutate(
    date = ymd_hms(snapped_at),
    days = make_date_number(date)
  ) %>%
  ggplot(aes(days, price)) +
  geom_point(aes(color = "price"), size = 1) +
  geom_line(aes(color = "price"), linewidth = .5) +
  geom_function(
    aes(color = "fit"),
    fun = \(x) (3e-5*1.09^x),
    linewidth = 1,
  ) +
  scale_color_manual(
    values = c(price = "black", fit = "#3147CD"),
    guide = "none"
  ) +
  labs(
    title = "$DEGEN price grows at 9% per day"
  ) +
  theme_minimal_grid(12) +
  theme(
    plot.margin = margin(6, 24, 6, 6),
    plot.title.position = "plot",
    plot.title = element_text(face = "plain", size = 12),
    plot.background = element_rect(fill = "white")
  )

p <- plot_base +
  scale_y_log10(
    name = "price (USD)",
    breaks = c(0.0001, 0.001, 0.01),
    labels = c("0.0001", "0.001", "0.01"),
  ) +
  scale_x_continuous(
    name = NULL,
    breaks = make_date_number(breaks1),
    labels = make_date_label(breaks1)
  )
ggsave("degen-plot1.png", p, width = 6, height = 4)


p <- plot_base +
  scale_y_log10(
    name = "price (USD)",
    breaks = c(0.001, 0.1, 10),
    labels = c("0.001", "0.1", "10"),
  ) +
  scale_x_continuous(
    name = NULL,
    breaks = make_date_number(breaks2),
    labels = make_date_label(breaks2),
    limits = c(0, 170)
  )
ggsave("degen-plot2.png", p, width = 6, height = 4)

degen-usd-max.csv