使用 r 中的单个函数返回两个图

Question

我正在尝试实现一个函数来使用单个函数绘制两个时间序列图，但它只返回一个这里是代码有什么问题

visualize <- function(x) {

    x<-data.frame(x)

    x1 <- x[x$chr == 1, ]
    x2 <- x[x$chr != 1, ]

    t1<-data.frame("range"=1:nrow(x1))
    t2<-data.frame("range"=1:nrow(x2))

    t1$testsample_first<-exp(x1$testSample1)
    t1$testsample_second<-exp(x1$testSample2)


    t2$testsample_first<-exp(x2$testSample1)
    t2$testsample_second<-exp(x2$testSample2)

    dygraph(t1);dygraph(t2)
 }


(visualize(scon))

它只绘制第二个。我试图通过在第一个但相同的结果中调用第二个函数来实现。

Answer 1

您需要在 a 中一起返回两个对象list：

list(plot(t1), plot(t2))