Qui è piccolo insieme di dati:che collega tutti i punti (possibile conbination) in dispersione trama
myd <- data.frame(PC1 = rnorm(5, 5, 2),
PC2 = rnorm (5, 5, 3), label = c("A", "B", "C", "D", "E"))
plot(myd$PC1, myd$PC2)
text(myd$PC1-0.1, myd$PC2, lab = myd$label)
voglio collegare tutte le possibili combinazioni tra linea con retta (euclideo) distanza, per produrre alcuni grafico come questo (preferibilmente a base di grafica o ggplot2)