История Летописи
Материал из Letopisi.Ru — «Время вернуться домой»
(Различия между версиями)
Строка 12: | Строка 12: | ||
Возьмем [[R]] и попробуем выделить только правки 2006 года | Возьмем [[R]] и попробуем выделить только правки 2006 года | ||
+ | |||
+ | lhist <- read.csv(file.choose(),sep=";", as.is=T, header=T, encoding ="UTF-8") # считали всю историю Летописи | ||
+ | |||
+ | lhist <- na.omit(lhist ) # Убрали строки с неопределенными NA значениями | ||
+ | |||
+ | sort1.let <- lhist[order(lhist$rev_timestamp), ] # Отсортировали записи по дате | ||
+ | |||
+ | Получили: | ||
+ | |||
+ | rev_timestamp rev_user_text rev_page rev_user page_title rev_len | ||
+ | 759708 20051223042724 OckhamTheFox 96562 0 Мульт_Постер 48 | ||
+ | 100385 20060127110211 MediaWiki default 1 0 Главная_страница 253 | ||
+ | 100386 20060127134527 Admin 1 1 Главная_страница 699 | ||
+ | 100387 20060127134633 Admin 1 1 Главная_страница 703 | ||
+ | 100388 20060127135228 Admin 1 1 Главная_страница 718 | ||
+ | 100389 20060127140007 Евгений Патаракин 1 2 Главная_страница 747 | ||
+ | |||
+ | |||
[[Категория:Социальная сеть]] | [[Категория:Социальная сеть]] | ||
[[Категория:Учебная аналитика]] | [[Категория:Учебная аналитика]] |
Версия 23:01, 31 января 2016
На этой странице будет история создания и правок страниц Летописи будет представлена как граф. Что у нас есть и что нам понадобиться?
Вся история изменений Летописи в текстовом формате 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 года
lhist <- read.csv(file.choose(),sep=";", as.is=T, header=T, encoding ="UTF-8") # считали всю историю Летописи
lhist <- na.omit(lhist ) # Убрали строки с неопределенными NA значениями
sort1.let <- lhist[order(lhist$rev_timestamp), ] # Отсортировали записи по дате
Получили:
rev_timestamp rev_user_text rev_page rev_user page_title rev_len 759708 20051223042724 OckhamTheFox 96562 0 Мульт_Постер 48 100385 20060127110211 MediaWiki default 1 0 Главная_страница 253 100386 20060127134527 Admin 1 1 Главная_страница 699 100387 20060127134633 Admin 1 1 Главная_страница 703 100388 20060127135228 Admin 1 1 Главная_страница 718 100389 20060127140007 Евгений Патаракин 1 2 Главная_страница 747