# NOT RUN {
# Barebones
df <- state.x77
clus <- kmeans(df, 5)$cluster
pacoplot(data = df, clusters = clus)
# With options
df <- state.x77
clus <- kmeans(df, 5)$cluster
pacoplot(data = df, clusters = clus,
colorScheme = c("red", "green", "orange", "blue", "yellow"),
labelSizes = list(yaxis = 16, yticks = 12),
measures = list(avg = mean))
# }
Run the code above in your browser using DataLab