从PHP打印多行R输出

Question

我正在使用R的venn()包中的gplots，并且想在php上打印交集。我正在使用exec()执行R并打印输出，它只打印a的最后一行。

library(gplots)
f <- list(a, b, c, d, e)

info<-venn(f)
aa<-attr(info, "intersections")
print(aa)

Answer 1

采用单个交叉点并将其合并为一个变量。您可以尝试这样。

library(gplots)
f <- list(a, b, c, d, e)

info<-venn(f)
a<-attr(info, "intersections")$`A:B:C:D`
aa<-attr(info, "intersections")$`A:B:C:E`
aaa<-attr(info, "intersections")$`A:B:C:D:E`
a<-toString(paste(a,collapse=","))
aa<-toString(paste(aa,collapse=","))
aaa<-toString(paste(aaa,collapse=","))
x<-paste(a,aa,aaa,sep = "|")
print(x)