Research Thesis Results: Class Map

library(readr)
library(dplyr)
corr <- read_csv("Correspondence1.csv")
library(igraph)
names <- corr$Community 
corr <- corr %>% select(-Community)
rownames(corr) <- names 

corr <- as.matrix(corr)

tcorr <- t(corr)

library(bipartiteD3)

bipartite_D3(tcorr, PrimaryLab = "Human-Labeled",
SecondaryLab = "Pipeline-Labeled",
SiteNames = " ",#FFCCB6
colouroption = "manual",
SortSecondary = TRUE, 
NamedColourVector= c(Community_1='#FF968A', Community_2='#CCE2CB', Community_3='#55CBCD', Community_4='#FCB9AA', Community_5='#F3B0C3', Community_6='#DAEAA6', Community_7='#D2B48C', Community_8='#ABDEE6', Community_9='#CBAACB' , Community_10='#FFFFB5', Community_11='#EAD'))