Radiology Workflow

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")
knitr::kable(head(df))

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 of data

2 Histogram of Exam Complete Bucket

We are creating a histogram of the time bucket in which the radiology exam was completed.

barplot(table(df$Exam.Completed.Bucket),main="Histogram")

2.1 Notes on Histogram

The histogram looks not like I want it to

2.2 Notes on Class

Break soon

3 Complete R Code

df<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/RadDat_CareOne.csv")
knitr::kable(head(df))
barplot(table(df$Exam.Completed.Bucket),main="Histogram")