Cryptocurrency atau mata uang digital telah ada sejak sepuluh tahun yang lalu dan kini telah menjadi cukup populer dan tersebar luas. Saat ini sudah terdapat 904 jenis mata uang kripto dan yang paling terkenal adalah Bitcoin. Cryptocurrency adalah mat uang digital dimana transaksinya dapat dilakukan dalam jaringan (online). Tidak seperti halnya mata uang cetak, cryptocurrency didesain dengan memecahkan soal-soal matematika berdasarkan kriptografi.
Mata uang digital biasanya bersifat terdesentralisasi, artinya secara umum jauh lebih aman daripada yang sifatnya terpusat. Cryptocurrency pertama kali hadir dan mampu meraih kesuksesan adalah Bitcoin, yang ditemukan oleh Satochi Nakamoto. Kesuksesan Bitcoin menjadi inisiator munculnya tipe-tipe baru cryptocurrency yang mencoba berkompetisi dengan Bitcoin. Kapitalisasi pasar Bitocoin dan beberapa cryptocurrency populer lainnya seperti Litecoin, Ethereum, Dogecoin, dengan cepat mendekati US$100 miliar atau setara dengan Rp 1,334 triliun.
Timeplot atau time series plot adalah diagram yang dapat menggambarkan nilai berdasarkan waktu. Hampir sama dengan grafik x-y, namun yang berbeda adalh jika biasanya variabel x adalah numerik tapi pada time series plot hanya menunjukkan waktu. Tidak seperti piecharts dan barcharts, diagram ini tidak menggunakan data kategorik. Time series plot menunjukkan data berdasarkan perubahan waktu.
databitcoin = read.csv("C:/Users/user/Documents/BisnisAnalitik/Bitcoin.csv", header = TRUE, sep = ",")
summary(databitcoin)
## name date open high
## Bitcoin:1866 01-01-14: 1 Min. : 68.5 Min. : 74.56
## 01-01-15: 1 1st Qu.: 284.9 1st Qu.: 291.13
## 01-01-16: 1 Median : 566.0 Median : 576.29
## 01-01-17: 1 Mean : 1885.7 Mean : 1951.66
## 01-01-18: 1 3rd Qu.: 1055.2 3rd Qu.: 1094.93
## 01-02-14: 1 Max. :19475.8 Max. :20089.00
## (Other) :1860
## low close volume
## Min. : 65.53 Min. : 68.43 Min. :0.000e+00
## 1st Qu.: 280.99 1st Qu.: 285.31 1st Qu.:1.727e+07
## Median : 535.00 Median : 565.98 Median :4.918e+07
## Mean : 1812.28 Mean : 1889.51 Mean :1.172e+09
## 3rd Qu.: 1034.74 3rd Qu.: 1059.62 3rd Qu.:2.448e+08
## Max. :18974.10 Max. :19497.40 Max. :2.384e+10
##
## market close_ratio spread
## Min. :7.793e+08 Min. :0.0000 Min. : 0.000
## 1st Qu.:4.051e+09 1st Qu.:0.2833 1st Qu.: 6.683
## Median :7.291e+09 Median :0.5702 Median : 16.045
## Mean :3.078e+10 Mean :0.5446 Mean : 139.376
## 3rd Qu.:1.696e+10 3rd Qu.:0.8139 3rd Qu.: 71.935
## Max. :3.260e+11 Max. :1.0000 Max. :4110.400
##
library(ggplot2)
ggplot(databitcoin, aes(x=date, y=open, group=1)) +
geom_line(colour="black", size=0.5)
library(ggplot2)
ggplot(databitcoin, aes(x=date, y=close, group=1)) +
geom_line(colour="black", size=0.5)
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.