将维恩图输出保存到 svg答案

【问题标题】：Saving a VennDiagram output to svg将维恩图输出保存到 svg
【发布时间】：2019-08-01 12:36:24
【问题描述】：

我正在尝试使用包VennDiagram_1.6.20。

这是我正在使用的代码的 sn-p：

library(VennDiagram)
A <- c("AT1G01050", "AT1G01100","AT1G01370","AT1G01510","AT1G01630","AT1G01650","AT1G01820",
   "AT1G01920","AT1G01940","AT1G01960","AT1G02090", "AT1G02100","AT1G02120","AT1G02130",
   "AT1G02140","AT1G02280","AT1G02410","AT1G02500","AT1G02560","AT1G02690","AT1G02740","AT1G02780", 
   "AT1G02840","AT1G03330","AT1G03360","AT1G03860","AT1G03900","AT1G03910","AT1G04080","AT1G04170",
   "AT1G04190","AT1G04250","AT1G04270", "AT1G04410","AT1G04430","AT1G04480","AT1G04510","AT1G04630",
   "AT1G04690","AT1G04710","AT1G04750","AT1G04810","AT1G04820","AT1G04860", "AT1G04870","AT1G04900",
   "AT1G04945","AT1G04980","AT1G05055","AT1G05180")
B <- c("AT1G01050","AT1G01100","AT1G01120","AT1G01370","AT1G01510","AT1G01630","AT1G01650","AT1G01820","AT1G01940","AT1G01960","AT1G02090","AT1G02100","AT1G02140","AT1G02280","AT1G02500","AT1G02560","AT1G02690","AT1G02740","AT1G02780","AT1G02840","AT1G03150","AT1G03330", "AT1G03360","AT1G03860","AT1G03870","AT1G03900","AT1G03910","AT1G04080","AT1G04170","AT1G04190","AT1G04250","AT1G04270","AT1G04410", "AT1G04430","AT1G04480","AT1G04510","AT1G04630","AT1G04690","AT1G04730","AT1G04750","AT1G04810","AT1G04860","AT1G04870","AT1G04900","AT1G04945","AT1G04980","AT1G05055","AT1G05180","AT1G05190","AT1G05210")

ect3_roots_vd <- venn.diagram(
    x = list(A, B),
    filename = "ect3_roots_vd.svg",
    height = 10,
    width = 10,
    resolution = 300,
    imagetype = "svg",
    units = "in",
    category.names = c("roots_ect3" , "roots_te234"),
    print.mode = c("raw", "percent"),
    main="triple vs single mutant roots - ect3",
    main.cex = 2,
    fill = c('#a50026', '#fdae61')
)

现在，当我在 Illustrator 中打开文件时，我得到的是：

但是，如果我在 Finder 中选择文件并使用空格键“单击”它显示预览，我会得到如下所示的正确图像：

有没有其他人尝试在 svg 中保存维恩图并遇到同样的问题？

编辑：我也尝试过使用

ggsave(file="test.svg", plot=ect3_roots_vd, width=10, height=10)

Ant 它返回与上面相同的结果：如果我用空格键“单击”它，我可以看到该图，但是这一次，当我打开它时，Ai 会引发错误并且甚至不打开文件。

我的 R sessionInfo 是：

R 版本 3.5.2 (2018-12-20)
平台：x86_64-apple-darwin15.6.0（64位）
运行于：macOS Mojave 10.14.3

【问题讨论】：

请添加您正在加载的library 以使用venn.diagram 功能以及一些sample of your data。
在绘制绘图后尝试使用gridSVG::grid.export，同时在绘图中使用``file=NULL`。
@patL 完成，我添加了库和我的列表的一个小示例
@user20650 我在运行代码之前添加了这一行：grid.newpage()（与上面的代码相同，但使用filename=NULL）和grid.export(name="ect3_roots_vd.svg")，就在情节之后，现在我得到了错误：grobToDev.default(gTree, dev) 中的错误：我们不应该在这里！我遵循了这里的建议：[stackoverflow.com/questions/17255207/…，但没有设法修复它。
@CarlottaPorcelli ;重新错误，您需要绘制情节；一些简化的代码：library(VennDiagram) ; library(gridSVG) ; ect3_roots_vd <- venn.diagram( x = list(A=A, B=B), filename = NULL) ; grid.draw(ect3_roots_vd); gridSVG::grid.export("so.svg")

标签： r svg venn-diagram

【解决方案1】：

所以，我解决了这个问题。我将filename 参数设置为NULL，并使用ggsave 和device="svg" 保存了绘图。现在我可以在 Illustrator 中打开文件并根据需要进行修改。

my_plot <- venn.diagram(x=list(A, B) , 
                          filename = NULL, 
                          fill=c("#283148", "#913535"), 
                          alpha=c(0.8,0.8),
                          euler.d = TRUE,
                          scaled = TRUE,
                          cat.fontfamily = "sans",
                          cat.cex = 1,
                          lwd = c(0.3, 0.3),
                          category.names=c("A", "B"), 
                          #cat.just=list(c(1,-40) , c(0.4,-40)),
                          print.mode = c("raw", "percent"),
                          fontfamily = "sans",
                          main="Overlap between A and B",
                          main.fontfamily = "sans",
                          main.cex = 1,
                          cex = 0.9,
                          width = 10,
                          height = 10,
                          units = "in")

ggsave(my_plot, file="my_plot.svg", device = "svg")

【讨论】：