2013-11-20 166 views
0

我創建使用chart_Series圖表的右手邊,但我想通過R內裁剪,而不是使用一個外部程序ř裁剪圖

library(quantmod) 
getSymbols("SPY", from="2013-01-01", to=Sys.Date()) 


myTheme <- chart_theme() 
myTheme$rylab <- FALSE 

chart1 <- chart_Series(SPY,theme=myTheme) 

add_TA(SMA(SPY[,4],20),on=1) 

以除去RHS y軸的標籤但如何可以裁剪圖表以刪除右手邊框以及rhs y軸上的標籤?

感謝您的幫助。

+0

使用旨在分割圖像的外部應用程序。 R會嘗試將圖像放入可用空間,如果不適合,則會發出錯誤。也許你只是想刪除空白。如果是這樣,請按照nico並使用'par(mar = c(5,4,4,0)+。1)' –

+0

我現在正在使用外部應用程序,但是我需要這麼做很多次R內的解決方案將節省大量時間。 –

回答

1

您可以使用par來設置頁邊距。

par(mar=c(bottom, left, top, right)) 

默認爲

par(mar=c(5,4,4,2)+.1) 

邊距中的行表示。 有關更多信息,請參閱?par


編輯:看來我誤解了這個問題,但答案還是在於par

par(bty='c') 

將繪製一個「C」框(即只有頂部,左側和底部)。的bty
其他可能的值包括:

n:無盒
7(你可以用box功能添加自定義箱):只有頂部和右側
l:只有底部和左側
]:無左邊框
u:無頂邊框

如果需要,還可以直接將bty通過繪圖,例如:

plot(x, y, bty="n") 
+0

也許這就是需要的。我以不同的方式讀取請求。我認爲它被要求刪除邊界框的右側。 –

+0

@DWin:ahhhh ......可能你是對的。那麼,我會留下答案,直到我們得到更多的信息,實際上需要什麼... – nico

+0

這是正確的,我試圖刪除框的右側 –