使用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

您需要在list：

中将两个对象一起返回

list(plot(x), plot(y))