So I have created my plot with:
\'\'\'spot_average<-hclust(diss_matrix, method = "average") #I used row.names earlier so the dendrogram has names on