在函数内绘制xts-object时可能出现的问题

Question

我今天（2019年3月8日至3月）升级到最新的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()

函数仅返回最后一个求值表达式，这就是绘图未呈现的原因。