Publications by Юрий Тукачев

d3heatmap

05.11.2023

...

3 sym

Document

22.10.2023

1.Для кількох наборів кількісних даних з одного датасету зобразити матричну діаграму розсіювання. library(corrplot) ## corrplot 0.92 loaded library(qgraph) data2 <- read.csv("C:\\Users\\Анастасія\\Downloads\\bodyfat.csv") data2 <- data.frame(data2) age <...

448 sym R (2425 sym/15 pcs) 3 img

Document

19.10.2023

Подключим необходимые для работы пакеты library(dplyr) #для работы с таблицами library(coin) #для статистического анализа library(tidyr) #для работы с таблицами library(DT) # для интерактивного отображения таблиц l...

6133 sym R (4577 sym/32 pcs) 6 img

Анализ данных по липидам

19.10.2023

Подключим необходимые для работы пакеты library(dplyr) #для работы с таблицами library(coin) #для статистического анализа library(tidyr) #для работы с таблицами library(DT) # для интерактивного отображения таблиц l...

6126 sym R (4577 sym/32 pcs) 6 img

第4回 スライド

11.10.2023

複数時点の観測データ クロスセクション・データ 今までの分析ではすべてクロスセクション(横断面)データまたは時系列データを想定していた。 customer <- read.table("customer.txt", header = T) head(customer) ## ID gender age freq DM ## 1 1 0 36 2 0 ## 2 2 1 31 5 1 ##...

10934 sym R (4054 sym/25 pcs) 1 tbl

radar plot

26.09.2023

绘图练习来源: https://www.datanovia.com/en/blog/beautiful-radar-chart-in-r-using-fmsb-and-ggplot-packages/ Demo data exam_scores <- data.frame( row.names = c("Student.1", "Student.2", "Student.3"), Biology = c(7.9, 3.9, 9.4), Physics = c(10, 20, 0), Maths = c(3.7, 11.5, 2.5), Sport = c(8.7, 20, 4), ...

680 sym R (3380 sym/11 pcs) 4 img

Network Analysis in practice

08.09.2023

1. Required packages library(igraph) library(Matrix) library(sjPlot) library(report) 2. Matrix of friendship ties among the 5 individuals (adjacency matrix) adj_matrix <- matrix(c(0,1,0,1,0, 1,0,1,1,0, 0,1,0,1,1, 1,1,1,0,1, 0,0,1,1,0), ...

354 sym R (2128 sym/14 pcs) 1 img 2 tbl

Grebennikov Nikita otchet (corrected)

06.09.2023

Аналитический отчет library(dplyr) library(readr) clients_database <- read_csv("C:\\Users\\Админ\\Downloads\\clientum.csv") clients_database1 = subset(clients_database, select = - c(...1)) str(clients_database1) ## tibble [10,127 × 21] (S3: tbl_df/tbl/data.frame) ## $ CLIENTNUM : num [1:10127] 7.69e+08 8...

8492 sym R (70496 sym/163 pcs) 18 img

Otchet Grebennikov Nikita

06.09.2023

Аналитический отчет library(dplyr) library(readr) clients_database <- read_csv("C:\\Users\\Админ\\Downloads\\clientum.csv") clients_database1 = subset(clients_database, select = - c(...1)) str(clients_database1) ## tibble [10,127 × 21] (S3: tbl_df/tbl/data.frame) ## $ CLIENTNUM : num [1:10127] 7.69e+08 8...

8492 sym R (70496 sym/163 pcs) 18 img

"Bank cliients" report

04.09.2023

Аналитический отчет library(dplyr) library(readr) clients_database <- read_csv("C:\\Users\\Админ\\Downloads\\clientum.csv") clients_database1 = subset(clients_database, select = - c(...1)) str(clients_database1) ## tibble [10,127 × 21] (S3: tbl_df/tbl/data.frame) ## $ CLIENTNUM : num [1:10127] 7.69e+08 8...

7862 sym R (67927 sym/152 pcs) 18 img