bb113
|
|
November 17, 2012, 09:55:40 PM Last edit: November 17, 2012, 10:06:50 PM by bitcoinbitcoin113 |
|
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))
|