write R code using ggplot or the ggraph library using these variables to create a heatmap

Class 'igraph' hidden list of

$10$

$$$ : num

$28$

$$$ : logi FALSE

$$$ : num

$[$

$1$

:

$344$

$]$

$21$

$21$

$21$

$21$

$21$

$21$

$21$

$25$

$22$

$21$

$.$

$.$

$.$

$$$ : num

$[$

$1$

:

$344$

$]$

$16$

$2$

$20$

$3$

$10$

$6$

$11$

$21$

$21$

$19$

$.$

$.$

$.$

$$$ : NULL

$$$ : NULL

$$$ : NULL

$$$ : NULL

$$$ :List of

$4$

$$

$.$

$.$

$ : num

$[$

$1$

:

$3$

$]$

$1$

$0$

$1$

$$

$.$

$.$

$ : Named list

$($

$)$

$$

$.$

$.$

$ :List of

$3$

$$

$.$

$.$

$.$

$.$

$ name : chr

$[$

$1$

:

$28$

$]$

$"$All$"$ "BIANCA" "BRABANTIO" "CASSIO"

$.$

$.$

$.$

$$

$.$

$.$

$.$

$.$

$ NumLines: int

$[$

$1$

:

$28$

$]$

$2$

$34$

$140$

$279$

$27$

$388$

$71$

$245$

$3$

$5$

$.$

$.$

$.$

$$

$.$

$.$

$.$

$.$

$ degree : num

$[$

$1$

:

$28$

$]$

$18$

$18$

$24$

$38$

$14$

$48$

$22$

$34$

$22$

$8$

$.$

$.$

$.$

$$

$.$

$.$

$ :List of

$1$

$$

$.$

$.$

$.$

$.$

$ n: num

$[$

$1$

:

$344$

$]$

$7$

$3$

$6$

$4$

$2$

$1$

$1$

$1$

$1$

$1$

$.$

$.$

$.$

$$$ :