R ggplot2: Balkendiagramm einer Zeitreihe

Question

Ich habe eine Datei, die die monatlichen Renditen auf Aktien sowie die Summe für das gesamte Portfolio in den letzten zehn Jahren zeigt. Ich möchte diese Änderungen darstellen, aber ich habe zwei Probleme. Zunächst sortiert R meine Daten in alphabetischer Reihenfolge nach Datum und nicht nach der chronologischen Reihenfolge der Daten (wie sie in der Datei angeordnet sind). Zweitens, die Datumsachse ist zu voll, ich möchte nur alle zwölf Monate ein Etikett zeigen, um es zu säubern. Ich erkenne, dass meine Zeilenköpfe tatsächlich Zeichen und keine Daten sind, aber wenn ich versuche, die as.Date() Funktion zu verwenden, um sie zu konvertieren, bekomme ich einige andere seltsame Probleme.

Hier ist mein Code:

library(ggplot2) 
library(scales) 


wbRed <- rgb(red=187, green=8, blue=38, maxColorValue = 255) 

sample<-read.csv(file="C:/Users/Desktop/sample.csv", header=TRUE, sep=",", row.names=1) 

ggplot(data=sample, aes(x=rownames(sample), y=Total)) + geom_bar(stat="identity", fill=bRed, color=wfRed) + 
    theme_bw() + theme(panel.border = element_blank(), panel.grid.major.x = element_blank(), 
    panel.grid.major.y = element_line(colour = "black"), panel.grid.minor = element_blank(), axis.line = element_line(colour = "black")) + 
    labs(x="", y="Changes in Value") + 
    #scale_x_date(breaks="12 months") + 
    ggtitle("Historical Simulation Results") + 
    guides(fill=FALSE) + 
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) 

Hier die Daten:

> sample 
        GBP   ZAR   EUR   SGD   HKD  Total 
