Как визуализировать дерево данных со значениями в R? - PullRequest
Новая
       28

Как визуализировать дерево данных со значениями в R?

1 голос
/ 06 марта 2020

Как упомянуто в заголовке, как мне построить data.tree с соответствующими значениями?

Заранее спасибо за помощь. Уже в моем уме: (

Редактировать: Больше информации:

Данные, которые я пытаюсь визуализировать, представляют собой опрос, в котором респонденту задают основной вопрос, в котором, если он или она ответили «да», и к первому ответят дополнительные вопросы. Я пытаюсь визуализировать процент респондентов, которые ответили «да» или «нет» на каждый вопрос, для которого моя идея состоит в том, чтобы использовать для этого дерево решений, подобное графику. 

library(data.tree)
library(networkD3)

# create simple tree
tree <- Node$new("Primary Node")
tree1 <- tree$AddChild("Tree1")
tree2 <- tree$AddChild("Tree2")
tree3 <- tree1$AddChild("Tree3")
tree4 <- tree2$AddChild("Tree4")

# assign value

tree1$value <- 1
tree2$value <- 2
tree3$value <- 3
tree4$value <- 4

# plot tree ## No values reflected
plot(tree)
simpleNetwork(ToDataFrameNetwork(tree))

Edit:

Пробовал ваше решение, Gilean, работает довольно хорошо, однако, как заставить дочерний узел распознавать одни и те же слова в разных деревьях? И как настроить слова по размеру шрифта или выравнивание, чтобы оно не мешало визуализации? 

library(igraph)

# requires the changing of No to No1, No2 and so forth to prevent it merging into one large node

df <- data.frame(parent = c("Have you ever had your cholesterol  fat levels in your blood  measured by a doctor or other health worker",
                            "Have you ever had your cholesterol  fat levels in your blood  measured by a doctor or other health worker",
                            "Have you ever been told by a doctor or other health worker that you have raised cholesterol",
                            "Have you ever been told by a doctor or other health worker that you have raised cholesterol",
                            "Were you first told in the past 12 months",
                            "Were you first told in the past 12 months",
                            "In the past two weeks have you taken any oral treatment medication for raised total cholesterol prescribed by a doctor or other health worker",
                            "In the past two weeks have you taken any oral treatment medication for raised total cholesterol prescribed by a doctor or other health worker",
                            "Have you ever seen a traditional healer for raised cholesterol",
                            "Have you ever seen a traditional healer for raised cholesterol",
                            "Are you currently taking any herbal or traditional remedy for your raised cholesterol",
                            "Are you currently taking any herbal or traditional remedy for your raised cholesterol"),

                          child = c("No", "Have you ever been told by a doctor or other health worker that you have raised cholesterol", 
                           "No1", "Were you first told in the past 12 months",
                           "No2", "In the past two weeks have you taken any oral treatment medication for raised total cholesterol prescribed by a doctor or other health worker",
                           "No3", "Have you ever seen a traditional healer for raised cholesterol",
                           "No4", "Are you currently taking any herbal or traditional remedy for your raised cholesterol",
                           "No5", "Yes"),

                 value = 1:12)


tree <- graph_from_data_frame(df, directed = TRUE)

plot(tree, vertex.label = V(tree)$name, edge.label = E(tree)$value, layout=layout_as_tree, vertex.size = c(10, E(tree)$value))

1 Ответ

0 голосов
/ 06 марта 2020

Я не очень знаком с data.tree, поэтому я не знаю, как добавить быстрый способ добавления всех меток, но вы можете установить метку для каждого края отдельно. 

library(data.tree)

# create simple tree
tree <- Node$new("Primary Node")
tree1 <- tree$AddChild("Tree1")
tree2 <- tree$AddChild("Tree2")
tree3 <- tree1$AddChild("Tree3")
tree4 <- tree2$AddChild("Tree4")

# add edges 
SetEdgeStyle(tree, label = 1)
SetEdgeStyle(tree2, label = 2)
SetEdgeStyle(tree3, label = 3)
SetEdgeStyle(tree4, label = 4)

# plot tree 
plot(tree)

В igraph вы можете просто создать data.frame со всей необходимой информацией и создать график с древовидной структурой из этого data.frame с метками ребер. Тем не менее, необходимо настроить еще несколько вещей, чтобы они выглядели лучше по сравнению с data.tree. 

library(igraph)
df <- data.frame(parent = c("Primary Node", "Primary Node", "Tree1", "Tree2"),
                 child = c("Tree1", "Tree2", "Tree3", "Tree4"),
                 value = 1:4)

tree <- graph_from_data_frame(df, directed = TRUE)

plot(tree, vertex.label = V(tree)$name, edge.label = E(tree)$value, layout=layout_as_tree, vertex.size = c(20, E(tree)$value * 10))
...