История образовательной Галактики
Материал из Letopisi.Ru — «Время вернуться домой»
(Различия между версиями)
(→История Галактики средствами R) |
(→История Галактики средствами R) |
||
Строка 21: | Строка 21: | ||
bad.vs<-V(ubi2.network)[degree(ubi2.network)<3] #identify those vertices part of less than three edges | bad.vs<-V(ubi2.network)[degree(ubi2.network)<3] #identify those vertices part of less than three edges | ||
ubi2.network<-delete.vertices(ubi2.network, bad.vs) #exclude them from the graph - убрать узлы с | ubi2.network<-delete.vertices(ubi2.network, bad.vs) #exclude them from the graph - убрать узлы с | ||
+ | |||
+ | |||
+ | === Полезные функции igraph === | ||
+ | |||
+ | ; simplify | ||
+ | : net <- simplify(net, remove.multiple = F, remove.loops = T) | ||
+ | : можно было использовать simplify, чтобы свернуть несколько ребер в одно, суммируя их веса с помощью команды типа simplify(net, edge.attr.comb=list(Weight="sum","ignore")) | ||
+ | |||
[[Категория:Учебная аналитика]] | [[Категория:Учебная аналитика]] | ||
[[Категория:R]] | [[Категория:R]] |
Версия 19:10, 31 января 2016
Как мы превращаем историю деятельности в структуру отношений? Здесь приведен пример истории образов
История Галактики средствами R
Понадобится пакет igraph
rm(list=ls()) # очистим всё ubi <- read.csv(file.choose(),sep=";", as.is=T, header=F, encoding ="UTF-8") # header=TRUE - если есть заголовки столбцов ubi2 <- data.frame(User = paste("U",ubi[,1],sep=":" ) , Page = paste("P",ubi[,2],sep=":") ) # Это мы на всякий случай обозначили участников и страницы ubi2.network <- graph.data.frame(ubi2,directed=T) # у нас было 2 столбца - и мы из этих данных построили сеть - в принципе мы могли их всех ubi2.network <- simplify(ubi2.network) # упрощение или ubi2.network <- simplify(ubi2.network, edge.attr.comb=list(Weight="sum","ignore")) V(ubi2.network)$color <-ifelse (substring(V(ubi2.network)$name, 1, 1) == "U",'red','blue') V(ubi2.network)$shape <-ifelse (substring(V(ubi2.network)$name, 1, 1) == "U",'circle','square') set.seed(42) par(mai=c(0,0,1,0)) plot(ubi2.network, edge.arrow.size=.4,vertex.label=NA, vertex.size=2, layout=layout.kamada.kawai) bad.vs<-V(ubi2.network)[degree(ubi2.network)<3] #identify those vertices part of less than three edges ubi2.network<-delete.vertices(ubi2.network, bad.vs) #exclude them from the graph - убрать узлы с
Полезные функции igraph
- simplify
- net <- simplify(net, remove.multiple = F, remove.loops = T)
- можно было использовать simplify, чтобы свернуть несколько ребер в одно, суммируя их веса с помощью команды типа simplify(net, edge.attr.comb=list(Weight="sum","ignore"))