The following solution may not be optimal but worth a try:
library(ape)
CL1 <- as.hclust(clusterward)
CL2 <- as.phylo(CL1)
plot(CL2, type="fan", cex=0.5)
The main issue obviously being the fact that there is still too many objects, hence too many labels. To turn the labels off, use argument show.tip.label=FALSE
. You can also get rid of the margins to occupy the complete device with no.margin=TRUE
:
plot(CL2, type="fan", show.tip.label=FALSE, no.margin=TRUE)