EMCluster函数的代码例子

下面是一个在 R 语言中使用 `EMCluster` 包中的 `EMCluster` 函数对 iris 数据集进行聚类的示例代码：

# 导入数据集
data(iris)

# 提取数值型数据
iris_num <- iris[, 1:4]

# 数据标准化
iris_scale <- scale(iris_num)

# EM 聚类
library(EMCluster)
result <- EMCluster(iris_scale, 3)

# 可视化聚类结果
library(ggplot2)
iris_cluster <- data.frame(iris_scale, cluster = result$classification)
ggplot(iris_cluster, aes(x = Sepal.Length, y = Sepal.Width, color = factor(cluster))) +
  geom_point() +
  ggtitle("EM Clustering of Iris Data")

在这个例子中，我们首先导入 iris 数据集，提取数值型数据并进行标准化，然后使用 `EMCluster` 函数进行聚类。`k` 参数指定了聚类的个数，这里我们设置为 3。聚类结果存储在 `result` 中。

最后，我们使用 `ggplot2` 包将聚类结果可视化。首先将聚类结果与原始数据合并为一个数据框，然后使用 `ggplot` 函数绘制散点图，`x` 和 `y` 参数指定了横纵坐标的变量，`color` 参数指定了点的颜色，`ggtitle` 则是设置图像的标题。运行代码后，可以看到绘制出的 EM 聚类图像。