r - 绘制 XTS 对象时的变化

Question

我制作了以下图表，它是使用 xts 对象创建的。

我使用的代码很简单

   plot(graphTS1$CCLL, type = "l", las = 2, ylab = "(c)\nCC for Investors", xlab = "", main = "Clustering Coefficient at the Investor Level")

我更新了我的 R Studio 包和 R 版本，然后通过运行相同的代码我得到了以下图表。

显然两者是不一样的。人们可以帮我删除第二个 Y 轴吗？我不需要那个，并删除 2007-03-01/2010-12-01 的自动标题。无数次尝试都失败了。我确实使用了 zoo.plot，但删除了网格线和能力以及季度标记。

我的 R 版本是 3.4.0 (2017-04-21)，平台为“x86_64-apple-darwin15.6.0”。提前致谢。

Answer 1

您想删除右手轴。 plot.xts(..., yaxis.right = TRUE, ...) 中有一个参数。所以

library('xts')
#> Loading required package: zoo
#> 
#> Attaching package: 'zoo'
#> The following objects are masked from 'package:base':
#> 
#>     as.Date, as.Date.numeric

data(sample_matrix)
sample.xts <- as.xts(sample_matrix, descr='my new xts object')

plot(sample.xts, yaxis.right = FALSE)

做你想做的。

我试着解决了第二个问题，移除了右上角的标签。检查 plot.xts() 的源代码会发现该标签已硬编码到主标题中。即使设置 main = '' 也不会删除它。您可以通过编辑 plot.xts() 并将其复制到新函数来解决这个问题。

plotxts <- fix("plot.xts")
# In the editor that opens, replace the lines below:
###    text.exp <- c(expression(text(xlim[1], 0.5, main, font = 2, 
###        col = theme$labels, offset = 0, cex = 1.1, pos = 4)), 
###        expression(text(xlim[2], 0.5, paste(start(xdata[xsubset]), 
###            end(xdata[xsubset]), sep = " / "), col = theme$labels, 
###            adj = c(0, 0), pos = 2)))
###    cs$add(text.exp, env = cs$Env, expr = TRUE)
# with these lines:
###    text.exp <- expression(text(xlim[1], 0.5, main, font = 2,
###        col = theme$labels, offset = 0, cex = 1.1, pos = 4))

# Finally, you need to ensure your copy's environment is the xts namespace:
environment(plotxts) <- asNamespace("xts")

plotxts(sample.xts, yaxis.right = FALSE, main = "Main Title")

第二个，也许更简单的选择是使用不同的绘图函数并修改它以生成您想要的网格线等。我会开始使用 plot.zoo() 因为它已经可以很好地处理时间序列。

zoo::plot.zoo(sample.xts, screens = 1, xlab="", las=2, main="Main Title")
grid() # add the grid

那至少让网格在那里。如果没有正确频率的数据，我无法测试它是否会以相同的方式处理 x 轴标签。