r - Rでダイアグラムを再配置する方法

Question

バージョン 0.9.0に更新diagrammerし、同じデータから別の図のレンダリングを開始しました。私のデータフレームは次のようになります。

df <- data.frame(col1 = c( "Cat", "Dog", "Bird"),
                 col2 = c( "Feline", "Canis", "Avis"), 
                 stringsAsFactors=FALSE)

残りのコードは次のようになります。

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)

コードを使用すると、次の図が表示されます。

次のようになります。