История Летописи

Текущая версия на 20:18, 30 января 2017

На этой странице история создания и правок страниц Летописи будет представлена как карта или как граф. В качестве макроскопов использованы R, igraph и VOSviewer

История Летописи/Процедура превращения журнала в карту

Не забыть извиниться - вклад и связи некоторых участников не показаны. Так, Участница:Тимохина Евгения не показана на картах, потому что вклад велик и связи ее слишком обширны.

[править] История Летописи/2006

Карта связей и альянсов между участниками в 2006 году

[править] История Летописи/2007

Карта связей и альянсов между участниками в 2007 году

[править] История Летописи/2008

Карта связей и альянсов между участниками в 2008 году

[править] История Летописи/2009

Карта связей и альянсов между участниками в 2009 году

[править] История Летописи/2010

Карта связей и альянсов между участниками в 2010 году

[править] История Летописи/2011

Карта связей и альянсов между участниками в 2006 году

[править] История Летописи/2012

Карта связей и альянсов между участниками в 2012 году

[править] История Летописи/2013

Карта связей и альянсов между участниками в 2013 году

[править] История Летописи/2014

Карта связей и альянсов между участниками в 2014 году

[править] История Летописи/2015

Карта связей и альянсов между участниками в 2015 году

@@ Строка 1: / Строка 1: @@
-На этой странице будет история создания и правок страниц [[Летописи]] будет представлена как [[граф]].
+На этой странице история создания и правок страниц [[Летописи]] будет представлена как [[карта]] или как  [[граф]].
-Что у нас есть и что нам понадобиться?
+В качестве макроскопов использованы [[R]], [[igraph]] и [[VOSviewer]]
-Вся история изменений Летописи в текстовом формате csv на 143 мгб
+[[История Летописи/Процедура превращения журнала в карту]]
-; rev_timestamp;rev_user_text;rev_page;rev_user;page_title;rev_len
+Не забыть извиниться - вклад и связи некоторых участников не показаны. Так, [[Участница:Тимохина Евгения]] не показана на картах, потому что вклад велик и связи ее слишком обширны.
-:20090416061258;Наталия Ефимова;135741;27831;""Школа_№12,_города_Кунгура,_Пермского_края"";87
-:20070427072926;Анна Коровко;42443;190;"BOTANICUS"_Малышева_И.В.;102
-:20090320120452;Рината Рахимзянова;131370;27415;"Jack_London_and_his_creativity";3657
-:20090320120526;Рината Рахимзянова;131370;27415;"Jack_London_and_his_creativity";3656
-:20090320120558;Рината Рахимзянова;131370;27415;"Jack_London_and_his_creativity";3655
-Возьмем [[R]] и попробуем выделить только правки 2006 года
+== История Летописи/2006 ==
-lhist <- read.csv(file.choose(),sep=";", as.is=T, header=T, encoding ="UTF-8") # считали всю историю Летописи
+{{:История Летописи/2006}}
-lhist <- na.omit(lhist ) # Убрали строки с неопределенными NA значениями
+== История Летописи/2007 ==
-sort1.let <- lhist[order(lhist$rev_timestamp), ] # Отсортировали записи по дате
+{{:История Летописи/2007}}
-Получили:
+== История Летописи/2008 ==
-      rev_timestamp     rev_user_text rev_page rev_user       page_title rev_len
+{{:История Летописи/2008}}
-20051223042724      OckhamTheFox    96562        0     Мульт_Постер      48
-20060127110211 MediaWiki default        1        0 Главная_страница     253
-20060127134527             Admin        1        1 Главная_страница     699
-20060127134633             Admin        1        1 Главная_страница     703
-20060127135228             Admin        1        1 Главная_страница     718
-20060127140007 Евгений Патаракин        1        2 Главная_страница     747
+== История Летописи/2009 ==
+{{:История Летописи/2009}}
+== История Летописи/2010 ==
-lhist.sub <- subset(lhist,as.numeric(rev_timestamp) < 20070000000000 & as.numeric(rev_len) > 200) # Оставили изменения, которые были сделаны ранее 2007 года и где вклад в страницу был больше 200 символов
+{{:История Летописи/2010}}
-lhist.sub <- na.omit(lhist.sub) # на всякий случай очистили данные
+== История Летописи/2011 ==
-lt2 <- data.frame(User = paste("U",lhist.sub[,4],sep=":" ) , Page = paste("P",lhist.sub[,3],sep=":") ) # Оставили только участников и страницы. На всякий случай добавили к цифрам буковки U - user и P
+{{:История Летописи/2011}}
-lt2.network <- graph.data.frame(lt2,directed=T) # использовали пакет igraph и получили сеть
+== История Летописи/2012 ==
-lt2.network <- simplify(lt2.network) # упростили сеть - убрали множественные связи между участниками и страницами
+{{:История Летописи/2012}}
-V(lt2.network)$color <-ifelse (substring(V(lt2.network)$name, 1, 1) == "U",'red','blue') # - участники выделены красным цветом - страницы - синим
+== История Летописи/2013 ==
-V(lt.network)$shape <-ifelse (substring(V(ubi2.network)$name, 1, 1) == "U",'circle','square') # участники - круг, страница - квадрат
+{{:История Летописи/2013}}
-set.seed(42) # для воспроизводимости
+== История Летописи/2014 ==
-plot(lt2.network, edge.arrow.size=.4,vertex.label=NA, vertex.size=2, layout=layout.kamada.kawai) # построили первый граф истории - превратили историю действий в структуру отношений
+{{:История Летописи/2014}}
-[[Файл:Lt2006.png]]
+== История Летописи/2015 ==
+{{:История Летописи/2015}}
-bad.vs<-V(ubi2.network)[degree(ubi2.network)<2]
-ubi2.network<-delete.vertices(ubi2.network, bad.vs)
-V(ubi2.network)$label <-ifelse (substring(V(ubi2.network)$name, 1, 1) == "U", V(ubi2.network)$name, NA)
-deg <- degree(ubi2.network, mode="all")
-plot(ubi2.network, edge.arrow.size=.4,vertex.size=deg/10, layout=layout.kamada.kawai)
-----
-[[Категория:Социальная сеть]]
 [[Категория:Учебная аналитика]]