соединение всех точек (возможная комбинация )на точечной диаграмме

Вот небольшой набор данных:

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)

Я хочу соединить все возможные комбинации между линиями с прямым (евклидовым )расстоянием, чтобы создать такой график, как этот (, предпочтительно в базовой графике или ggplot2)