Программа для амплитудного анализа изменения индекса ритма волны в разных частотных диапазонах на электроэнцефалографическом сигнале
Амплитудный анализ ЭЭГ
ЛИСТИНГ
library(tidyverse)
## Warning: пакет 'tidyverse' был собран под R версии 4.1.3
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1
## Warning: пакет 'ggplot2' был собран под R версии 4.1.3
## Warning: пакет 'tibble' был собран под R версии 4.1.3
## Warning: пакет 'tidyr' был собран под R версии 4.1.3
## Warning: пакет 'readr' был собран под R версии 4.1.3
## Warning: пакет 'purrr' был собран под R версии 4.1.3
## Warning: пакет 'dplyr' был собран под R версии 4.1.3
## Warning: пакет 'stringr' был собран под R версии 4.1.3
## Warning: пакет 'forcats' был собран под R версии 4.1.3
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(readxl)
## Warning: пакет 'readxl' был собран под R версии 4.1.3
df <- read_excel("data.xlsx")
df <- df %>% pivot_longer(cols = `1`:`9`, names_to = "Пациент", values_to = "Значение")
library(ggplot2)

ggplot(df) +
 aes(x = Пациент, weight = Значение) +
 geom_bar(fill = "#112446") +
 theme_minimal() +
  xlab("Испытуемый") +
    ylab("Изменение индекса ритма волны") +
 facet_wrap(vars(Ритм))
ggplot(df) +
  aes(x = Ритм, y = `Значение`) +
  geom_violin(adjust = 1L, scale = "area", fill = "#112446") +
   ylab("Изменение индекса ритма волны") +
  theme_minimal()
library(parcats)
## Warning: пакет 'parcats' был собран под R версии 4.1.3
library(easyalluvial)
## Warning: пакет 'easyalluvial' был собран под R версии 4.1.3
df2 <- df %>% pivot_wider(names_from = Ритм, values_from = Значение)
data <- as.matrix(df2 %>% select(-Пациент))
heatmap(data,ylab="Номер испытуемого",cexCol=1)
Описание программы:
Основной частью алгоритма является обработка таблиц, содержащих индексы ритмов волн и построенных с помощью математических методов анализа электроэнцефалограммы. Одним из самых информативных является амплитудный метод анализа. Программа позволяет вывести данные в графическом виде, что упрощает последующий анализ данных человеком.
Для обработки и визуализации данных использованы пакеты для языка R: easyalluvial, GGally, ggplot2, parcats, readxl, scales, tidyverse. В приведенных столбчатых диаграммах показываются изменения индексов ритмов волн в различных частотных диапазонах. Показатели изменения в программе выражены в абсолютных значениях (как на исходном ЭЭС).
Денис
Чернышов
Сергеевич
-
Отсутствует
Отсутствует
-
-
-
0000-0002-1604-7001
РОССИЯ
Денис
Чернышов
Сергеевич
-
РОССИЯ
28.29.15
Методы исследования операций
03.01.EQ
PSYCHOLOGY, CLINICAL
Денис
Чернышов
Сергеевич
РОССИЯ
Валерий
Горбунов
Николаевич
РОССИЯ
Наталия
Бофанова
Сергеевна
РОССИЯ
Александр
Тычков
Юрьевич
РОССИЯ
Дмитрий
Овчинников
Леонидович
РОССИЯ
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ УЧРЕЖДЕНИЕ "ФОНД СОДЕЙСТВИЯ РАЗВИТИЮ МАЛЫХ ФОРМ ПРЕДПРИЯТИЙ В НАУЧНО-ТЕХНИЧЕСКОЙ СФЕРЕ"
1027739479734
СЕРГЕЙ
ПОЛЯКОВ
ГЕННАДЬЕВИЧ
Организация
Федеральное государственное бюджетное учреждение "Фонд содействия развитию малых форм предприятий в научно-технической сфере"
Федеральные государственные бюджетные учреждения
Денис
Чернышов
Сергеевич
Физическое лицо
РОССИЯ