This report is an analysis of the price of ETH over 2025 and generated a plot of the recent prices for a visual perspective.

Loading the data

eth <- readr::read_csv("ethereum_data.csv")
eth$Date <- as.Date(eth$Date)

Summary Statistics

summary(eth[, c("Open","High","Low","Close","Volume")])
##       Open           High           Low           Close          Volume       
##  Min.   :4076   Min.   :4328   Min.   :4068   Min.   :4076   Min.   : 190890  
##  1st Qu.:4308   1st Qu.:4406   1st Qu.:4241   1st Qu.:4309   1st Qu.: 478800  
##  Median :4367   Median :4490   Median :4278   Median :4374   Median : 564660  
##  Mean   :4419   Mean   :4543   Mean   :4319   Mean   :4425   Mean   : 676258  
##  3rd Qu.:4507   3rd Qu.:4641   3rd Qu.:4375   3rd Qu.:4508   3rd Qu.: 886368  
##  Max.   :4831   Max.   :4956   Max.   :4718   Max.   :4831   Max.   :1380000

Scatterplot of Price vs Time

plot(eth$Date, eth$Close,
     main = "ETH Close vs Time (2025)",
     xlab = "Date", ylab = "Close (USD)",
     pch = 16, cex = 0.6)
grid()