R Markdown

bitcoin <- read.csv("bitcoin_usd.csv")
dim(bitcoin)
## [1] 1000    6
names(bitcoin)
## [1] "X"         "open_USD"  "high_USD"  "low_USD"   "close_USD" "volume"
head(bitcoin)
##            X open_USD high_USD  low_USD close_USD volume
## 1 2021-01-30 34246.28 34933.00 32825.00  34218.54  43072
## 2 2021-01-29 33368.18 38531.90 31915.40  34252.20 231827
## 3 2021-01-28 30362.19 33783.98 29842.10  33364.86  92621
## 4 2021-01-27 32464.01 32557.29 29241.72  30366.15  95911
## 5 2021-01-26 32254.19 32921.88 30837.37  32467.77  84972
## 6 2021-01-25 32259.45 34875.00 31910.00  32254.20  88499
set.seed(123)
bitcoin_half <- bitcoin[sample(nrow(bitcoin), 500), ]
dim(bitcoin_half)
## [1] 500   6

Exploratory Data Analysis 1

summary(bitcoin_half)
##          X          open_USD        high_USD        low_USD     
##  Length   :500   Min.   : 3398   Min.   : 3426   Min.   : 3222  
##  N.unique :500   1st Qu.: 6520   1st Qu.: 6638   1st Qu.: 6406  
##  N.blank  :  0   Median : 8171   Median : 8290   Median : 7899  
##  Min.nchar: 10   Mean   : 9312   Mean   : 9539   Mean   : 9036  
##  Max.nchar: 10   3rd Qu.:10207   3rd Qu.:10398   3rd Qu.: 9904  
##                  Max.   :39432   Max.   :41950   Max.   :36500  
##    close_USD         volume      
##  Min.   : 3302   Min.   :  7714  
##  1st Qu.: 6506   1st Qu.: 29990  
##  Median : 8113   Median : 43597  
##  Mean   : 9308   Mean   : 50926  
##  3rd Qu.:10205   3rd Qu.: 61746  
##  Max.   :40583   Max.   :249131

##Exploratory Data Analysis 2

hist(bitcoin_half$close_USD,
main= "Distribution of Bitcoin Closing Prices",
xlab = "Closing Price (USD)")