สำรวจกิ่งที่ตัดออกจากต้นไม้

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

# Calculate the assignment vector with a h of 20
clusters_h20 <- ___

# Create a new data frame storing these results
lineup_h20_complete <- mutate(lineup, cluster = ___)

# Calculate the assignment vector with a h of 40
clusters_h40 <- ___

# Create a new data frame storing these results
lineup_h40_complete <- ___

# Plot the positions of the players and color them using their cluster for height = 20
ggplot(___, aes(x = ___, y = ___, color = factor(___))) +
  geom_point()

# Plot the positions of the players and color them using their cluster for height = 40