#       Plot data
#          |
ggplot(diamonds) + 
# representation      Mapping to scales           Setting to constants
#     |                       |                           |
  geom_point(aes(x = carat, y = price, colour = cut), alpha = 0.3) +
#                                       Statistical transformation
#                                                   |
  geom_density_2d(aes(x = carat, y = price), stat = 'density2d') + 
#             Scale specification
#                     |
  scale_colour_brewer(type = 'qual') +
#  Data subsetting/splitting
#           |
  facet_wrap(~color) +
#   Styling
#     |
  theme_bw()

gr <- erdos.renyi.game(10, 0.5)
gr_p <- ggraph(gr, 'igraph', algorithm = 'kk')

layout <- createLayout(gr, 'igraph', algorithm = 'kk')
gr_p <- ggraph(data = layout)

gr <- graph_from_data_frame(highschool)
p <- ggraph(gr, 'igraph', algorithm = 'kk')
p + geom_edge_link()

p + geom_edge_arc()

p + geom_edge_fan()

p + geom_edge_fan0(arrow = arrow(length = unit(0.3, 'cm')))

p + geom_edge_fan(aes(colour = factor(year), alpha = ..index..)) + 
  scale_edge_alpha(guide = 'edge_direction')

hr <- as.dendrogram(hclust(dist(iris[, 1:4]), 'ward.D2'))
p <- ggraph(hr, 'dendrogram')
p + geom_edge_link()

p <- ggraph(hr, 'dendrogram', repel = TRUE)
p + geom_edge_link()

p + geom_edge_elbow()

p + geom_edge_diagonal()

# Set class of node to the class of it's children they are of equal class
hr <- treeApply(hr, function(node, children, ...) {
  if (is.leaf(node)) {
    attr(node, 'nodePar') <- list(species=iris[as.integer(attr(node, 'label')),5])
    attr(node, 'nodePar')$class <- attr(node, 'nodePar')$species
  } else {
    classes <- lapply(children, attr, which = 'nodePar')
    classes <- unique(sapply(classes, `[[`, 'class'))
    if (length(classes) == 1 && !anyNA(classes)) {
      attr(node, 'nodePar')$class <- classes
    } else {
      attr(node, 'nodePar')$class <- NA
    }
  }
  node
}, direction = 'up')

p <- ggraph(hr, 'dendrogram', repel = TRUE)
p <- p + geom_edge_diagonal2(aes(colour = node.class), gEdges('long', nodePar = 'class'))
p

p <- p + geom_node_point(aes(filter = leaf, colour = class)) + 
  geom_node_text(aes(filter = members > 25, label = members))
p

ggraph(den_to_igraph(hr), 'treemap') + 
  geom_node_treemap(aes(filter = leaf, fill = species), colour = NA) + 
  geom_node_treemap(aes(size = members), colour = 'grey20') + 
  scale_size(range = c(0.5, 4), trans = 'sqrt', guide = 'none')

ggraph(flareGraph, 'dendrogram', circular = TRUE) +
  geom_edge_bundle(aes(alpha = ..index..), data = gCon(importFrom, importTo)) +
  geom_node_point(aes(filter = leaf, colour = class)) +
  coord_fixed()

highGr <- graph_from_data_frame(highschool)
V(highGr)$community <- cluster_walktrap(highGr)$membership
V(highGr)$popularity <- degree(highGr, mode = 'in')
p <- ggraph(highGr, 'igraph', alg = 'kk') + 
  geom_edge_fan(aes(alpha = ..index..)) + 
  geom_node_point(aes(size = popularity))
p

p + facet_graph(nodes = community, edges = year)