The example code:

as$\_$adjacency$\_$matrix$($g$\_$the$\_$princess$\_$bride, attr $=$ "weight", type $=$ "both"$)|>$

# convert "sparse matrix" format to matrix, and then to tibble

as$.$matrix$()|>$ as$\_$tibble$($rownames $=$ "from"$)|>$

# pivot from wide to long format

pivot$\_$longer$(-$from, names$\_$to $="$to$",$ values$\_$to $=$ "weight"$)|>$

# plot the heatmap using ggplot

ggplot$()+$ geom$\_$tile$($aes$($x $=$ to$,$ y $=$ from, fill $=$ weight$),$ color $=$ "gray$50")+$

scale$\_$fill$\_$gradient$($low $=$ "white", high $=$ "darkblue"$)+$

theme$($axis$.$text.x $=$ element$\_$text$($angle $=90,$ hjust $=1,$ vjust $=0\mathrm{.}5))$

write R code using ggplot or the ggraph library for a shakespeare:

heatmap$\_$data $<-$ as$\_$adjacency$\_$matrix$($network$,$ attr $=$ "weight", type $=$ "both"$)|>$

as$.$matrix$()|>$

as$\_$tibble$($rownames $=$ "from"$)|>$

pivot$\_$longer$(-$from, names$\_$to $="$to$",$ values$\_$to $=$ "weight"$)$

ggplot$($heatmap$\_$data, aes$($x $=$ to$,$ y $=$ from, fill $=$ weight$))+$

geom$\_$tile$($color $=$ "gray$50")+$

scale$\_$fill$\_$gradient$($low $=$ "white", high $=$ "darkblue"$)+$

theme$\_$minimal$()+$

theme$($axis$.$text.x $=$ element$\_$text$($angle $=90,$ hjust $=1,$ vjust $=0\mathrm{.}5))+$

labs$($title $=$ "Shakespeare Network Heatmap", x $="$To$",$ y $=$ "From"$)$

However, Error in get.adjacency.sparse$($graph$,$ type $=$ type, attr $=$ attr, edges $=$ edges, :

no such edge attribute