mClust clustering example

R Markdown example of mClust for Ruslan

# Установка и загрузка необходимых библиотек
if (!require("mclust")) install.packages("mclust")
if (!require("plotly")) install.packages("plotly")
library(mclust)
library(plotly)

# Создаем случайные трехмерные данные
set.seed(123)
data <- data.frame(
  x = rnorm(100, mean = rep(1:3, each = 33), sd = 0.5),
  y = rnorm(100, mean = rep(c(1, 2, 3), each = 33), sd = 0.5),
  z = rnorm(100, mean = rep(c(2, 1, 3), each = 33), sd = 0.5)
)

# Применение Mclust для кластеризации данных
model <- Mclust(data)

# Получаем предсказанные метки кластеров
clusters <- model$classification

# Визуализация кластеров с использованием plotly
plot <- plot_ly(data, x = ~x, y = ~y, z = ~z, color = ~factor(clusters), colors = c('#1f77b4', '#ff7f0e', '#2ca02c')) %>%
  add_markers(size = 5) %>%
  layout(
    scene = list(
      xaxis = list(title = 'X Axis'),
      yaxis = list(title = 'Y Axis'),
      zaxis = list(title = 'Z Axis')
    ),
    title = "3D Кластеризация с использованием mclust"
  )

# Отображение графика
plot