Radiology Workflow
Boston O’Hair
2026-06-02
1 Load Data
We are loading the data for Radiology Workflow at the CareOne hospital.
df <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/RadDat_CareOne.csv")
# A nice package
library(kableExtra)
kable(head(df)) %>% kable_styling(bootstrap_options = c("striped", "hover")) %>% scroll_box(width = "100%", height = "400px")| Unique.Identifier | PatientAge | Radiology.Technician | CatalogCode | In.Rad.Room | Ordering.Physician | PatientTypeMnemonic | Encounter.Type | Priority | OrderDateTime | ExamCompleteDateTime | FinalDateTime | Loc.At.Exam.Complete | Exam.Completed.Bucket | Section | Exam.Room |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 75 | 65 | DX Abdomen 2 vw w/single chest | 1 | 4 | IP | Inpatient | Routine | 12/27/16 10:32 | 12/27/16 11:19 | 12/28/16 14:32 | GTU | 8a-8p | DX | DX Rm 1 |
| 2 | 87 | 65 | DX Abdomen 2 vw w/single chest | 1 | 4 | IP | Inpatient | Routine | 1/13/17 11:44 | 1/13/17 12:32 | 1/14/17 16:00 | GTU | 8a-8p | DX | DX Rm 1 |
| 3 | 35 | 16 | DX Abdomen 2 vw w/single chest | 1 | 150 | IP | Inpatient | Routine | 1/2/17 17:19 | 1/2/17 18:00 | 1/3/17 7:44 | 3W | 8a-8p | EC DX | DX Rm 5 (EC) |
| 4 | 51 | 24 | DX Abdomen 2 vw w/single chest | 1 | 130 | IP | Inpatient | Routine | 11/13/16 10:13 | 11/14/16 9:34 | 11/14/16 16:40 | 4W | 8a-8p | DX | DX Rm 1 |
| 5 | 67 | 37 | DX Abdomen 2 vw w/single chest | 1 | 173 | IP | Inpatient | STAT | 12/13/16 3:22 | 12/13/16 4:04 | 12/13/16 3:19 | Emergency Ctr | 12a-8a | EC DX | DX Rm 5 (EC) |
| 6 | 54 | 7 | DX Abdomen 2 vw w/single chest | 1 | 349 | IP | Inpatient | Routine | 1/17/17 5:38 | 1/17/17 7:47 | 1/17/17 10:55 | 3E | 12a-8a | DX | DX Portable |
Note that the data has 43631 rows.
2 Histogram of Exam Complete Bucket
We are creating a histogram of the time bucket in which the radiology exam was completed.
df$Exam.Completed.Bucket <- as.factor(df$Exam.Completed.Bucket)
barplot(table(df$Exam.Completed.Bucket),main="Histogram", xlab="Times", ylab="Occurences", col="skyblue")
2.1 Notes on Histogram
The histogram is alright.
3 Complete R Code
df <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/RadDat_CareOne.csv")
# A nice package
library(kableExtra)
kable(head(df)) %>% kable_styling(bootstrap_options = c("striped", "hover")) %>% scroll_box(width = "100%", height = "400px")
df$Exam.Completed.Bucket <- as.factor(df$Exam.Completed.Bucket)
barplot(table(df$Exam.Completed.Bucket),main="Histogram", xlab="Times", ylab="Occurences", col="skyblue")