ggplot对聚类条形图进行排序

library(ggplot2)
# 导入数据集
data <- read.csv("data.csv")

# 进行聚类分析
clusters <- kmeans(data, centers = 3)

# 将聚类结果与原始数据集合并
data$cluster <- as.factor(clusters$cluster)

# 计算每个类别的平均值
mean_values <- aggregate(. ~ cluster, data, mean)

# 对聚类结果进行排序
sorted_clusters <- mean_values[order(mean_values$variable), "cluster"]
data$cluster <- factor(data$cluster, levels = sorted_clusters)

# 创建聚类条形图
ggplot(data, aes(x = variable, y = value, fill = cluster)) +
  geom_bar(stat = "identity", position = "dodge") +
  theme_minimal()