That Ferroh chart is a good one. Here is a similar chart in R (not as pretty but more customizable).
First import data somehow. Here I just copy pasted from bitcoincharts.com into excel, then made a column of all commas to the right of each. Then I copied pasted that into a R script. There are better ways but I did this for now...
imported.data<-cbind(
weighted.price<-c(
0.05 ,
0.07 ,
0.09 ,
0.08 ,
0.07 ,
0.06 ,
0.06 ,
0.05 ,
0.05 ,
0.05 ,
0.06 ,
0.06 ,
0.07 ,
0.07 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.07 ,
0.07 ,
0.07 ,
0.07 ,
0.07 ,
0.07 ,
0.07 ,
0.06 ,
0.07 ,
0.07 ,
0.07 ,
0.07 ,
0.07 ,
0.06 ,
0.07 ,
0.07 ,
0.07 ,
0.07 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.06 ,
0.08 ,
0.09 ,
0.1 ,
0.1 ,
0.09 ,
0.1 ,
0.1 ,
0.1 ,
0.1 ,
0.1 ,
0.1 ,
0.1 ,
0.1 ,
0.1 ,
0.11 ,
0.11 ,
0.11 ,
0.15 ,
0.16 ,
0.18 ,
0.19 ,
0.19 ,
0.19 ,
0.19 ,
0.19 ,
0.19 ,
0.19 ,
0.21 ,
0.24 ,
0.29 ,
0.36 ,
0.32 ,
0.27 ,
0.2 ,
0.22 ,
0.26 ,
0.29 ,
0.28 ,
0.27 ,
0.25 ,
0.26 ,
0.27 ,
0.27 ,
0.28 ,
0.28 ,
0.28 ,
0.28 ,
0.28 ,
0.28 ,
0.28 ,
0.28 ,
0.28 ,
0.25 ,
0.21 ,
0.21 ,
0.24 ,
0.25 ,
0.23 ,
0.21 ,
0.2 ,
0.22 ,
0.23 ,
0.21 ,
0.19 ,
0.22 ,
0.21 ,
0.22 ,
0.23 ,
0.24 ,
0.25 ,
0.25 ,
0.25 ,
0.24 ,
0.26 ,
0.25 ,
0.25 ,
0.25 ,
0.25 ,
0.25 ,
0.25 ,
0.26 ,
0.27 ,
0.29 ,
0.3 ,
0.29 ,
0.3 ,
0.3 ,
0.3 ,
0.29 ,
0.3 ,
0.3 ,
0.31 ,
0.31 ,
0.32 ,
0.32 ,
0.32 ,
0.34 ,
0.36 ,
0.39 ,
0.39 ,
0.39 ,
0.35 ,
0.32 ,
0.31 ,
0.35 ,
0.4 ,
0.43 ,
0.44 ,
0.41 ,
0.42 ,
0.41 ,
0.44 ,
0.43 ,
0.44 ,
0.46 ,
0.51 ,
0.74 ,
0.73 ,
0.71 ,
0.8 ,
0.86 ,
0.87 ,
0.86 ,
0.9 ,
0.96 ,
0.96 ,
0.99 ,
1.06 ,
1.05 ,
1.06 ,
1.05 ,
1.04 ,
1.04 ,
0.89 ,
0.91 ,
0.85 ,
0.84 ,
0.88 ,
0.9 ,
0.95 ,
0.96 ,
0.94 ,
0.93 ,
0.88 ,
0.95 ,
0.92 ,
0.92 ,
0.91 ,
0.88 ,
0.85 ,
0.89 ,
0.87 ,
0.85 ,
0.89 ,
0.89 ,
0.9 ,
0.9 ,
0.89 ,
0.88 ,
0.85 ,
0.84 ,
0.77 ,
0.76 ,
0.77 ,
0.75 ,
0.78 ,
0.83 ,
0.88 ,
0.88 ,
0.87 ,
0.83 ,
0.81 ,
0.79 ,
0.79 ,
0.79 ,
0.78 ,
0.79 ,
0.78 ,
0.69 ,
0.67 ,
0.72 ,
0.75 ,
0.76 ,
0.74 ,
0.74 ,
0.77 ,
0.85 ,
0.93 ,
0.95 ,
1 ,
1.04 ,
1.08 ,
1.15 ,
1.18 ,
1.16 ,
1.18 ,
1.29 ,
1.55 ,
1.67 ,
1.58 ,
1.67 ,
1.89 ,
2.03 ,
2.59 ,
3.29 ,
3.14 ,
3.24 ,
3.32 ,
3.44 ,
3.41 ,
3.48 ,
3.61 ,
3.77 ,
3.8 ,
4.74 ,
5.35 ,
5.83 ,
7.48 ,
7.86 ,
6.74 ,
7.77 ,
7.52 ,
7.14 ,
6.96 ,
6.28 ,
5.97 ,
6.47 ,
7.1 ,
7.23 ,
7.98 ,
8.55 ,
8.67 ,
8.45 ,
8.3 ,
8.72 ,
8.88 ,
9.21 ,
10.11 ,
13.08 ,
16.41 ,
17.32 ,
18.46 ,
19.9 ,
27.25 ,
29.58 ,
24.67 ,
17.61 ,
16.21 ,
20.11 ,
19.25 ,
19.68 ,
18.86 ,
15.51 ,
16.04 ,
17.77 ,
15.59 ,
17.01 ,
16.93 ,
16.88 ,
16.51 ,
15.9 ,
15.53 ,
15.48 ,
14.48 ,
12.8 ,
14.8 ,
15.16 ,
14.35 ,
14.39 ,
15.08 ,
14.37 ,
14.15 ,
14.03 ,
13.93 ,
13.9 ,
13.62 ,
13.34 ,
13.03 ,
14.04 ,
13.69 ,
13.66 ,
13.65 ,
13.64 ,
13.86 ,
14.2 ,
13.91 ,
13.96 ,
13.61 ,
13.51 ,
13.53 ,
13.52 ,
13.17 ,
12.39 ,
10.45 ,
10.58 ,
10.27 ,
7.82 ,
7.72 ,
7.74 ,
9.72 ,
10 ,
9.47 ,
9.32 ,
9.8 ,
10.61 ,
11.3 ,
11.05 ,
10.88 ,
10.9 ,
11.4 ,
11.49 ,
11.38 ,
11.03 ,
11.03 ,
10.94 ,
10.01 ,
8.65 ,
8.63 ,
8.97 ,
8.93 ,
8.78 ,
8.35 ,
8.22 ,
8.44 ,
8.53 ,
8.17 ,
7.62 ,
6.73 ,
7.03 ,
6.8 ,
5.31 ,
5.03 ,
6.07 ,
6.04 ,
5.84 ,
5.56 ,
4.98 ,
4.82 ,
4.81 ,
5.14 ,
5.29 ,
6.11 ,
5.63 ,
5.54 ,
5.61 ,
5.45 ,
5.41 ,
4.96 ,
4.92 ,
4.77 ,
4.74 ,
5.02 ,
5.05 ,
4.98 ,
4.97 ,
4.96 ,
4.9 ,
4.69 ,
4.29 ,
4.03 ,
4.19 ,
4.1 ,
3.95 ,
4.07 ,
4.08 ,
4.01 ,
3.89 ,
3.64 ,
2.85 ,
2.62 ,
2.28 ,
2.31 ,
2.54 ,
3.01 ,
3.08 ,
2.81 ,
2.74 ,
2.75 ,
2.92 ,
3.11 ,
3.54 ,
3.38 ,
3.19 ,
3.19 ,
3.23 ,
3.21 ,
3.13 ,
3.01 ,
2.96 ,
3 ,
3.09 ,
3 ,
2.87 ,
2.97 ,
3.06 ,
3 ,
2.51 ,
2.3 ,
2.46 ,
2.23 ,
2.14 ,
2.17 ,
2.28 ,
2.23 ,
2.31 ,
2.32 ,
2.42 ,
2.47 ,
2.48 ,
2.46 ,
2.51 ,
2.79 ,
2.91 ,
3.05 ,
3.1 ,
2.93 ,
2.75 ,
2.87 ,
2.98 ,
3 ,
2.95 ,
2.99 ,
3.04 ,
3.2 ,
3.18 ,
3.21 ,
3.12 ,
3.17 ,
3.18 ,
3.19 ,
3.2 ,
3.41 ,
3.97 ,
3.93 ,
3.79 ,
3.9 ,
3.92 ,
4.14 ,
4.04 ,
4.03 ,
4.14 ,
4.22 ,
4.19 ,
4.6 ,
5.1 ,
5.21 ,
4.95 ,
5.25 ,
6.2 ,
6.79 ,
6.72 ,
7.05 ,
6.47 ,
6.4 ,
6.81 ,
6.74 ,
6.61 ,
6.59 ,
6.9 ,
6.83 ,
6.04 ,
5.98 ,
6.18 ,
6.44 ,
6.29 ,
6.29 ,
6.31 ,
6.3 ,
5.88 ,
5.59 ,
5.29 ,
5.57 ,
5.48 ,
5.51 ,
5.53 ,
5.82 ,
6.03 ,
5.92 ,
5.92 ,
5.68 ,
5.55 ,
5.62 ,
5.64 ,
5.75 ,
5.88 ,
5.7 ,
5.6 ,
5.34 ,
4.7 ,
4.58 ,
4.19 ,
4.46 ,
4.27 ,
4.35 ,
4.37 ,
4.31 ,
4.44 ,
4.82 ,
4.98 ,
4.88 ,
4.96 ,
4.95 ,
4.87 ,
4.86 ,
4.94 ,
4.69 ,
4.68 ,
4.81 ,
4.95 ,
4.98 ,
4.93 ,
4.87 ,
4.9 ,
4.82 ,
4.91 ,
4.91 ,
5.16 ,
5.37 ,
5.33 ,
5.35 ,
5.32 ,
5.26 ,
4.88 ,
4.79 ,
4.82 ,
4.76 ,
4.7 ,
4.65 ,
4.5 ,
4.65 ,
4.67 ,
4.79 ,
4.77 ,
4.8 ,
4.89 ,
4.79 ,
4.94 ,
4.9 ,
4.93 ,
4.91 ,
4.94 ,
4.8 ,
4.72 ,
4.78 ,
4.83 ,
4.89 ,
4.89 ,
4.86 ,
4.98 ,
4.92 ,
4.95 ,
4.96 ,
5.08 ,
5.15 ,
5.23 ,
5.27 ,
5.18 ,
5.12 ,
5.07 ,
5.13 ,
5.08 ,
5.08 ,
4.96 ,
4.94 ,
4.94 ,
4.96 ,
5.08 ,
5.09 ,
5.12 ,
5.07 ,
5.05 ,
5.04 ,
5.03 ,
5.05 ,
4.96 ,
4.93 ,
4.95 ,
4.96 ,
4.99 ,
5.01 ,
5.07 ,
5.08 ,
5.1 ,
5.11 ,
5.12 ,
5.1 ,
5.08 ,
5.13 ,
5.12 ,
5.13 ,
5.12 ,
5.12 ,
5.13 ,
5.11 ,
5.14 ,
5.16 ,
5.24 ,
5.24 ,
5.22 ,
5.23 ,
5.39 ,
5.44 ,
5.5 ,
5.62 ,
5.57 ,
5.49 ,
5.51 ,
5.6 ,
5.86 ,
5.9 ,
6.12 ,
6.46 ,
6.33 ,
6.27 ,
6.44 ,
6.61 ,
6.69 ,
6.58 ,
6.5 ,
6.41 ,
6.32 ,
6.4 ,
6.53 ,
6.59 ,
6.63 ,
6.66 ,
6.6 ,
6.71 ,
6.55 ,
6.51 ,
6.65 ,
6.64 ,
6.77 ,
6.79 ,
6.9 ,
7.1 ,
7.11 ,
7.3 ,
7.63 ,
7.6 ,
7.58 ,
8.08 ,
8.34 ,
9.02 ,
9.09 ,
8.2 ,
8.88 ,
8.62 ,
8.46 ,
8.63 ,
8.59 ,
8.77 ,
8.89 ,
8.86 ,
8.77 ,
8.95 ,
9.24 ,
9.43 ,
10.13 ,
10.73 ,
11 ,
10.63 ,
10.9 ,
10.85 ,
11.04 ,
11.33 ,
11.41 ,
11.5 ,
11.64 ,
11.79 ,
12.09 ,
12.61 ,
13.23 ,
13.26 ,
11.87 ,
9.09 ,
9.53 ,
10.03 ,
9.86 ,
10 ,
10.27 ,
10.45 ,
10.55 ,
11.18 ,
10.9 ,
10.84 ,
10.76 ,
10.18 ,
10 ,
10.05 ,
10.35 ,
10.3 ,
10.75 ,
10.94 ,
11.1 ,
10.98 ,
11.05 ,
11.04 ,
11.11 ,
11.21 ,
11.34 ,
11.58 ,
11.71 ,
11.88 ,
11.9 ,
12.06 ,
12.41 ,
12.48 ,
12.27 ,
12.22 ,
12 ,
12.12 ,
12.11 ,
12.23 ,
12.32 ,
12.35 ,
12.4 ,
12.38 ,
12.39 ,
12.63 ,
12.84 ,
12.88 ,
12.75 ,
12.58 ,
12.01 ,
11.26 ,
11.97 ,
12.02 ,
12.03 ,
12.05 ,
11.96 ,
11.84 ,
11.72 ,
11.79 ,
11.88 ,
11.88 ,
11.76 ,
11.72 ,
11.68 ,
11.7 ,
11.73 ,
11.68 ,
11.03 ,
10.31 ,
10.38 ,
10.57 ,
10.65 ,
10.75 ,
11.02 ,
10.93 ,
10.58 ,
10.54 ,
10.67 ,
10.73 ,
10.8 ,
10.98 ,
10.92 ,
10.86 ,
10.85 ,
10.81 ,
10.99 ,
11 ,
10.95 ,
11.08 ,
11.49 ,
11.65
),
volume.currency<-c(
0.99 ,
5.09 ,
49.66 ,
20.59 ,
42.26 ,
129.78 ,
141.07 ,
26.73 ,
85.06 ,
46.91 ,
196.92 ,
255.76 ,
528.32 ,
198.53 ,
243.9 ,
162.65 ,
221.2 ,
606.05 ,
210.77 ,
303.61 ,
85.91 ,
157.34 ,
132.6 ,
886.93 ,
88.87 ,
1015.64 ,
134.49 ,
233.8 ,
295.31 ,
294.95 ,
696.8 ,
915 ,
203.83 ,
50.04 ,
276.41 ,
688.51 ,
1183.64 ,
281.88 ,
444.66 ,
278.86 ,
251.56 ,
583.71 ,
399.45 ,
204.88 ,
2135 ,
933.23 ,
436.73 ,
498.98 ,
54.61 ,
202.27 ,
527.97 ,
56.13 ,
212.35 ,
143.36 ,
107.68 ,
301.8 ,
491.19 ,
48.99 ,
632.2 ,
876.76 ,
223.27 ,
45.17 ,
438.94 ,
427.76 ,
797.36 ,
891.19 ,
359.82 ,
717.33 ,
970.09 ,
42.66 ,
133.05 ,
748.2 ,
668.53 ,
439.05 ,
1450.79 ,
488.15 ,
106.46 ,
802.52 ,
439.88 ,
2079.89 ,
1699.2 ,
2091.28 ,
2812.79 ,
10784.23 ,
16104.87 ,
4889.35 ,
1395.23 ,
2396.82 ,
4558.52 ,
3701.65 ,
2554.91 ,
633.63 ,
1857.8 ,
2591.64 ,
623.34 ,
3221.08 ,
4616.85 ,
3665.43 ,
481.52 ,
1560.61 ,
4450 ,
2995.09 ,
11594.02 ,
4009.67 ,
5380.49 ,
5112.03 ,
7829.46 ,
4049.75 ,
1121.34 ,
11769.61 ,
6229.16 ,
8757.15 ,
9396.96 ,
27937.74 ,
38339.26 ,
12808.3 ,
6110.13 ,
1111.55 ,
10494.46 ,
6351.58 ,
4793.81 ,
2337.5 ,
8609.67 ,
8662.61 ,
10253.27 ,
583.45 ,
4119.07 ,
212.67 ,
7818.64 ,
1361.82 ,
710.24 ,
469.99 ,
9510.98 ,
515.9 ,
5746.3 ,
8802.06 ,
4570.58 ,
1752.72 ,
4800.55 ,
633.78 ,
6673.4 ,
1178.03 ,
863.02 ,
5411.8 ,
789.86 ,
4411.94 ,
328.17 ,
1267.2 ,
418.8 ,
1425.92 ,
2403.83 ,
901.15 ,
3522.62 ,
130.19 ,
41.67 ,
487.49 ,
2769.88 ,
2291.81 ,
949.38 ,
2160.74 ,
1252.05 ,
175.44 ,
4203.03 ,
1270.15 ,
4238.98 ,
5363.75 ,
759.92 ,
428.44 ,
841.95 ,
1584.66 ,
420.85 ,
548.33 ,
106.19 ,
1031.28 ,
13152.15 ,
512.04 ,
546.18 ,
3360.65 ,
1578.66 ,
10508.17 ,
7147.03 ,
10691.11 ,
591.15 ,
1085.16 ,
6360.69 ,
4950.51 ,
2247.62 ,
6900.05 ,
3351.62 ,
4513.91 ,
505.83 ,
4516.68 ,
901.25 ,
6315.95 ,
12086.9 ,
2301.77 ,
643.63 ,
4775.81 ,
32708.4 ,
23264.18 ,
4126.02 ,
6064.12 ,
33965.74 ,
13634.2 ,
7608.77 ,
1949.54 ,
6306.77 ,
47455.01 ,
25568.81 ,
13213.54 ,
4353.79 ,
3398.3 ,
7532.41 ,
9085.5 ,
7465.03 ,
4184.96 ,
32719.75 ,
3454.72 ,
8503.38 ,
1435.86 ,
10650.29 ,
6057.77 ,
12708.12 ,
4276.3 ,
4452.63 ,
21576.82 ,
4108.6 ,
21413.43 ,
2533.96 ,
2520.58 ,
2469.56 ,
11115.04 ,
10775.11 ,
13527.3 ,
3931.42 ,
3881.22 ,
7895.07 ,
3301.73 ,
4319.6 ,
595.42 ,
4676.62 ,
2405.41 ,
6761.32 ,
6042.77 ,
10971.32 ,
7457.83 ,
4502.62 ,
2780.45 ,
9499.24 ,
11029.25 ,
12259.77 ,
4225.53 ,
10250.98 ,
4439.07 ,
10141.7 ,
3312.3 ,
2532.13 ,
5429.16 ,
2483.69 ,
1965.23 ,
3074.76 ,
21652.69 ,
6522.71 ,
6264.04 ,
8178.14 ,
13854.66 ,
8940.96 ,
3946.44 ,
11255.96 ,
41333.11 ,
40467.74 ,
29643.61 ,
50488.94 ,
30097.18 ,
26085.25 ,
31552.55 ,
14782.06 ,
24691.86 ,
46345.35 ,
50929.92 ,
103242.84 ,
36076.01 ,
21226.89 ,
40211.17 ,
62403.35 ,
203392.46 ,
148954.47 ,
214977.24 ,
143521.98 ,
59421.72 ,
56187.48 ,
59434.11 ,
52331.39 ,
80063.98 ,
64359.68 ,
79620.81 ,
43805.92 ,
266466.71 ,
281496.86 ,
184839.99 ,
478840.49 ,
435571.02 ,
123255.5 ,
343050.47 ,
265868.95 ,
181331.16 ,
170134.8 ,
278992.34 ,
185640.17 ,
154432.52 ,
250601.3 ,
211827.28 ,
510905.18 ,
244820.48 ,
125149.05 ,
103463.69 ,
62138.87 ,
154258.85 ,
406882.27 ,
400564.35 ,
415112.72 ,
954513.54 ,
729670.85 ,
420612.47 ,
1016927.39 ,
1068903.32 ,
2858820.38 ,
1861589.64 ,
2274786.4 ,
2146587.96 ,
2451134.56 ,
1476239.59 ,
696003.98 ,
545336.14 ,
927743.42 ,
1684353.23 ,
569949.34 ,
536267.38 ,
234621.8 ,
535096.37 ,
413032.22 ,
355303.18 ,
577145.55 ,
529197.49 ,
302134.7 ,
259875.51 ,
756913.59 ,
1076305.46 ,
1655319.63 ,
825452.25 ,
500143.38 ,
171329.27 ,
682903.16 ,
706457.52 ,
372986.55 ,
145032.07 ,
245982.11 ,
344982.1 ,
235142.97 ,
458510.19 ,
988903.24 ,
948485.72 ,
317332.3 ,
341665.52 ,
207044.15 ,
306380.16 ,
369041.82 ,
448277.2 ,
233585.08 ,
160645.54 ,
445690.58 ,
98020.73 ,
82590.44 ,
618135.5 ,
286373.02 ,
709463.16 ,
943628.17 ,
529876.35 ,
315866.93 ,
801213.08 ,
693796.98 ,
263570.19 ,
1112123.77 ,
242598.48 ,
550577.88 ,
387476.18 ,
291543.08 ,
468353.91 ,
431203.74 ,
169357.89 ,
249104.68 ,
89515.28 ,
384289.87 ,
113880.29 ,
99220.98 ,
407895.13 ,
141019.11 ,
85516.17 ,
555232.04 ,
718309.63 ,
189777.37 ,
216706.8 ,
193411.57 ,
103338.65 ,
164091.75 ,
97874.33 ,
141975.28 ,
59247.47 ,
160817.86 ,
234672.8 ,
555289.16 ,
348836.44 ,
216888.79 ,
1154613.99 ,
223562.81 ,
873010.64 ,
385739.55 ,
138683.87 ,
243197.97 ,
429502.83 ,
152408.87 ,
97582.47 ,
229468.54 ,
263597.81 ,
713430.51 ,
383918.85 ,
175258.58 ,
312415.09 ,
97847.53 ,
51288.09 ,
277987.41 ,
121363.66 ,
146110.79 ,
66817.43 ,
208038.79 ,
118531.63 ,
52128.13 ,
85880.89 ,
78377.78 ,
86107.56 ,
256723.57 ,
418394.5 ,
159656.31 ,
158762.15 ,
69188.53 ,
162268.54 ,
282490.41 ,
80377.3 ,
80464.14 ,
163851.32 ,
131714.03 ,
591902.27 ,
229826.44 ,
232324.75 ,
113046.14 ,
185287.39 ,
361119.44 ,
114141.14 ,
258830.28 ,
278159.07 ,
80877.1 ,
171312.37 ,
162799.02 ,
281957.99 ,
171427.93 ,
98715.6 ,
120727.9 ,
104522.19 ,
78756.92 ,
123573.79 ,
159571.85 ,
51037.09 ,
71961.1 ,
186440.21 ,
156655.47 ,
97395.49 ,
133312.05 ,
62326.05 ,
28888.03 ,
957693.93 ,
175520.98 ,
108654.69 ,
261039.94 ,
210125.46 ,
169806.11 ,
182015.99 ,
93197.44 ,
78934.49 ,
92955.46 ,
211558.58 ,
109592.19 ,
89621.87 ,
55832.77 ,
103409.13 ,
503908.53 ,
349861.49 ,
195016.15 ,
178018 ,
360981.81 ,
261745.73 ,
88678.38 ,
165517.79 ,
174201.54 ,
117824.45 ,
102810.85 ,
225642.57 ,
346453.23 ,
126940.32 ,
104930.82 ,
225975.05 ,
95417.41 ,
95114.72 ,
52586.17 ,
34542.59 ,
476965.51 ,
739231.72 ,
191659.23 ,
216558.95 ,
80030.54 ,
58567.87 ,
334511.38 ,
358539.93 ,
121501.17 ,
140029.63 ,
223710.01 ,
172118.96 ,
596240.41 ,
553045.14 ,
360357.28 ,
619170.54 ,
688717.86 ,
1130623.29 ,
1481327.88 ,
325053.98 ,
403151.44 ,
960592.31 ,
705056.48 ,
677642.84 ,
944165.94 ,
398312.18 ,
935192.51 ,
429700.86 ,
837413.61 ,
1288538.97 ,
1354753.44 ,
709705.27 ,
429803.56 ,
407116.4 ,
282233.76 ,
111630.55 ,
224665.59 ,
782053.65 ,
692624.73 ,
611581.18 ,
499881.49 ,
254457.17 ,
233179.7 ,
267099.31 ,
672632.58 ,
328716.58 ,
350818.69 ,
122071.46 ,
683010.86 ,
500693.58 ,
408854.24 ,
1342007.99 ,
516915.55 ,
230967.96 ,
397688.29 ,
459004.75 ,
909500.32 ,
1399443.95 ,
741639.35 ,
697818.37 ,
606244.08 ,
300903.53 ,
271300.43 ,
162939.76 ,
222970.81 ,
460671.29 ,
792557.08 ,
446896.98 ,
420213.07 ,
347092.76 ,
145288.76 ,
305075.07 ,
129089.93 ,
218150.92 ,
613272.66 ,
187646.64 ,
283142.41 ,
325526.7 ,
221579.34 ,
227645.86 ,
283093.81 ,
160227.85 ,
135426.18 ,
208576.68 ,
108198.98 ,
656673.85 ,
337721.85 ,
219063.81 ,
174983.16 ,
207915.56 ,
120310.25 ,
922722.01 ,
318065.31 ,
223605.57 ,
276226.9 ,
254329.72 ,
181738.16 ,
322035.23 ,
324896.28 ,
342922.08 ,
182050.5 ,
180963.57 ,
187496.45 ,
173670.93 ,
172377.67 ,
398480.61 ,
384710.33 ,
251784.97 ,
165880.2 ,
287735.13 ,
388783.68 ,
197917.32 ,
187709.3 ,
256671.37 ,
327827.09 ,
226872.24 ,
452385.87 ,
317996.1 ,
163921.54 ,
154236.34 ,
151983.96 ,
401659.4 ,
240310.56 ,
544263.48 ,
321118.73 ,
192195.87 ,
252978.56 ,
360126.6 ,
182736.86 ,
291333.8 ,
131461.84 ,
453939.59 ,
109717.97 ,
275744.99 ,
181986.6 ,
487937.82 ,
180427.18 ,
223210.23 ,
95532.52 ,
97474.41 ,
232779.55 ,
342801.15 ,
196640.97 ,
347144.1 ,
311100.91 ,
103382.07 ,
69673.16 ,
263695.58 ,
220957.66 ,
351814.07 ,
135248.36 ,
268289.56 ,
118319.57 ,
95644.05 ,
171340.69 ,
237263.34 ,
271619.69 ,
148029.4 ,
118398.28 ,
84985.05 ,
80709.32 ,
141508.49 ,
313167.67 ,
205489.48 ,
203750.19 ,
234080.46 ,
79520.99 ,
66238.34 ,
268035.7 ,
452286 ,
221376.21 ,
264420.4 ,
302527.61 ,
206719.45 ,
134034.65 ,
221882.17 ,
442662.49 ,
335216.88 ,
206567.62 ,
401826.99 ,
505216.48 ,
308913.52 ,
293446.76 ,
282752.04 ,
423271.21 ,
347681.68 ,
374175.12 ,
130792.6 ,
217549.23 ,
395654.82 ,
311935.52 ,
274046.64 ,
282297.48 ,
174369.86 ,
137136.1 ,
135823.9 ,
217005.56 ,
465280.45 ,
217804.23 ,
301701.76 ,
286978.88 ,
257213.27 ,
123756.04 ,
425223.11 ,
497668.82 ,
297644.88 ,
471834.37 ,
499441.51 ,
121635.99 ,
204616.5 ,
835550.27 ,
1757815.81 ,
955210.08 ,
438703.58 ,
1267523.74 ,
1242153.88 ,
259113.81 ,
1238579.49 ,
353506.54 ,
555883.85 ,
283993.34 ,
237223.99 ,
143179.47 ,
100508.03 ,
458873.3 ,
648746.34 ,
647522.58 ,
1283817.64 ,
661588.16 ,
575464.3 ,
714863.7 ,
562801.91 ,
451978.45 ,
345666.89 ,
1153809.11 ,
725605.06 ,
250620.15 ,
353092.67 ,
637059.69 ,
532302.32 ,
725834.14 ,
1277714.19 ,
2930580.33 ,
1045361.51 ,
2170411.03 ,
1835053.01 ,
722740.27 ,
665544.84 ,
560012.6 ,
945182.94 ,
420388.01 ,
277773.75 ,
1957673.34 ,
598168.05 ,
581687.69 ,
332208.84 ,
690452.97 ,
233777.63 ,
251932.43 ,
237264.68 ,
359404.18 ,
653374.16 ,
733288.22 ,
394463.57 ,
266231.48 ,
155002.6 ,
467067.67 ,
721708.44 ,
657004.1 ,
233401.71 ,
500768.38 ,
190511.93 ,
359833.88 ,
316662.26 ,
494030.03 ,
519593.55 ,
406467.47 ,
439674.22 ,
183186.34 ,
479223.21 ,
330885.09 ,
257174.51 ,
287416.94 ,
238051.35 ,
329436.52 ,
211507.34 ,
96462.09 ,
307618.78 ,
642027.91 ,
422995.61 ,
488811.23 ,
398427.1 ,
310513.02 ,
762812.96 ,
1102329.22 ,
559694.91 ,
333351.59 ,
238483.07 ,
259522.53 ,
141870.31 ,
271135.83 ,
317633.19 ,
485720.72 ,
279774.85 ,
259855.62 ,
272640.88 ,
259113.16 ,
109479.89 ,
440140.37 ,
637306 ,
254132.03 ,
934190.95 ,
1020616.67 ,
496747.54 ,
236640.5 ,
400173.5 ,
279843.08 ,
448359.79 ,
550327.49 ,
258957.79 ,
176345.08 ,
178761.66 ,
233650.36 ,
291515.94 ,
348474.7 ,
284556.11 ,
159984.85 ,
146349.26 ,
136448.09 ,
431080.47 ,
184368.79 ,
268636.84 ,
353356.16 ,
669422.19 ,
160662.83
)
)
Code for making the chart:
#install.packages("ggplot2") #only run the first time
require(ggplot2)
price <- imported.data[,1] # for line plot
volume <- imported.data[,2] # for line color heatmap
time <- 1:length(price) # X axis
smoothing.bw<-7 # Set volume smoothing bandwidth (here 1 week)
smoothed.volume <- ksmooth(time, volume, "normal", bandwidth=smoothing.bw)$y #Calculate smoothed volume
colors = c("Black", rev(rainbow(100)), "Red") # Set heat colors
btcdata <- data.frame (time, price, volume, smoothed.volume)
# Set x axis labels
label <- seq(0,nrow(btcdata),by=50)
position <- seq(0,nrow(btcdata),by=50)
ggplot(btcdata,aes(x=time, colour= smoothed.volume)) +
scale_colour_gradientn(colours = colors , guide= "colourbar") +
geom_line(aes(y=price), size=2) + # plot the line
scale_x_continuous(breaks=position,labels=label) +
opts(title = paste("Volume Smoothing Bandwidth=",smoothing.bw))