7/1/2006 -0.58644258 2.659271979 0.016035567 0.013142789 2.203442e-03 2.104211198 
8/1/2006 0.94918267 -1.093805058 -0.043216559 -0.038509824 1.671150e-03 -0.224677625 
9/1/2006 0.96858284 1.207307075 -0.009851115 -0.070232623 1.457896e-03 2.097264071 
10/1/2006 -1.08921652 2.444999289 0.196899486 0.160219941 3.651512e-03 1.716553704 
11/1/2006 1.22933459 -1.733890276 -0.103431071 -0.274692091 -4.029816e-03 -0.886708668 
12/1/2006 2.39175673 -0.709273288 -0.718068825 -0.190843849 -5.834339e-04 0.772987340 
1/1/2007 -0.70139084 -1.037347291 0.161052471 -0.091796714 8.747750e-04 -1.668607603 
2/1/2007 0.24392307 0.667446624 0.214157276 0.004171487 7.264080e-03 1.136962537 
3/1/2007 -0.26855741 0.506969991 -0.198908248 -0.075440834 1.979220e-03 -0.033957285 
4/1/2007 0.30181757 -0.055464872 -0.201225421 -0.111841970 2.638671e-04 -0.066450831 
5/1/2007 0.98740559 -1.103129028 -0.295675453 0.039994089 2.187714e-03 -0.369217087 
6/1/2007 -0.51281185 0.284122261 0.179949941 0.111827891 -3.194268e-03 0.059893977 
7/1/2007 0.83422369 -0.220374802 -0.108039973 -0.008365349 1.978028e-03 0.499421593 
8/1/2007 0.74504059 0.272036764 -0.146962470 -0.137101361 3.159977e-03 0.736173504 
9/1/2007 -0.47644001 0.212532644 0.042757782 0.086014485 -8.381567e-03 -0.143516667 
10/1/2007 0.82299000 -1.498736409 -0.696410404 -0.520975027 -7.429962e-03 -1.900561805 
11/1/2007 1.12622328 -1.199285692 -0.215304420 -0.303504111 -3.535271e-03 -0.595406211 
12/1/2007 -0.71946687 1.000826869 -0.227737289 -0.016571920 8.101840e-03 0.045152628 
1/1/2008 -2.13751297 0.245695317 0.044252429 -0.091108927 3.489005e-03 -1.935185146 
2/1/2008 -0.67426553 2.266769351 -0.227295641 -0.299956694 -1.084288e-03 1.064167202 
3/1/2008 0.76797069 1.982247416 -0.402260681 -0.209856432 -3.921403e-03 2.134179588 
4/1/2008 -0.41728750 0.636163043 -0.452618947 -0.202055162 1.826603e-03 -0.433971960 
5/1/2008 -0.03500627 -1.625282529 0.141612143 -0.192736609 1.772133e-03 -1.709641127 
6/1/2008 0.23881203 0.003037533 -0.081653354 0.007048234 2.456902e-03 0.169701346 
7/1/2008 0.39968626 1.158605611 -0.242684724 -0.012932209 -1.136607e-03 1.301538334 
8/1/2008 -0.62726348 -3.048904898 0.229011600 0.131755170 1.294386e-03 -3.314107223 
9/1/2008 -5.52714272 2.279766382 0.960982305 0.580924888 1.848951e-04 -1.705284253 
10/1/2008 -1.10654011 1.947384995 0.656949470 0.152472655 -9.872998e-03 1.640394008 
11/1/2008 -5.75972068 5.194938622 1.446459091 0.493990493 -4.895018e-03 1.370772512 
12/1/2008 -4.66247285 2.279102044 0.142722537 0.485284557 3.457778e-04 -1.755017939 
1/1/2009 -0.87029325 -3.588719911 -1.795916993 -1.060544288 -2.926180e-04 -7.315767064 
2/1/2009 -0.59119433 2.345077104 1.385401324 0.793838794 1.169842e-03 3.934292733 
3/1/2009 -0.96007824 -0.271264076 0.177499977 0.383779342 1.861018e-04 -0.669876894 
4/1/2009 0.65875960 -2.667513309 -0.723056595 -0.294984213 -1.409976e-03 -3.028204489 
5/1/2009 1.96882792 -3.127963575 -0.028609797 -0.403961403 7.981331e-05 -1.591627038 
6/1/2009 6.41408603 -2.231438902 -1.054268575 -0.439470734 1.063899e-04 2.689014205 
7/1/2009 0.13384589 -1.156499819 0.018962822 0.023271366 -1.330022e-04 -0.980552741 
8/1/2009 0.89677072 0.096589612 -0.128432117 -0.053369099 -2.660512e-05 0.811532516 
9/1/2009 -2.08060087 0.634342994 0.036557158 0.054296114 2.393951e-04 -1.355165213 
10/1/2009 -0.79768342 -0.874763535 -0.356426448 -0.342945092 -2.660307e-04 -2.372084522 
11/1/2009 1.96268495 0.448763238 -0.188939237 -0.153116719 5.320887e-05 2.069445442 
12/1/2009 0.60385136 -2.329732947 -0.388433698 -0.230667586 -2.660512e-05 -2.345009478 
1/1/2010 -1.74132611 0.403503616 0.792779431 0.265595426 1.355853e-03 -0.278091783 
2/1/2010 -0.75140823 0.456099846 0.433326124 0.072622163 3.423850e-03 0.214063748 
3/1/2010 -3.81036055 0.640417192 0.420608700 -0.048942253 -9.293740e-04 -2.799206281 
4/1/2010 1.26256559 -1.887625782 -0.033777301 -0.100791765 4.778449e-04 -0.759151411 
5/1/2010 -0.07401611 0.715976278 0.342863419 -0.308199151 -6.107630e-04 0.676013671 
6/1/2010 -2.56479890 1.430223048 1.265262299 0.479035956 7.065900e-03 0.616788302 
7/1/2010 2.25754561 0.069547202 -0.384868133 -0.218102548 9.787040e-04 1.725100840 
8/1/2010 2.12129997 -2.002981468 -0.661909875 -0.396428726 -7.353183e-03 -0.947373284 
9/1/2010 -0.93786138 0.027130548 0.294046384 -0.161598738 2.386347e-03 -0.775896840 
10/1/2010 1.50132742 -1.773883748 -1.210829229 -0.414460710 -4.783787e-03 -1.902630060 
11/1/2010 0.84243741 0.208322569 -0.116812965 -0.258893369 -1.303074e-03 0.673750572 
12/1/2010 -1.61946685 0.234111714 0.857160095 0.224724364 4.113754e-03 -0.299356923 
1/1/2011 -0.04427375 -1.970713448 -0.294503463 -0.334150932 1.246634e-03 -2.642394959 
2/1/2011 2.13469280 2.282033236 -0.525122609 -0.157386901 4.868956e-03 3.739085482 
3/1/2011 0.48693470 -0.575616396 0.059388069 0.033923510 -1.852524e-04 0.004444635 
4/1/2011 -0.60302482 -1.486048101 -0.527338898 -0.170151292 -3.313314e-03 -2.789876428 
5/1/2011 2.32617198 -0.649548334 -0.632328861 -0.467874781 -3.212305e-03 0.573207701 
6/1/2011 -1.40387493 1.288972624 0.510922550 0.191113006 3.551294e-03 0.590684548 
7/1/2011 -1.00091882 -0.513200170 -0.218256030 -0.164375663 4.769235e-04 -1.896273759 
8/1/2011 0.86845450 -0.020128235 0.300088724 -0.332927768 2.487622e-03 0.817974840 
9/1/2011 -0.45146377 1.315599967 -0.009975032 0.037201219 -2.225383e-03 0.889137001 
10/1/2011 -2.31250856 4.449371664 0.965859710 1.259534419 8.474239e-04 4.363104656 
11/1/2011 1.47276001 0.017528935 -0.372812490 -0.402806664 -3.820433e-03 0.710849358 
12/1/2011 -1.02113783 -0.061260527 0.278924294 0.083635478 -5.042073e-04 -0.720342789 
1/1/2012 -0.58913178 0.016328180 0.586650323 0.181418366 -5.043403e-04 0.194760751 
2/1/2012 1.17727033 -1.724962152 -0.243712676 -0.584606347 -3.190171e-03 -1.379201013 
3/1/2012 0.48846396 -1.101179431 -0.180006838 -0.011521333 0.000000e+00 -0.804243639 
4/1/2012 0.20097266 1.001504747 -0.037968718 0.097967845 2.840647e-03 1.265317186 
5/1/2012 0.83668231 0.266816874 0.125469744 -0.283573627 -2.099440e-03 0.943295862 
6/1/2012 -3.32604195 3.234061989 0.958103906 0.703159921 6.110459e-04 1.569894916 
7/1/2012 1.40799292 -1.662859673 -0.295959096 -0.347838597 -8.239189e-04 -0.899488367 
8/1/2012 -0.68457483 0.731339343 0.551105992 -0.224456715 -5.316851e-04 0.372882108 
9/1/2012 1.33565036 0.200106161 -0.457341939 -0.002565620 5.316600e-05 1.075902128 
10/1/2012 1.04629593 -0.068942477 -0.387970761 -0.236929300 -2.924765e-04 0.352160914 
11/1/2012 0.00000000 0.992360534 -0.067400605 -0.120669610 -1.170523e-03 0.803119795 
12/1/2012 -0.45610996 0.988240667 -0.052471096 0.002622814 5.320956e-05 0.482335637 
1/1/2013 0.92673882 -1.760102676 -0.265135407 0.011794013 1.063899e-04 -1.086598856 
2/1/2013 -2.15162316 1.426314409 -0.521515965 0.251520132 1.727623e-03 -0.993576965 
3/1/2013 -2.62454113 0.817551566 0.715584194 -0.002580109 -6.380921e-04 -1.094623575 
4/1/2013 0.79865892 0.461617034 0.209823944 -0.003871108 2.177831e-03 1.468406618 
5/1/2013 1.34605954 -0.628173666 -0.406860285 -0.094754555 -7.173479e-04 0.215553690 
6/1/2013 -1.44316590 3.502774566 0.216895129 0.398685393 6.108913e-04 2.675800078 
7/1/2013 0.07861134 -0.515809084 -0.078975075 -0.005064276 -1.807674e-03 -0.523044765 
8/1/2013 -0.40083049 0.122513722 -0.172880695 0.159191121 1.594902e-04 -0.291846854 
9/1/2013 1.59697270 0.984929294 -0.017937987 -0.021337463 -3.722100e-04 2.542254333 
10/1/2013 2.80254340 -0.510847741 -0.363130782 -0.295288780 -2.658962e-04 1.633010196 
11/1/2013 -1.04445416 0.215515238 0.045538829 -0.113287367 -5.053295e-04 -0.897192794 
12/1/2013 1.74515343 -0.050634442 -0.121788033 0.160579141 1.861536e-04 1.733496255 
1/1/2014 0.76065484 1.039290115 -0.199877389 0.093755845 3.456629e-04 1.694169073 
2/1/2014 -0.48206336 1.828661146 0.317872746 0.171712389 2.894159e-03 1.839077082 
3/1/2014 1.17048025 -1.122263101 -0.370075693 -0.112333469 -1.275274e-03 -0.435467289 
4/1/2014 -0.43184784 -0.539561075 0.010298812 -0.106729774 -1.010091e-03 -1.068849963 
5/1/2014 0.99444681 -0.302325729 -0.088169550 -0.084300872 -9.839936e-04 0.518666663 
6/1/2014 -0.51367729 0.268939878 0.267595025 0.017862051 5.319544e-05 0.040772863 
7/1/2014 1.48241814 0.297165149 -0.050966425 -0.107894898 -7.448833e-04 1.619977087 
8/1/2014 -1.20628473 0.031234879 0.290959690 0.012834332 -2.660478e-05 -0.871282438 
9/1/2014 -0.79624341 -0.011446599 0.351705236 0.037133176 5.320887e-05 -0.418798389 
10/1/2014 -1.59776599 1.732689632 0.607546389 0.280535401 3.823675e-03 1.026829105 
11/1/2014 -0.74201364 -0.676950833 0.122616842 0.168047328 -2.552274e-03 -1.130852578 
12/1/2014 -1.04178881 -0.143308159 0.069354012 0.259615063 1.329161e-04 -0.855994977 
1/1/2015 -0.57564114 1.590545247 0.463554996 0.203121207 -7.975802e-05 1.681500548 
2/1/2015 -2.12211605 0.282386702 1.060836038 0.362765100 -8.776880e-04 -0.417005902 
3/1/2015 1.57828303 0.030874937 0.132885573 0.102146896 9.570355e-04 1.845147470 
4/1/2015 -2.50496774 0.907139404 0.610817738 0.003521528 -7.978360e-04 -0.984286908 
5/1/2015 1.37868583 0.213481519 -0.639793440 -0.396978450 -1.063881e-04 0.555289067 
6/1/2015 0.22000808 0.532370454 0.383597964 0.309088931 1.010156e-03 1.446075585 
7/1/2015 1.72083500 -0.032884981 -0.182119411 -0.040211575 -9.042160e-04 1.464714815 
8/1/2015 0.02013216 1.118505967 0.098595151 0.223899815 1.063722e-04 1.461239468 
9/1/2015 -1.27999580 1.880259019 -0.475942079 0.458748868 -7.448833e-04 0.582325123 
10/1/2015 -0.71081929 1.128366674 0.167499426 0.201323203 0.000000e+00 0.786370013 
11/1/2015 1.23426063 -0.238195428 0.266639410 -0.336892864 1.330079e-04 0.925944756 
12/1/2015 -1.41021239 1.408472554 0.535261439 0.056897460 4.255281e-04 0.590844588 
1/1/2016 -1.40087182 2.375901482 -0.331234590 0.067986855 -5.054360e-04 0.711276491 
2/1/2016 -1.33471385 0.709930598 -0.046555048 0.116982385 7.395425e-03 -0.546960488 
3/1/2016 -2.09559099 -0.665112572 0.029011389 -0.251349765 -1.724403e-03 -2.984766345 
4/1/2016 1.23940797 -1.986660024 -0.760043927 -0.589940498 -4.626415e-03 -2.101862893 
5/1/2016 1.70163126 -1.092565033 -0.083190940 -0.078568774 7.707896e-04 0.448077306 
6/1/2016 -0.84345995 2.903763064 0.362742939 0.381162209 3.634855e-03 2.807843117 

Answer 1

Sie müssen nur die Daten formatiert werden Sie x mit as.Date passieren, das ein Format erfordert, damit sie weiß, wie sie zu analysieren. Gereinigt ein wenig nach oben:

library(ggplot2) 

ggplot(data = sample, aes(x = as.Date(rownames(sample), "%m/%d/%Y"), y = Total)) + 
    geom_bar(stat = "identity", 
      position = 'dodge', 
      fill = rgb(187, 8, 38, maxColorValue = 255), 
      color = rgb(187, 8, 38, maxColorValue = 255)) + 
    theme_bw() + 
    theme(panel.border = element_blank(), 
      panel.grid.major.x = element_blank(), 
      panel.grid.major.y = element_line(colour = "black"), 
      panel.grid.minor = element_blank(), 
      axis.line = element_line(colour = "black"), 
      axis.text.x = element_text(angle = 45, hjust = 1)) + 
    labs(x = "", y = "Changes in Value", title = "Historical Simulation Results") 

Format der Achse mit scale_x_date wenn Sie möchten.

Answer 2

Wie gefällt Ihnen das? Ich überspringe alles, was ich nicht brauchte, um diese Frage zu beantworten.

library(ggplot2) 
data$date <- strptime(data$date, format = "%m/%d/%Y") 
ggplot(data = data, aes(x = date, y = Total)) + 
    geom_bar(stat = "identity", width = 2000000) 

Answer 3

Ich schlage vor, das Paket lubridate mit rownames zu Daten konvertieren. Der folgende Code erzeugt die Handlung die Sie wünschen und brauchen Sie nicht explizit das Datum Abstand ändern:

library(lubridate) 
sample$date <- mdy(row.names(sample)) 

ggplot(data=sample, aes(x=date, y=Total)) + geom_bar(stat="identity", position = "identity", fill="red") + 
     theme_bw() + theme(panel.border = element_blank(), panel.grid.major.x = element_blank(), 
          panel.grid.major.y = element_line(colour = "black"), panel.grid.minor = element_blank(), axis.line = element_line(colour = "black")) + 
     labs(x="", y="Changes in Value") + 
     #scale_x_date(breaks="12 months") + 
     ggtitle("Historical Simulation Results") + 
     guides(fill=FALSE) + 
     theme(axis.text.x = element_text(angle = 45, hjust = 1)) 

Dies ist genau der Code, sind die einzigen Unterschiede die x Wert und ich das Teil vereinfacht, wo Sie Stellen Sie die Farbe der Füllung ein, weil ich die von Ihnen verwendeten Variablen nicht habe. Das Ergebnis ist die folgende: