forked from bquast/EconomicsBitcoinCryptocurrencies
-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
166 lines (166 loc) · 5.4 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
library(ggplot2)
install.packages("ggplot2")
library(ggplot2)
install.packages("ggplot2")
library(ggplot2)
read.csv("charts/circulation.csv")
read.csv("circulation.csv")
read.csv("charts/circulation.csv")
read.csv("charts/circulation.csv")
read.csv("charts/total-bitcoins")
total.bitcoins <- read.csv("charts/total-bitcoins")
view(total.bitcoins)
View(total.bitcoins)
View(total.bitcoins)
total.bitcoins <- read.csv("charts/total-bitcoins")
View(total.bitcoins)
View(total.bitcoins)
?strptime
head(total.bitcoins)
head(total.bitcoins$time)
strptime(head(total.bitcoins$time), "%d/%m/%y %H:%M:%S"
)
strptime(head(total.bitcoins$time), "%d/%m/%y %H:%M:%S")
## read in date/time info in format 'm/d/y h:m:s'
dates <- c("02/27/92", "02/27/92", "01/14/92", "02/28/92", "02/01/92")
times <- c("23:03:20", "22:29:56", "01:03:30", "18:21:03", "16:56:26")
x <- paste(dates, times)
strptime(x, "%m/%d/%y %H:%M:%S")
x
head(total.bitcoins$time)
x
strptime(head(total.bitcoins$time), "%d/%m/%Y %H:%M:%S")
strptime(total.bitcoins$time, "%d/%m/%Y %H:%M:%S")
total.bitcoins$time <- strptime(total.bitcoins$time, "%d/%m/%Y %H:%M:%S")
View(total.bitcoiins)
View(total.bitcoins)
ggplot(bitcoins,time)
?ggplot
ggplot(total.bitcoins, aes(x = time, y = bitcoins))
?qplot
qplot(time,bitcoins,total.bitcoins)
rm(dates)
rm(times)
rm(x)
qplot(time,bitcoins,data=total.bitcoins)
qplot(time,bitcoins,data=total.bitcoins,scipen=3)
qplot(time,bitcoins,data=total.bitcoins,scipen=4)
qplot(time,bitcoins,data=total.bitcoins,scipen=6)
qplot(time,bitcoins,data=total.bitcoins,scipen=7)
qplot(time,bitcoins,data=total.bitcoins,scipen=8)
qplot(time,bitcoins,data=total.bitcoins,scipen=1)
qplot(time,bitcoins,data=total.bitcoins,option(scipen=3)
)
qplot(time,bitcoins,data=total.bitcoins,option(scipen=3))
qplot(time,bitcoins,data=total.bitcoins,option(scipen=6))
qplot(time,bitcoins,data=total.bitcoins,option(scipen=1))
qplot(time,bitcoins,data=total.bitcoins,option(scipen=8))
plot <- ggplot(total.bitcoins, aes(time, bitcoins))
plot <- plot + geom_line()
plot
plot <- plot + geom_line() + option(scipen=3)
plot <- ggplot(total.bitcoins, aes(time, bitcoins), option(scipen=3))
plot <- plot + geom_line()
plot
library(scales)
plot <- ggplot(total.bitcoins, aes(time, bitcoins), )
plot <- plot + geom_line()
plot <- plot + scale_x_continuous(labels = comma)
plot
plot <- plot + scale_y_continuous(labels = comma)
plot
plot <- ggplot(total.bitcoins, aes(time, bitcoins), )
plot <- plot + geom_line()
plot <- plot + scale_y_continuous(labels = comma)
plot
prediction.bitcoins <- read.csv("charts/prediction-bitcoins")
prediction.bitcoins <- read.csv('charts/prediction-bitcoins.csv')
View(prediction.bitcoins)
?round
plot <- ggplot(total.bitcoins, aes(year, BTC.end), )
library(ggplot2)
library(scales)
plot <- ggplot(total.bitcoins, aes(year, BTC.end), )
plot <- ggplot(prediction.bitcoins, aes(year, BTC.end), )
plot <- plot + geom_line()
print(plot)
plot <- ggplot(prediction.bitcoins, aes(Year, BTC.end), )
plot <- plot + geom_line()
print(plot)
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC), )
plot <- plot + geom_line()
print(plot)
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC), xlab='bitcoins' )
library(ggplot2)
prediction.bitcoins <- read.csv('charts/prediction-bitcoins.csv')
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC), xlab='bitcoins' )
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC), xlab= 'year', ylab='bitcoins' )
plot <- plot + geom_line()
print(plot)
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC) )
plot <- plot + geom_line() + xlab('year')
print(plot)
plot <- plot + geom_line() + xlab('year') + ylab('bitcoins')
print(plot)
library(ggplot2)
short.prediction.bitcoins <- read.csv('charts/short-prediction-bitcoins.csv')
View(short.prediction.bitcoins)
plot <- ggplot(short.prediction.bitcoins, aes(Year, End.BTC) )
plot <- plot + geom_line() + xlab('year') + ylab('bitcoins')
print(plot)
library(scales)
plot <- plot + scale_y_continuous(labels = comma)
print(plot)
library(ggplot2)
library(scales)
a = 2
a + 3
rm(a)
a <- 5
a + 3
rm(a)
read.csv('charts/total-bitcoins')
total.bitcoins <- read.csv('charts/total-bitcoins')
View(total.bitcoins)
View(total.bitcoins)
total.bitcoins$time
total.bitcoins$bitcoins
total.bitcoins$time
head(total.bitcoins$time)
total.bitcoins$time2 <- strptime(total.bitcoins$time, "%d/%m/%Y %H:%M:%S")
View(total.bitcoins)
total.bitcoins$time <- strptime(total.bitcoins$time, "%d/%m/%Y %H:%M:%S")
rm(total.bicoins$time2)
qplot(time, bitcoins, data=total.bitcoins)
plot <- ggplot(total.bitcoins, aes(time, bitcoins) )
plot
plot <- plot + geom_line()
plot <- ggplot(total.bitcoins, aes(time, bitcoins) )
plot <- plot + geom_line()
plot <- ggplot(total.bitcoins, aes(time, bitcoins) )
print(plot)
plot <- plot + geom_line()
print(plot)
plot <- plot + scale_y_continuous(labels = comma)
print(plot)
prediction.bitcoins <- read.csv('charts/prediction-bitcoins.csv')
View(prediction.bitcoins)
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC) )
print(plot)
plot <- plot + geom_line()
print(plot)
plot <- ggplot(prediction.bitcoins, aes(End.BTC, Year) )
plot <- plot + geom_line()
print(plot)
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC) )
plot <- plot + geom_line()
print(plot)
plot <- plot + xlab('year') + ylab('bitcoins')
print(plot)
plot <- ggplot(prediction.bitcoins, aes(End.BTC) )
plot <- plot + geom_line()
print(plot)
plot <- ggplot(prediction.bitcoins, aes(Year, End.BTC) )
plot <- plot + geom_line()
plot <- plot + xlab('year') + ylab('bitcoins')
print(plot)