{r setup, include=FALSE} install.packages(c("rmarkdown", "igraph", "igraphdata")) library(igraph) library(igraphdata) knitr::opts_chunk$set(fig.width=8, fig.height=6, fig.align='center')

Анализ сетевых графов в R

Task 1: Изучение параметров визуализации

1. Пустой граф (Empty Graph)

{r empty_graph} eg <- make_empty_graph(10) plot(eg, vertex.size = 15, vertex.color = "lightblue", vertex.frame.color = "darkblue", vertex.label.cex = 1.2, main = "Пустой граф (10 вершин)") —

2. Полный граф (Full Graph)

{r full_graph} fg <- make_full_graph(10) plot(fg, vertex.size = 12, vertex.color = adjustcolor("salmon", alpha.f = 0.7), edge.width = 0.8, edge.color = "gray20", vertex.label.cex = 0.9, layout = layout_in_circle, main = "Полный граф (10 вершин)") —

3. Звезда (Star Graph)

{r star_graph} st <- make_star(10) plot(st, vertex.size = c(15, rep(10, 9)), vertex.color = c("gold", rep("lightgreen", 9)), vertex.label = NA, edge.width = 1.5, edge.curved = 0.1, edge.color = "darkgreen", layout = layout_as_star, main = "Звездообразный граф") —

Task 2: Анализ набора данных Kite

{r kite_dataset, fig.height=7} data("kite") plot(kite, vertex.size = degree(kite)*2, # Размер по степени вершины vertex.color = ifelse(degree(kite) > 3, "orange", "lightblue"), vertex.label.cex = 0.8, vertex.label.color = "black", edge.width = 1.5, edge.color = adjustcolor("gray50", alpha.f = 0.7), layout = layout_nicely(kite), main = "Сеть 'Воздушный змей' (Kite Network)\nРазмер вершин отражает их степень") —

Task 3: Социальная сеть (Karate Club)

```{r social_network, fig.height=8} data(“karate”)

Настройка цветов по группам

colors <- c(“red”, “blue”)[V(karate)$Faction] sizes <- (betweenness(karate)/10 + 5)

plot(karate, vertex.size = sizes, vertex.color = adjustcolor(colors, alpha.f = 0.8), vertex.frame.color = colors, vertex.label.cex = 0.7, vertex.label.color = “black”, edge.width = 0.8, edge.color = adjustcolor(“gray40”, alpha.f = 0.5), edge.arrow.size = 0.3, layout = layout_nicely(karate), main = “Социальная сеть клуба каратепоказывают группировки, размер - центральность”)

```{install.packages(c("knitr", "markdown"))}
knitr::knit2html("United_2.md")