Dashboard_Intellect
2024-08-12
1 Function use
Missing values
Nominal variable
- Data exploration
## Warning: package 'ggplot2' was built under R version 4.3.2Numeric on datetime
- Data exploration
Datetime data
- Data exploration
## Warning: package 'zoo' was built under R version 4.3.2## ## Attaching package: 'zoo'## The following objects are masked from 'package:base': ## ## as.Date, as.Date.numeric## Warning: package 'dplyr' was built under R version 4.3.2## ## Attaching package: 'dplyr'## The following objects are masked from 'package:stats': ## ## filter, lag## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union
## [1] "C:/Users/User/Documents/RStudio/Dashboard_data"2 COLORECTALCANCER
2.1 Data Description
2.1.1 Malignancy diagnosis
## [1] Anus
## [3] Appendix Appendix,Other
## [5] Ascending Colon Ascending Colon,Transverse Colon
## [7] Caecum Caecum,Other
## [9] Colon Colon,Desending Colon
## [11] Colon,Hepatic Flexure Colon,Other
## [13] Colon,Rectum Colon,Sigmoid Colon
## [15] Desending Colon Hepatic Flexure
## [17] Other Recto-Sigmoid
## [19] Rectum Rectum,Other
## [21] Rectum,Recto-Sigmoid,Other Sigmoid Colon
## [23] Sigmoid Colon,Appendix Sigmoid Colon,Desending Colon
## [25] Sigmoid Colon,Other Sigmoid Colon,Rectum
## [27] Sigmoid Colon,Rectum,Other Sigmoid Colon,Transverse Colon
## [29] Spleen Splenic Flexure
## [31] Terminal Ileum Transverse Colon
## [33] Transverse Colon ,Other
## 33 Levels: Anus Appendix Appendix,Other ... Transverse Colon ,Other2.1.2 Access Time
## List of 11
## $ call : language qcc::qcc(data = df_diff, type = "S", labels = df_diff$yearMonth, plot = T, axes.las = 0, xlab = "Year-Month")
## $ type : chr "S"
## $ data.name : chr "df_diff"
## $ data : num [1:81, 1:2] 1 2 7 9 10 11 12 13 14 15 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:81] 9.9 23.33 36.06 36.33 4.75 ...
## ..- attr(*, "names")= chr [1:81] "2017 10" "2017 11" "2017 8" "2018 1" ...
## $ sizes : int [1:81] 2 2 2 2 2 2 2 2 2 2 ...
## $ center : num 26.9
## $ std.dev : num 33.7
## $ nsigmas : num 3
## $ limits : num [1, 1:2] 0 87.8
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"2.1.3 Waiting Time
## List of 11
## $ call : language qcc::qcc(data = df_diff, type = "S", labels = df_diff$yearMonth, plot = T, axes.las = 0, xlab = "Year-Month")
## $ type : chr "S"
## $ data.name : chr "df_diff"
## $ data : num [1:82, 1:2] 1 2 3 4 5 6 7 8 9 10 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:82] 0.707 12.021 14.496 17.981 0.619 ...
## ..- attr(*, "names")= chr [1:82] "2017 10" "2017 11" "2017 12" "2018 1" ...
## $ sizes : int [1:82] 2 2 2 2 2 2 2 2 2 2 ...
## $ center : num 18.7
## $ std.dev : num 23.4
## $ nsigmas : num 3
## $ limits : num [1, 1:2] 0 60.9
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"2.1.4 Length of Treatment
## List of 11
## $ call : language qcc::qcc(data = df_diff, type = "S", labels = df_diff$yearMonth, plot = T, axes.las = 0, xlab = "Year-Month")
## $ type : chr "S"
## $ data.name : chr "df_diff"
## $ data : num [1:82, 1:2] 1 2 3 4 5 6 7 8 9 10 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:82] 12.73 1.41 2.83 6.13 2.71 ...
## ..- attr(*, "names")= chr [1:82] "2017 10" "2017 11" "2017 12" "2018 1" ...
## $ sizes : int [1:82] 2 2 2 2 2 2 2 2 2 2 ...
## $ center : num 19.8
## $ std.dev : num 24.8
## $ nsigmas : num 3
## $ limits : num [1, 1:2] 0 64.6
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"2.1.5 Complication
## List of 11
## $ call : language qcc::qcc(data = df_uChart$sum, type = "u", sizes = df_uChart$size, labels = df_uChart$yearMonth, plot = T, a| __truncated__
## $ type : chr "u"
## $ data.name : chr "df_uChart$sum"
## $ data : num [1:82, 1] 2 2 1 5 1 1 1 3 5 2 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:82] 2 2 0.5 0.5556 0.0667 ...
## ..- attr(*, "names")= chr [1:82] "2017 10" "2017 11" "2017 12" "2018 1" ...
## $ sizes : int [1:82] 1 1 2 9 15 11 7 9 13 12 ...
## $ center : num 0.226
## $ std.dev : num 0.475
## $ nsigmas : num 3
## $ limits : num [1:82, 1:2] 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"2.1.6 Readmission
## List of 11
## $ call : language qcc::qcc(data = df_readmission$per, type = "p", sizes = df_readmission$size, labels = df_readmission$yearMon| __truncated__ ...
## $ type : chr "p"
## $ data.name : chr "df_readmission$per"
## $ data : num [1:11, 1] 100 100 100 100 100 100 100 100 100 100 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:11] 100 100 100 100 50 ...
## ..- attr(*, "names")= chr [1:11] "2020 11" "2020 4" "2021 12" "2022 2" ...
## $ sizes : int [1:11] 1 1 1 1 2 1 1 1 2 3 ...
## $ center : num 73.3
## $ std.dev : num NaN
## $ nsigmas : num 3
## $ limits : num [1:11, 1:2] NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"2.1.7 Mortality
## List of 11
## $ call : language qcc::qcc(data = df_mortality$per, type = "p", sizes = df_mortality$size, labels = df_mortality$yearMonth, pl| __truncated__ ...
## $ type : chr "p"
## $ data.name : chr "df_mortality$per"
## $ data : num [1:82, 1] 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:82] 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "names")= chr [1:82] "2017 10" "2017 11" "2017 12" "2018 1" ...
## $ sizes : int [1:82] 1 1 1 4 12 14 11 14 11 17 ...
## $ center : num 0.0484
## $ std.dev : num 0.215
## $ nsigmas : num 3
## $ limits : num [1:82, 1:2] 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"2.1.8 Infection
## List of 11
## $ call : language qcc::qcc(data = df_infection$per, type = "p", sizes = df_infection$size, labels = df_infection$yearMonth, pl| __truncated__ ...
## $ type : chr "p"
## $ data.name : chr "df_infection$per"
## $ data : num [1:82, 1] 0 0 0 0 0 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:82] 0 0 0 0 0 ...
## ..- attr(*, "names")= chr [1:82] "2017 10" "2017 11" "2017 12" "2018 1" ...
## $ sizes : int [1:82] 1 1 1 5 13 13 11 14 12 15 ...
## $ center : num 0.57
## $ std.dev : num 0.495
## $ nsigmas : num 3
## $ limits : num [1:82, 1:2] 0 0 0 0 0.158 ...
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"2.1.9 Adverse Events
## List of 11
## $ call : language qcc::qcc(data = df_adverse$sum, type = "u", sizes = df_adverse$size, labels = df_adverse$yearMonth, plot = T| __truncated__
## $ type : chr "u"
## $ data.name : chr "df_adverse$sum"
## $ data : num [1:82, 1] 0 0 0 2 0 0 1 0 0 0 ...
## ..- attr(*, "dimnames")=List of 2
## $ statistics: Named num [1:82] 0 0 0 0.222 0 ...
## ..- attr(*, "names")= chr [1:82] "2017 10" "2017 11" "2017 12" "2018 1" ...
## $ sizes : int [1:82] 1 1 2 9 15 11 7 9 13 12 ...
## $ center : num 0.13
## $ std.dev : num 0.36
## $ nsigmas : num 3
## $ limits : num [1:82, 1:2] 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "dimnames")=List of 2
## $ violations:List of 2
## - attr(*, "class")= chr "qcc"