i just want a simple tree tho

simple_tree_graph.R

library(dplyr)
library(igraph)
library(ggplot2)
library(ggraph)

ed <- frame_data(
  ~from, ~to,
  "a", "b",
  "a", "c",
  "c", "e"
) %>% 
  as.data.frame

vt <- frame_data(
  ~name, ~colour,
  "a",    1,
  "b",    1,
  "c",    2,
  "e",    2
)  %>% 
  as.data.frame

graph_from_data_frame(d = ed, vertices = vt) %>% 
  ggraph(layout = "igraph", algorithm = "tree") + 
  geom_edge_link0() +
  geom_node_label(aes(label = name, fill = colour))