กลุ่มที่แบ่งตามความสูง

library(dendextend)
dist_players <- dist(lineup, method = 'euclidean')
hc_players <- hclust(dist_players, method = "complete")

# Create a dendrogram object from the hclust variable
dend_players <- as.dendrogram(___)

# Plot the dendrogram


# Color branches by cluster formed from the cut at a height of 20 & plot
dend_20 <- color_branches(___, h = ___)

# Plot the dendrogram with clusters colored below height 20


# Color branches by cluster formed from the cut at a height of 40 & plot
dend_40 <- ___

# Plot the dendrogram with clusters colored below height 40