系统聚类R代码（针对火锅店数据，含字符型变量和数值型变量）

好的，以下是一个简单的系统聚类的 R 代码，用于火锅店数据的聚类分析。该数据包含字符型变量和数值型变量。

# 导入数据
data <- read.csv("hotpot_data.csv", header = TRUE)

# 将字符型变量转化为因子变量
data$city <- as.factor(data$city)
data$district <- as.factor(data$district)
data$street <- as.factor(data$street)

# 选择需要进行聚类的变量
data_clust <- subset(data, select = c("avg_price", "avg_comment", "avg_flavor", "avg_service", "avg_env"))

# 标准化数据
data_clust_norm <- scale(data_clust)

# 执行系统聚类
set.seed(123) # 设置随机种子，以确保结果可重复
clust <- hclust(dist(data_clust_norm), method = "ward.D2")

# 绘制聚类树状图
plot(clust, hang = -1, main = "Dendrogram of Hotpot Restaurant Data", xlab = "", sub = NULL)

# 利用簇的数量进行剪枝
clust_cut <- cutree(clust, k = 3)

# 将聚类结果添加到原始数据中
data$cluster <- clust_cut

# 输出聚类结果
print(table(data$cluster))

在这个代码中，我们首先导入火锅店数据，将字符型变量转化为因子变量，然后选择需要进行聚类的数值型变量。接着，我们对数据进行标准化处理，然后执行系统聚类。使用 `hclust()` 函数进行聚类，其中 `method = "ward.D2"` 表示使用 Ward 方法进行聚类。然后，我们绘制聚类树状图，以便于观察聚类结果。我们使用 `cutree()` 函数进行剪枝，将簇的数量设置为 3。最后，我们将聚类结果添加到原始数据中，并输出聚类结果。

注意：这只是一个简单的聚类代码示例，具体的聚类方法和参数需要根据数据特征进行选择和调整。