Plotting an adjacency matrix

adjacencyplot

library(igraph)
library(tidyverse)
library(magrittr)

dat <- data.frame(A = c(1,1,1,2,3),
                  B = c(2,3,4,5,7))

Adj <- dat %>%
  as.matrix %>%
  graph.edgelist(directed=FALSE) %>%
  get.adjacency %>%
  as.matrix %>%
  multiply_by(., -1)

diag(Adj) <- -rowSums(Adj)

Adj %>%
  data.frame(., X=1:nrow(.)) %>%
  gather(Y, value, -X) %>%
  mutate(Y = parse_number(Y)) %>%
  ggplot(data=., aes(x=X, y=Y)) +
  geom_tile(aes(fill=value)) +
  theme_bw() +
  scale_fill_gradient2(low="grey20",
                       mid ="white",
                       high="red",
                       midpoint = 0,
                       name="") +
  coord_equal() +
  theme(axis.title = element_blank()) +
  ggtitle("Adjacency matrix")