从PHP打印多行R输出

Question

我正在使用R的gplots包的gplots venn() ，并且我想在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)