我正在尝试创建图表图形的图像,但它会创建空白文件。我的数据框:
df <- data.frame(col1 = c( "Cat", "Dog", "Bird"),
col2 = c( "Feline", "Canis", "Avis"),
stringsAsFactors=FALSE)
其余代码:
png("C:\\tmp\\anim.png")
uniquenodes <- unique(c(df$col1, df$col2))
library(DiagrammeR)
nodes <- create_node_df(n=length(uniquenodes), nodes = seq(uniquenodes), type="number", label=uniquenodes)
edges <- create_edge_df(from=match(df$col1, uniquenodes), to=match(df$col2, uniquenodes), rel="related")
g <- create_graph(nodes_df=nodes, edges_df=edges)
render_graph(g)
dev.off()
这个解决方案是this thread。
library(DiagrammeR)
library(DiagrammeRsvg)
library(magrittr)
library(rsvg)
graph <-
"graph {
rankdir=LR; // Left to Right, instead of Top to Bottom
a -- { b c d };
b -- { c e };
c -- { e f };
d -- { f g };
e -- h;
f -- { h i j g };
g -- k;
h -- { o l };
i -- { l m j };
j -- { m n k };
k -- { n r };
l -- { o m };
m -- { o p n };
n -- { q r };
o -- { s p };
p -- { s t q };
q -- { t r };
r -- t;
s -- z;
t -- z;
}
"
grViz(graph) %>%
export_svg %>% charToRaw %>% rsvg_pdf("graph.pdf")
grViz(graph) %>%
export_svg %>% charToRaw %>% rsvg_png("graph.png")
grViz(graph) %>%
export_svg %>% charToRaw %>% rsvg_svg("graph.svg")
首先安装DiagrammeRsvg
和rsvg
包。在代码的末尾添加以下行:
export_graph(graph_name,
file_name = "pic.png",
file_type = "png")
有了这个你不仅可以创建png
图像和pdf
。