R ggplot2：時間序列條形圖首先和最後的觀察下降

我正在繪製R的時間序列，我的數據有時開始和結束在一年中。 r爲自動離開領導和我圖的x軸滯後的空間，你們幫我排除在這個崗位：R ggplot2：時間序列條形圖首先和最後的觀察下降

http://stackoverflow.com/questions/38334655/r-ggplot-time-series-bbar-chart-has-leading-and-lagging-spaces

不過，我只注意到這個代碼也離開了酒吧對應於第一個和最後觀測：

ggplot(data=obs, aes(x=as.Date(rownames(obs), '%m/%d/%Y'), y=Portfolio)) + 
    geom_bar(stat="identity", fill=wfRed, 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=parentCCY) + 
    scale_y_continuous(labels=format_si()) + 
    scale_x_date(limits = c(min, max), breaks=date_breaks("12 months"), labels=date_format("%b %Y"), expand = c(0,0)) + 
    guides(fill=FALSE) + 
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) + 
    geom_hline(yintercept = standalones[,"Portfolio"], linetype=2, size=1.5)

這裏是數據的一個示例：

> obs 
        A   B   C   D   E  F  Portfolio 
10/1/2006 -135.265197 -4.928804 -140.162303 -3132.3385 -7087.2885 -668.62304 -11168.6063 
11/1/2006 190.727890 4.104793 -141.391549 1645.4138 7999.0054 706.10084 10403.9612 
12/1/2006 89.269095 -3.700356 -125.053082 11423.2631 15562.6265 998.39977 27944.8050 
1/1/2007  3.131604 5.070734 -203.056183 -2562.0730 -4563.7935 -2186.25627 -9506.9766 
2/1/2007 -95.766379 6.107738 -120.531122 -3406.8808 1587.1529 -1068.03237 -3097.9500 
3/1/2007 67.659308 -3.094623 57.689483 3164.2945 -1747.4431 1972.28356 3511.3892 
4/1/2007 150.491858 10.278402 180.727469 3201.1568 1963.8594 -129.19683 5377.3172 
5/1/2007 115.490649 4.361355 437.381619 4703.6974 6424.8275 -1233.72962 10452.0289 
6/1/2007 33.437884 24.244469 532.429923 -2862.6999 -3336.7521 -1324.00829 -6933.3479 
7/1/2007 96.673897 -4.452097 -47.621030 1718.7336 5428.1071 -629.76578 6561.6757 
8/1/2007 37.811147 8.899346 98.206673 2337.9249 4847.8126 2565.55940 9896.2140 
9/1/2007 -215.330010 -14.512752 5.339857 -680.2041 -3100.0887 1997.53581 -2007.2599 
10/1/2007 456.922869 30.119571 726.404928 11078.7142 5355.0120 18.79104 17665.9645 
11/1/2007 99.450743 12.498947 482.472014 3425.1299 7328.0832 676.45319 12024.0880 
12/1/2007 -151.107244 -8.886944 -538.445274 3622.9159 -4681.4101 2235.28660 478.3529 
1/1/2008 -46.371176 2.482456 69.280944 -703.9815 -13908.3192 -266.20754 -14853.1159 
2/1/2008 159.042863 7.064167 -30.582150 3615.8900 -4387.2951 3512.70051 2876.8204 
3/1/2008 145.340906 11.529238 85.595411 6399.2885 4997.0136 1921.70517 13560.4729 
4/1/2008 -125.795200 -10.970036 -369.785356 7200.4036 -2715.1965 1345.24519 5323.9017 
5/1/2008 143.787006 17.532562 14.368170 -2252.8102 -227.7779 -1790.99859 -4095.8990 
6/1/2008 118.551194 7.797265 301.867049 1298.9671 1553.8965 -748.84603 2532.2330 
7/1/2008 -5.168456 6.466974 -317.625115 3860.7044 2600.6692 -416.67061 5728.3764 
8/1/2008 -133.485807 8.680382 -54.874843 -3643.1880 -4081.4633 -1063.40901 -8967.7406 
9/1/2008 -419.020984 -19.376143 -417.458238 -15287.6066 -35963.8824 -288.25916 -52395.6035

和resulti NG圖，其中第一和最後一個觀測缺失：

來源

2016-09-02 user3390169

你的情節此刻不重複的。然而，我認爲問題歸結爲你將x軸的極限值設置爲（可能）數據集的最小值和最大值，然後使用'expand = c（0,0）'。你已經佔用了太多空間，邊緣條不再適合情節。嘗試從'scale_x_date'去除'limits'參數，事情看起來應該更好。 – aosmith

是的，工作，謝謝！ – user3390169

設置limits和使用expand = c(0, 0)採取這麼大的空間遠在x軸上的邊緣條不再適合。從scale_x_date中刪除limits照顧這一點。

使用

scale_x_date(breaks=date_breaks("12 months"), labels=date_format("%b %Y"), expand = c(0,0))

而不是

scale_x_date(limits = c(min, max), breaks=date_breaks("12 months"), labels=date_format("%b %Y"), expand = c(0,0))

來源

2016-09-09 15:23:08 aosmith

R ggplot2：時間序列條形圖首先和最後的觀察下降

回答

相關問題