Контрольная работа по "Анализу больших данных"

ФЕДЕРАЛЬНОЕ АГЕНТСТВО СВЯЗИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ

УЧРЕЖДЕНИЕ ВЫСШЕГО ОБРАЗОВАНИЯ

«САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТЕЛЕКОММУНИКАЦИЙ ИМ. ПРОФ. М.А. БОНЧ-БРУЕВИЧА»

(СПбГУТ)

ИНСТИТУТ НЕПРЕРЫВНОГО ОБРАЗОВАНИЯ

КОНРОЛЬНАЯ РАБОТА

По дисциплине: Анализ больших данных.

Фамилия:       Ларионов

Имя:         Владимир

Отчество:  Анатольевич

№ зачетной  книжки:         1910242

Группа №:          ИБ-93з

Курс:                     3

Санкт-Петербург

2022г.

Глава №1.

Задание №8.

        Используя набор данных pressure, постройте график зависимости давления паров ртути от температуры.

Решение

x <- c(pressure$temperature)

y <- c(pressure$pressure)

ggplot(pressure, aes(x, y))+geom_line()+geom_point()+labs(x="temperature", y="pressure")

[pic 1]

Глава №2.

Задание №8

        Используя термины из трех русских сказок задания 7, постройте граф смежности с помощью функции graph.adjacency() из пакета igraph. Создайте интерактивное приложение с помощью функции tkplot() и продемонстрируйте манипуляции по изменению макета графа.

Решение

library(tm)

library(tmap)

library(corpus)

library(igraph)

dirpath<-"c:/Skazki"

corpus<-Corpus(DirSource(dirpath),readerControl = list(reader = readPDF, language = "ru", load = T, encoding = "UTF-8"))

corpus <- tm_map(corpus, removePunctuation)

corpus <- tm_map(corpus, content_transformer(tolower))

corpus <- tm_map(corpus, removeNumbers)

tdm<-TermDocumentMatrix(corpus,control = list(minWordLength = 1))

m<-as.matrix(tdm)

m[m>=1] <- 1

termMatrix <- m%*% t(m)