Question

我使用chart_Series创建了一个图表但我想通过在R中裁剪而不是使用外部程序来删除RHS y轴标签

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轴上的标签？

感谢您的帮助。

Answer 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：无框（您可以使用box功能添加自定义框）
7：仅限顶部和右侧 l：仅限底部和左侧 ]：没有左边框 u：没有上边框

如果需要，您还可以将bty直接传递到以下情节：

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

R裁剪图表的右边框

1 个答案: