从函数内绘制 xts 对象时可能出现的问题

Question

我今天（2019 年 3 月 8 日星期五）升级到了最新的 R、xts、Rstudio 版本。这是一个非常简单的示例，演示了从函数绘制 xts 对象时可能出现的问题。为了演示这个问题，我有两种情况：“正常工作”和“不起作用”情况：

这里是“正常工作”的案例：

library(xts)
function_plot1<-function()
{
  data(sample_matrix)
  plot(as.xts(sample_matrix))
}

function_plot1()

我可以在绘图面板中看到一个绘图，这是应该的。

现在“不起作用”的情况：

function_plot<-function()
{

  data(sample_matrix)
  plot(as.xts(sample_matrix))
  print("")

}

function_plot()

在这个例子中，情节不再出现。上述两个函数之间的唯一区别是在后一个函数（打印命令）中的绘图调用之后“我做某事”。如果我引入一些其他命令（而不是打印），也会发生同样的问题。在函数中绘制 xts 对象时会出现此问题。

Answer 1

在你的情节周围使用打印。

function_plot<-function()
{

  data(sample_matrix)
  print(plot(as.xts(sample_matrix)))
  print("")

}

function_plot()

函数只返回最后评估的表达式，这就是绘图没有渲染的原因。