Question

我已经使用ggraph和igraph构建了树状图。

library(ggraph)
library(igraph)
EL <- read.csv("EL2.csv", sep=";",header=TRUE, stringsAsFactors = FALSE)
ELM <-as.matrix(EL)
mygraph <- graph_from_data_frame(ELM)
ggraph(mygraph, layout = 'dendrogram', circular = TRUE) + 
  geom_edge_diagonal() +
  geom_node_point() +
  theme_void()

但是，我需要节点和边的基础数据才能在Tableau中重新创建它。

我想使用ggplot_build，但这需要一个ggplot对象。为了创建该代码，我尝试使用ig2ggplot，但返回错误：

ig2ggplot(mygraph, dfOnly = FALSE, labels = FALSE, metab = TRUE)

layout.norm中的错误（g $ layout，xmax = 1，xmin = 0，ymin = 0，ymax = 1）： “布局”不是矩阵

这是否意味着我必须将我的图形变成矩阵？因为情节看起来完全像我想要的样子。我只是想让基础数据保持滞后。对于将我的igraph变成ggplot的任何帮助，我们将不胜感激。

编辑：带有dput（）的数据（对不起，以前没有使用过，所以我不知道它是否正确）

dput（EL）结构（列表（来自= c（“印欧语系”，“阿尔巴尼亚语”，“ Gheg”， “阿尔巴尼亚语”，“托斯克”，“托斯克”，“托斯克”，“印欧语”，“亚美尼亚语”， “亚美尼亚语”，“印欧语”，“巴尔托斯拉夫语”，“波罗的海语”，“东部”， “东部”，“东部”，“东部”，“波罗的海”，“西部”，“巴尔托-斯拉夫” “斯拉夫语”，“东方”，“东方”，“东方”，“东方”，“斯拉夫语”，“南方”， “东南”，“东南”，“东南”，“南方”，“西南”， “西南”，“西南”，“西南”，“西南” “斯拉夫语”，“西方语”，“捷克斯洛伐克语”，“捷克斯洛伐克语”，“西方语”，“精神分裂症”， “ Lechitic”，“ Lechitic”，“ West”，“ Sorbian”，“ Sorbian”，“ Indo-European”， “凯尔特人”，“孤岛”，“ Brythonic”，“ Brythonic”，“ Brythonic”，“ Insular”， “ Goidelic”，“ Goidelic”，“ Goidelic”，“ Indo-European”，“ Germanic”， “北日耳曼语”，“东斯堪的纳维亚语”，“东斯堪的纳维亚语”，“丹麦-瑞典语”， “丹麦语-博克马尔语”，“丹麦语-瑞典语”，“丹麦语-里克斯马尔语”，“丹麦语-瑞典语”， “北日耳曼语”，“西北欧语”，“西北欧语”，“德语”， “西日耳曼语”，“英语”，“英语”，“西日耳曼语”，“弗里斯兰语”， “弗里斯兰语”，“弗里斯兰语”，“西日耳曼语”，“高级德语”，“德语”， “德语”，“中德”，“东德中”，“东德中” “东德德语”，“东德德语”，“中德德语”， “西中德”，“西中德”，“西中德” “西中德文”，“摩泽尔法兰克”，“德文”，“上德文”， “上德语”，“阿勒曼尼克”，“阿勒曼尼克”，“阿勒曼尼克”，“阿勒曼尼克”， “上德语”，“巴伐利亚奥地利”，“巴伐利亚奥地利”，“巴伐利亚奥地利”， “巴伐利亚奥地利”，“高级德语”，“仪德”，“仪德”，“西日耳曼” “低撒克逊人-低法兰克人”，“低法兰克人”，“低法兰克人”， “低法兰克”，“低法兰克”，“低法兰克”，“低萨克森-低法兰克” “低度撒克逊”，“低度撒克逊”，“低度撒克逊”，“低度撒克逊”，“低度撒克逊”， “低度撒克逊”，“低度撒克逊”，“低度撒克逊”，“低度撒克逊”，“低度撒克逊”， “低撒克逊人”，“印欧语”，“希腊语”，“阁楼”，“阁楼”，“阁楼”， “阁楼”，“阁楼”，“希腊语”，“多立克体”）到= c（“阿尔巴尼亚语”，“ Gheg”， “ Gheg Albanian”，“ Tosk”，“ Arbereshe Albanian”，“ Arvanitika Albanian”， “ Tosk阿尔巴尼亚语”，“亚美尼亚语”，“亚美尼亚语（语言）”，“西亚美尼亚语”， “巴尔托斯拉夫语”，“波罗的海语”，“东部”，“拉脱维亚语”，“标准拉脱维亚语”， “立陶宛语”，“萨莫吉特语”，“西方”，“普鲁士语”，“斯拉夫语”， “东部”，“白俄罗斯”，“俄罗斯”，“ Rusyn”，“乌克兰”，“南部”， “东南”，“保加利亚”，“马其顿”，“教会斯拉夫尼克”， “西南”，“波斯尼亚”，“克罗地亚”，“黑山”，“塞尔维亚”， “斯洛文尼亚”，“西部”，“捷克斯洛伐克”，“捷克”，“斯洛伐克”，“荔枝”， “ Kashubian”，“ Polish”，“ Silesian”，“ Sorbian”，“ Lower Sorbian”， “上索布族”，“凯尔特人”，“孤岛”，“ Brythonic”，“ Breton”， “康沃尔”，“威尔士”，“哥特式”，“爱尔兰”，“曼克斯”，“苏格兰盖尔”， “德语”，“北日耳曼语”，“东斯堪的纳维亚语”，“俄文版” “丹麦语-瑞典语”，“丹麦语-博克马尔语”，“挪威语”，“丹麦语-里克斯马尔语”， “丹麦语”，“瑞典语”，“西北欧语”，“法罗语”，“冰岛语”， “西日耳曼语”，“英语”，“英语（语言）”，“苏格兰语”，“弗里斯兰语”， “弗里斯兰语（语言）”，“北弗里斯兰语”，“萨特弗里斯兰语”，“高级德语”， “德语”，“洪斯克里克”，“中德”，“东德中”，“标准德”， “上撒克逊人”，“下西里西亚人”，“ Wymysory”，“西德中” “宾夕法尼亚州德语”，“普法尔茨法郎”，“里普里亚语”，“摩泽尔弗兰克语”， “卢森堡语”，“上德语”，“东法兰克语”，“阿勒曼语”， “ Colonia Tovar German”，“ Swiss German”，“ Swabian”，“ Walser”， “巴伐利亚奥地利”，“巴伐利亚”，“辛布里安”，“哈特里施”，“莫切诺”， “意第绪语”，“东部意第绪语”，“西方意第绪语”，“低撒克逊语-低法兰克语” “低法兰克语”，“南非语”，“荷兰语”，“林堡语”，“弗拉姆斯”， “ Zeeuws”，“ Low Saxon”，“ Achterhoeks”，“ Drents”，“ Gronings”，“ Plautdietsch”， “ Sallands”，“ East Frisian Low Saxon”，“ Low Saxon”，“ Stellingwerfs”， “特温特人”，“ Veluws”，“ Westphalien”，“希腊语”，“阁楼”，“ Cappadocian希腊语”， “希腊语（语言）”，“古希腊语”，“语音”，“ Yevanic”，“ Doric”， “ Tsakonian”）），类=“ data.frame”，row.names = c（NA，-136L））

Answer 1

布局告诉igraph每个节点的 x 和 y 位置在哪里。 ig2ggplot 要求将布局存储为图形属性。您将需要执行以下操作

mygraph <- igraph::graph_from_data_frame(ELM) #create a graph
mylayout <- igraph::layout_as_tree(mygraph, circular = T) #create a circular layout

mygraph$layout = mylayout #store layout as a graph attribute


#another gotcha is that ig2ggplot needs both vertex names and vertex labels. 
#as of now you just have vertex names. 
V(mygraph)$label = V(mygraph)$name #store label as a vertex attrbute


MetamapsDB::ig2ggplot(mygraph, 
                      dfOnly = FALSE, 
                      labels = FALSE, 
                      metab = TRUE ) + 
    theme(legend.position = 'none')

从igraph到ggplot对象

1 个答案: