# Convert labels to character format
new_labels <- as.character(labels(dend1))
# Ensure labels are characters
new_labels <- paste("Cluster", new_labels)