Rstats, ChatGPT, Monitorama, Mixed Methods, Response Time.
1], y = cluster_points[, 2], cluster = as.factor(i))) } p <- ggplot(points, aes(x = x, y = y, color = cluster)) + geom_point() + theme_minimal() centroids <- lapply(clusters, function(cluster) cluster$centroid) centroids_df <- data.frame(x = sapply(centroids, "[", 1), y = sapply(centroids, "[", 2))