Question

操作系统：Windows 7， R版本：3.4.3， R Studio：1.1.383

下面的代码使用R＆amp; DiagrammeR软件包生成了一个很好的甘特图。我在导出此软件包的输出时遇到问题。在R Studio中，我可以点击Zoom，然后会出现我的甘特图的漂亮全屏图像。然后我继续Export > Copy to Clipboard，当我粘贴时，我将这个奇怪的裁剪版本的图像粘贴到我的目的地。

关于裁剪的奇怪之处在于它拍摄了实际图像的部分截图以及我的R Studio会话的一部分并将两者加在一起。就像坐标关闭一样。我也试过Export > Save as Image，同样的问题也出现了。错误？我以相同的方式从ggplot2输出许多图形，这种情况永远不会发生。

我的临时解决方案是使用Window的剪切工具来获取我自己的缩放＆＃39;缩放＆＃39;但那并不可取。 DiagrammeR使用美人鱼降价，无论这意味着什么，它的价值。

library(DiagrammeR)
mermaid("
gantt
dateFormat  YYYY-MM-DD
title A Very Nice Gantt Diagram

section Basic Tasks
This is completed             :done,          first_1,    2014-01-06, 2014-01-08
This is active                :active,        first_2,    2014-01-09, 3d
Do this later                 :               first_3,    after first_2, 5d
Do this after that            :               first_4,    after first_3, 5d

section Important Things
Completed, critical task      :crit, done,    import_1,   2014-01-06,24h
Also done, also critical      :crit, done,    import_2,   after import_1, 2d
Doing this important task now :crit, active,  import_3,   after import_2, 3d
Next critical task            :crit,          import_4,   after import_3, 5d

section The Extras
First extras                  :active,        extras_1,   after import_4,  3d
Second helping                :               extras_2,   after extras_1, 20h
More of the extras            :               extras_3,   after extras_1, 48h
")

Answer 1

您可以先将html小部件另存为html文件，然后使用webshot将其另存为png文件。

htmlwidgets::saveWidget(m, file="m.html")
webshot::webshot("m.html", "m.png")

数据：

library(DiagrammeR)
m <- mermaid("
    gantt
    dateFormat  YYYY-MM-DD
    title A Very Nice Gantt Diagram

    section Basic Tasks
    This is completed             :done,          first_1,    2014-01-06, 2014-01-08
    This is active                :active,        first_2,    2014-01-09, 3d
    Do this later                 :               first_3,    after first_2, 5d
    Do this after that            :               first_4,    after first_3, 5d

    section Important Things
    Completed, critical task      :crit, done,    import_1,   2014-01-06,24h
    Also done, also critical      :crit, done,    import_2,   after import_1, 2d
    Doing this important task now :crit, active,  import_3,   after import_2, 3d
    Next critical task            :crit,          import_4,   after import_3, 5d

    section The Extras
    First extras                  :active,        extras_1,   after import_4,  3d
    Second helping                :               extras_2,   after extras_1, 20h
    More of the extras            :               extras_3,   after extras_1, 48h
    ")

带有R的甘特图 - 不能使用DiagrammeR和R Studio输出

1 个答案: