From 19ea3ebe94dec28ea66dabf7e019cd615ba8bfdf Mon Sep 17 00:00:00 2001 From: MIhtsham Date: Mon, 27 Mar 2017 17:14:49 +0500 Subject: [PATCH 1/5] Q1 --- Ihtsham_lhr.R | 12 +++ R Assesment 2.R | 41 +++++++++ hdata.csv | 223 ++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 276 insertions(+) create mode 100644 Ihtsham_lhr.R create mode 100644 R Assesment 2.R create mode 100644 hdata.csv diff --git a/Ihtsham_lhr.R b/Ihtsham_lhr.R new file mode 100644 index 0000000..7783ff0 --- /dev/null +++ b/Ihtsham_lhr.R @@ -0,0 +1,12 @@ +library("ggplot2") +library("dplyr") +library("tidyr") +library("stringr") +library("lubridate") + +getwd() +setwd("C:/Users/muhammad.ihtsham/Documents") +mydata <- read.csv("hospitaldata.csv") + +# 1: Removing dots from column names +names(mydata) <- gsub("\\.", "", names(mydata)) \ No newline at end of file diff --git a/R Assesment 2.R b/R Assesment 2.R new file mode 100644 index 0000000..281b004 --- /dev/null +++ b/R Assesment 2.R @@ -0,0 +1,41 @@ +library("ggplot2") +library("dplyr") +library("tidyr") +library("stringr") + +getwd() +setwd("C:/Users/muhammad.ihtsham/Documents") +mydata <- read.csv("hospitaldata.csv") + +# 1: Removing dots from column names +names(mydata) <- gsub("\\.", "", names(mydata)) + +# 2: Most visits in a day +mydata <- separate(mydata, Date, c("Day", "Month", "Year"), sep = ",") +table(mydata$Day) +# Table command shows that Monday has the highest number of patient visits + +# 3: Average age of aptients +class(Age) +mydata$Age <- as.numeric(mydata$Age, na.rm = TRUE) +mean(mydata$Age, na.rm = TRUE) + +# 4: How many children were entertained (Age: 1-12) +child <- which(mydata$Age > 1 & mydata$Age < 12) +length(child) +# 23 Children between age range 1-12 + +# 5: Visit in abundance by gender wise + + +library("dplyr") +library("tidyr") +library("stringr") +# 6: Which doctor is earning highest +mydata$ConsultingDoctor <- as.character(mydata$ConsultingDoctor) +mydata$TotalCharges <- as.numeric(mydata$TotalCharges) + +highest_earner <- mydata %>% + group_by(ConsultingDoctor) %>% + summarise(sum(TotalCharges), na.rm = T) %>% + select(ConsultingDoctor, TotalCharges) diff --git a/hdata.csv b/hdata.csv new file mode 100644 index 0000000..7212746 --- /dev/null +++ b/hdata.csv @@ -0,0 +1,223 @@ +Date,id,Time,Age,Sex,ConsultingDoctor,Specialty,Procedure,TotalCharges,AmountReceived,AmountBalance,AmountReceivedBy,AmountinHospital,ReceptionistName,NextApt +"Sunday, January 01, 2017",101,11:00,40,F,Dr Kinza Alam,Gynae,C Section,30000,30000, - , Mrs Shamsa ,,Hamza, +"Monday, January 02, 2017",150,10:45AM,26,M,Nursing Staff,,Dressing,1500,1500, - , Dr Saniya ,,Haris, +"Monday, January 02, 2017",58,12:38PM,30,F,Dr Riffat Naheed,Psychotherapist,Consultation,1000,1000, - , Mrs Shamsa ,300,Fiza, +"Monday, January 02, 2017",75,1:00PM,40,M,Dr Riffat Naheed,Psychotherapist,Consultation,1500,1500, - , Mrs Shamsa ,450,Zaheer, +"Monday, January 02, 2017",97,2:45PM,27,M,Dr Riffat Naheed,Psychotherapist,Consultation,2000,2000, - , Mrs Shamsa ,600,Haris, +"Monday, January 02, 2017",101,3:00PM,40,F,Dr Kinza Alam,Gynae,C Section,35000,35000, - , Dr Saniya ,,Haris, +"Monday, January 02, 2017",26,3:28PM,43,M,Dr Saniya,M/o,Consultation,2000,2000, - , Dr Saniya ,,Fiza, +"Monday, January 02, 2017",149,3:45PM,28,F,Dr Fakiha,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Haris, +"Monday, January 02, 2017",20,3:45PM,2,F,Dr Fakiha,Dentist,Consultation,Cancelled,,,,,, +"Monday, January 02, 2017",72,5:00PM,40,M,Dr Fakiha,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Fiza, +"Monday, January 02, 2017",54,5:00PM,32,F,Dr Saniya,M/o,Consultation,2000,2000, - , Dr Saniya ,,Fiza, +"Monday, January 02, 2017",149,5:30PM,28,F,Dr Fakiha,Dentist,Filling,2000,2000, - , Mrs Shamsa ,2000,Fiza,In case of pain +"Tuesday, January 03, 2017",120,1:00PM,76,F,Dr Saniya,M/o,Laboratory Test,,, - ,,,Haris, +"Tuesday, January 03, 2017",120,3:25PM,75,F,Dr Saniya,M/o,,Cancelled,,,,,, +"Tuesday, January 03, 2017",20,6:10PM,36,F,Dr Kinza Alam,Gynae,Consultation,1500,1500, - , Mrs Shamsa ,450,Haris, +"Wednesday, January 04, 2017",40,11:45PM,42,F,Dr Alaf Khan,Dentist,Consultation+Denture,1500,1500, - , Brig Farrukh ,,Fiza, +"Wednesday, January 04, 2017",134,12:40PM,23,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Brig Farrukh ,500,Fiza, +"Wednesday, January 04, 2017",86,8:10PM,48,F,Dr Kinza Alam,Gynae,Consultation,1500,1500, - , Brig Farrukh ,450,Haris, +"Wednesday, January 04, 2017",114,8:30PM,25,F,Dr Kinza Alam,Gynae,Consultation,1000,1000, - , Brig Farrukh ,300,Haris, +"Thursday, January 05, 2017",155,12:40PM,50,F,Dr Alaf Khan,Dentist,Extraction,2000,2000, - , Brig Farrukh ,2000,Fiza, +"Thursday, January 05, 2017",45,2:00PM,60,F,Dr Alaf Khan,Dentist,R.P.D + Crown,4000,4000,, Brig Farrukh ,4000,Haris, +"Thursday, January 05, 2017",4,2:00PM,-,M,Dr Irfan,General Surgeon,Consultation + Dressing,5000,5000, - , Brig Farrukh ,4000,Haris, +"Friday, January 06, 2017",38,12:30PM,-,M,Dr Riffat Naheed,Psychotherapist,Consultation,1000,1000, - , Mrs Shamsa ,300,Haris, +"Friday, January 06, 2017",130,1:00PM,26,M,Dr Riffat Naheed,Psychotherapist,Consultation,1000,1000, - , Mrs Shamsa ,300,Haris, +"Friday, January 06, 2017",97,1:30PM,27,M,Dr Riffat Naheed,Psychotherapist,Consultation,1000,1000, - , Mrs Shamsa ,300,Haris, +"Friday, January 06, 2017",50,-,-,M,Dr Alaf Khan,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Haris, +"Friday, January 06, 2017",78,8:15PM,57,F,Dr Ali,Orthopedic,Consultation,6000,6000, - , Mrs Shamsa ,3000,Haris, +"Saturday, January 07, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Monday, January 09, 2017",48,12:36PM,39,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Fiza, +"Monday, January 09, 2017",79,1:30PM,6,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Fiza, +"Monday, January 09, 2017",116,2:30PM,26,M,Dr Alaf Khan,Dentist,X Ray,300,300, - , Mrs Shamsa ,300,Haris, +"Monday, January 09, 2017",45,3:15PM,60,F,Dr Alaf Khan,Dentist,R.P.D + Crown,7000,7000, - , Mrs Shamsa ,7000,Fiza, +"Monday, January 09, 2017",67,5:20PM,26,M,Dr Alaf Khan,Dentist,Consultation+X Ray,800,800, - , Mrs Shamsa ,800,Fiza, +"Monday, January 09, 2017",36,5:30PM,5,F,Dr Alaf Khan,Dentist,Consultation,250,250, - , Mrs Shamsa ,250,Fiza, +"Tuesday, January 10, 2017",17,3:50PM,40,M,Dr Alaf Khan,Dentist,RCT (4 teeth) Bridge (9 teeth),10000,10000, - , Mrs Shamsa ,,Fiza,1/16/2017 +"Tuesday, January 10, 2017",84,6:00PM,9,F,Dr Irfan,General Surgeon,Consultation + X Ray,3000,3000, - , Mrs Shamsa ,3000,Mona, +"Tuesday, January 10, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Wednesday, January 11, 2017",57,,30,F,Dr Alaf Khan,Dentist,Laboratory Test,,, - , Mrs Shamsa ,,, +"Wednesday, January 11, 2017",119,3:00PM,40,F,Dr Ammara,Gynae,Consultation + USG,1500,1500, - , Mrs Shamsa ,500,Fiza, +"Wednesday, January 11, 2017",145,4:30PM,29,M,Dr Alaf Khan,Dentist,Crown,3000,3000, - , Mrs Shamsa ,,Fiza, +"Wednesday, January 11, 2017",92,4:30PM,39,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Fiza, +"Thursday, January 12, 2017",63,10:45AM,50,M,Dr Alaf Khan,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Fiza, +"Thursday, January 12, 2017",63,02:00PM,50,M,Dr Alaf Khan,Dentist,Scalling,3000,3000, - , Mrs Shamsa ,3000,Fiza, +"Thursday, January 12, 2017",63,02:00PM,50,M,Brig Asif,Medical Specialist,Consultation,500,500, - , Mrs Shamsa ,150,Fiza, +"Friday, January 13, 2017",45,11:20AM,60,F,Dr Alaf Khan,Dentist,Polishing,500,500, - , Mrs Shamsa ,500,Haris, +"Friday, January 13, 2017",145,3:00PM,29,M,Dr Fakiha,Dentist,Crown,1500,1500, - , Mrs Shamsa ,1500,Fiza, +"Friday, January 13, 2017",70,8:00PM,48,M,Brig Farrukh,Anaesthetist,Consultation,3750,3750, - , Dr Ammad ,3750,Mona, +"Saturday, January 14, 2017",88,4:30PM,45,F,Dr Fakiha,Dentist,Filling + X Rays,2600,2600, - , Dr Ammad ,2600,Haris, +"Saturday, January 14, 2017",40,6:30PM,42,F,Dr Fakiha,Dentist,Denture+Scalling+Filling,5500,5500, - , Dr Ammad ,5500,Haris, +"Sunday, January 15, 2017",42,9:00PM,29,F,Nursing Staff,,Pharmacy,900,900, - , Dilshad ,900,Zaheer, +"Monday, January 16, 2017",7,,26,M,Nursing Staff,,Laboratory Test,,, - ,,,, +"Monday, January 16, 2017",106,1:30PM,34,M,Dr Alaf Khan,Dentist,Crown,5000,5000, - , Dr Ammad ,5000,Fiza, +"Monday, January 16, 2017",22,6:00PM,50,F,Dr Zubair,M/o,Consultation,1000,1000, - , Dr Ammad ,400,Haris, +"Monday, January 16, 2017",88,6:20PM,45,F,Dr Fakiha,Dentist,Extraction,2500,2500, - , Dr Ammad ,2500,Haris,1/23/2017 +"Tuesday, January 17, 2017",52,11:25AM,30,M,Dr Alaf Khan,Dentist,RCT,3000,3000, - , Mrs Shamsa ,3000,Fiza,1/20/2017 +"Tuesday, January 17, 2017",17,11:15AM,40,M,Dr Alaf Khan,Dentist,RCT (4 teeth) Bridge (9 teeth),38000,38000, - , Mrs Shamsa ,38000,Fiza, +"Tuesday, January 17, 2017",17,1:10PM,40,M,Brig Asif,Medical Specialist,Consultation,1000,1000, - , Mrs Shamsa ,300,Haris, +"Tuesday, January 17, 2017",136,3:30PM,29,M,Dr Fakiha,Dentist,Scalling,4000,4000, - , Mrs Shamsa ,4000,Fiza, +"Tuesday, January 17, 2017",27,6:15PM,27,M,Dr Fakiha,Dentist,Filling,2000,2000, - , Mrs Shamsa ,2000,Sohaib,1/19/2017 +"Wednesday, January 18, 2017",71,9:40PM,23,M,Dr Alaf Khan,Dentist,X Ray,300,300, - ,,300,Haris, +"Wednesday, January 18, 2017",12,12:00PM,60,F,Dr Alaf Khan,Dentist,22 Unit Bridge,25500,25500, - ,,25500,Haris, +"Wednesday, January 18, 2017",127,2:00PM,52,F,Dr Alaf Khan,Dentist,Extraction,1000,1000, - ,,1000,Haris, +"Wednesday, January 18, 2017",82,5:00PM,21,M,Dr Zubair,M/o,Consultation,500,500, - ,,500,Haris, +"Thursday, January 19, 2017",103,,32,M,Nursing Staff,,Laboratory Test,,, - ,,,, +"Thursday, January 19, 2017",31,11:00AM,58,f,Dr Alaf Khan,Dentist,Consultation,500,500, - , Mrs Shamsa ,500,Haris, +"Thursday, January 19, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Thursday, January 19, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Friday, January 20, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Saturday, January 21, 2017",131,10:15AM,26,F,Dr Alaf Khan,Dentist,X Ray,300,300, - , Mrs Shamsa ,300,Haris, +"Saturday, January 21, 2017",101,1:20PM,40,F,Dr Kinza Alam,Gynae,Consultation,1200,1200, - , Mrs Shamsa ,360,Haris, +"Saturday, January 21, 2017",145,1:30PM,29,M,Dr Fakiha,Dentist,Crown,500,500, - , Mrs Shamsa ,500,Haris, +"Monday, January 23, 2017",144,12:15PM,33,M,Dr Riffat Naheed,Psychotherapist,Consultation,1000,1000, - , Mrs Shamsa ,300,Haris, +"Monday, January 23, 2017",37,1:00PM,30,F,Dr Riffat Naheed,Psychotherapist,Consultation,1000,1000, - , Mrs Shamsa ,300,Haris, +"Monday, January 23, 2017",135,1:15PM,28,F,Dr Riffat Naheed,Psychotherapist,Consultation,2000,2000, - , Mrs Shamsa ,600,Haris, +"Monday, January 23, 2017",59,4:50PM,10,M,Dr Ali,Child Specialist,Consultation+ER Retain,2800,2800, - , Mrs Shamsa ,1600,Haris, +"Tuesday, January 24, 2017",130,1:00PM,26,M,Dr Riffat Naheed,Psychotherapist,Consultation,800,800, - , Mrs Shamsa ,240,Haris, +"Tuesday, January 24, 2017",104,1:15PM,19,M,Dr Riffat Naheed,Psychotherapist,Consultation,2000,2000, - , Mrs Shamsa ,600,Haris, +"Tuesday, January 24, 2017",98,2:10PM,53,F,Dr Saad,Orthopedic,Consultation,1000,1000, - , Mrs Shamsa ,600,Haris, +"Tuesday, January 24, 2017",102,1:30PM,30,M,Dr Riffat Naheed,Psychotherapist,Consultation,1000,1000, - , Mrs Shamsa ,300,Haris, +"Wednesday, January 25, 2017",59,,10,M,Nursing Staff,,Laboratory Test,,, - ,,,, +"Wednesday, January 25, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Thursday, January 26, 2017",73,12:50PM,55,M,Dr Alaf Khan,Dentist,Consultation+X Ray,700,700, - ,,700,Haris, +"Thursday, January 26, 2017",116,3:30PM,26,M,Dr Alaf Khan,Dentist,X Ray,300,300, - ,,300,Haris, +"Thursday, January 26, 2017",125,5:40PM,30,F,Dr Alaf Khan,Dentist,Consultation,500,500, - ,,500,Haris, +"Thursday, January 26, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Thursday, January 26, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Thursday, January 26, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Saturday, January 28, 2017",129,,28M,M,Dr Ali,Child Specialist,Consultation,1150,1150, - , Mrs Shamsa ,,Sohaib, +"Saturday, January 28, 2017",85,6:45PM,,F,Dr Irfan,General Surgeon,,3000,3000, - , Mrs Shamsa ,,Sohaib, +"Saturday, January 28, 2017",147,9:45PM,9,M,Nursing Staff,,Consultation,1000,1000, - , Mrs Shamsa ,,Sub KB, +"Sunday, January 29, 2017",1,,,,Nursing Staff,,Pharmacy,,, - ,,,, +"Monday, January 30, 2017",140,1:00PM,28,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Monday, January 30, 2017",39,1:30PM,47,M,Dr Alaf Khan,Dentist,X Ray,300,300, - , Dr Ammad ,300,Haris, +"Monday, January 30, 2017",124,5:40PM,49,F,Brig Asif,Medical Specialist,Consultation+ECG,1300,1300, - , Dr Ammad ,600,Sohaib, +"Monday, January 30, 2017",8,5:35PM,19,M,Dr Qurat ul Ain,Dentist,Consultation+X Ray,800,800, - , Dr Ammad ,800,Sohaib, +"Monday, January 30, 2017",51,6:00PM,31,M,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Sohaib, +"Tuesday, January 31, 2017",152,5:30PM,7,F,Dr Fakiha,Dentist,Filling,1000,1000, - , Mrs Shamsa ,1000,Haris, +"Tuesday, January 31, 2017",21,6:30PM,26,M,Dr Zubair,M/o,Consultation,200,200, - , Mrs Shamsa ,200,Mona, +"Tuesday, January 31, 2017",115,6:50PM,8,F,Dr Qurat ul Ain,Dentist,Extraction,1500,1500, - , Mrs Shamsa ,1500,Haris, +"Wednesday, February 01, 2017",109,2:10PM,28,F,Dr Alaf Khan,Dentist,R.C.T,2000,2000, - , Dr Ammad ,2000,Haris,2/6/2017 +"Wednesday, February 01, 2017",153,2:10PM,17,F,Dr Alaf Khan,Dentist,Orthodontics,10000,10000,, Dr Ammad ,10000,Haris,2/6/2017 +"Wednesday, February 01, 2017",62,1:00PM,54,M,Dr Alaf Khan,Dentist,Scalling,2000,2000, - , Dr Ammad ,2000,Haris, +"Wednesday, February 01, 2017",111,1:40PM,35,F,Col Ulfat Ellahi,ENT,Consultation,1000,1000, - , Dr Ammad ,300,Haris, +"Wednesday, February 01, 2017",142,6:00PM,45,M,Dr Qurat ul Ain,Dentist,Extraction,2000,2000, - , Dr Ammad ,2000,Haris, +"Thursday, February 02, 2017",117,12:00PM,30,F,Dr Shireen,M/o,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Thursday, February 02, 2017",140,1:00PM,30,F,Dr Alaf Khan,Dentist,Extraction,1000,1000, - , Dr Ammad ,1000,Haris, +"Thursday, February 02, 2017",100,1:25PM,23,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Friday, February 03, 2017",133,4:45PM,27,F,Dr Alaf Khan,Dentist,X Ray,500,500, - , Dr Ammad ,500,Haris, +"Friday, February 03, 2017",44,8:00PM,6,M,Dr Ali,Child Specialist,Consultation,1000,1000, - , Dr Ammad ,300,Haris, +"Saturday, February 04, 2017",35,4:00PM,2,F,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Saturday, February 04, 2017",150,4:00PM,30,M,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Monday, February 06, 2017",118,7:30PM,32,F,Dr Kinza Alam,Gynae,Consultation+USG,1500,1500, - , Dr Ammad ,800,Haris, +"Monday, February 06, 2017",114,7:45PM,25,F,Dr Kinza Alam,Gynae,Consultation,1000,1000, - , Dr Ammad ,300,Haris, +"Monday, February 06, 2017",49,1:30PM,80,M,Dr Ali,Child Specialist,Consultation+Retain,3500,3500, - , Dr Ammad ,2000,Haris, +"Monday, February 06, 2017",126,1:30PM,70,F,Dr Alaf Khan,Dentist,Scalling,3000,3000, - , Dr Ammad ,3000,Haris, +"Monday, February 06, 2017",141,4:00PM,20,M,Dr Riffat Naheed,Psychotherapist,Consultation,2000,2000, - , Dr Ammad ,600,Haris, +"Monday, February 06, 2017",17,6:15PM,23,M,Dr Ammad,M/o,Consultation,200,200, - , Dr Ammad ,200,Haris, +"Tuesday, February 07, 2017",12,12:00PM,60,F,Dr Alaf Khan,Dentist,22 Unit Bridge,44000,30000,"14,000.00", Dr Ammad ,30000,Haris,2/14/2017 +"Tuesday, February 07, 2017",60,1:10PM,50,M,Dr Alaf Khan,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Tuesday, February 07, 2017",140,2:15PM,30,F,Dr Alaf Khan,Dentist,4 Unit Bridge,3000,3000, - , Dr Ammad ,3000,Haris, +"Tuesday, February 07, 2017",41,6:00PM,13,M,Dr Qurat ul Ain,Dentist,X Ray,500,500, - , Dr Ammad ,500,Haris, +"Tuesday, February 07, 2017",87,8:00PM,30,F,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Wednesday, February 08, 2017",132,10:13AM,13,M,Dr Alaf Khan,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris,2/17/2017 +"Wednesday, February 08, 2017",132,12:00PM,13,M,Dr Alaf Khan,Dentist,R.C.T,3500,3500, - , Dr Ammad ,3500,Haris, +"Wednesday, February 08, 2017",13,12:00PM,39,F,Dr Saad,Orthopedic,Consultation,1000,1000, - , Dr Ammad ,300,Haris, +"Wednesday, February 08, 2017",109,2:40PM,28,F,Dr Alaf Khan,Dentist,R.C.T,2000,2000, - , Dr Ammad ,2000,Haris, +"Wednesday, February 08, 2017",109,2:40PM,28,F,Dr Alaf Khan,Dentist,Crown,3000,,"3,000.00", Dr Ammad ,,Haris,2/16/2017 +"Wednesday, February 08, 2017",153,2:40PM,17,F,Dr Alaf Khan,Dentist,Orthodontics,110000,20000,"90,000.00", Dr Ammad ,20000,Haris,2/16/2017 +"Wednesday, February 08, 2017",43,10:00AM,27,M,Dr Alaf Khan,Dentist,Consultation+X Ray,800,800, - , Dr Ammad ,800,Haris,2/9/2017 +"Friday, February 10, 2017",5,9:30AM,57,M,Dr Alaf Khan,Dentist,X Ray,300,300, - , Dr Ammad ,300,Haris, +"Friday, February 10, 2017",14,6:30PM,6,M,Nursing Staff,,X Ray,300,300, - , Dr Ammad ,300,Haris, +"Friday, February 10, 2017",123,7:00PM,18,M,Dr Qurat ul Ain,Dentist,Filling,1500,1500, - , Dr Ammad ,1500,Haris, +"Saturday, February 11, 2017",137,12:00PM,25,M,Dr Ali,Child Specialist,Consultation,1000,1000, - , Mrs Shamsa ,300,Mona, +"Saturday, February 11, 2017",91,4:20PM,50,F,Dr Qurat ul Ain,Dentist,Scalling,2500,2500, - , Mrs Shamsa ,2500,Mona, +"Saturday, February 11, 2017",23,5:57PM,,F,Dr Qurat ul Ain,Dentist,Consultation,1000,1000, - , Mrs Shamsa ,1000,Mona, +"Saturday, February 11, 2017",154,6:15PM,19,F,Dr Qurat ul Ain,Dentist,Scalling,2000,2000, - , Mrs Shamsa ,2000,Mona, +"Sunday, February 12, 2017",112,7:15PM,39,M,Dr Saad,Orthopedic,Operation,35000,35000, - , Mrs Shamsa ,35000,Haris, +"Sunday, February 12, 2017",81,12:00PM,6,F,Dr Alaf Khan,Dentist,Consultation+X Ray,700,700, - , Mrs Shamsa ,700,Mona, +"Monday, February 13, 2017",15,11:20AM,40,M,Dr Waqar Azeem,Radiologist,USG Abdomen,1000,1000, - , Dr Ammad ,300,Haris, +"Monday, February 13, 2017",112,3:40PM,39,M,Dr Saad,Orthopedic,Operation,15000,15000, - , Dr Ammad ,15000,Haris, +"Monday, February 13, 2017",9,7:00PM,20,F,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Haris, +"Monday, February 13, 2017",2,,-,-,Dr Ali,Child Specialist,Consultation,1500,1500, - , Dr Ammad ,500,Haris, +"Tuesday, February 14, 2017",113,2:30PM,14,M,Dr Saad Riaz,Orthopedic,Pop,3700,3700, - , Dr Ammad ,1700,Haris, +"Tuesday, February 14, 2017",4,3:00PM,-,M,Nursing Staff,,Er Retain,300,300, - , Dr Ammad ,300,Haris, +"Tuesday, February 14, 2017",19,7:02PM,6M,F,Dr Waqar Azeem,Radiologist,USG,2000,2000, - , Dr Ammad ,1300,Haris, +"Wednesday, February 15, 2017",118,11:40AM,24,F,Dr Alaf Khan,Dentist,X Ray,400,400, - , Mrs Shamsa ,400,Mona, +"Wednesday, February 15, 2017",94,4:45PM,3,M,Dr Ali,Child Specialist,Consultation + Nebulize,1150,1150, - ," 150 Mrs Shamsa, 300 Dr Ammad ",450,Haris, +"Wednesday, February 15, 2017",64,6:15PM,23,M,Dr Ammad,M/o,Consultation,200,200, - , Dr Ammad ,200,Haris, +"Friday, February 17, 2017",29,4:10PM,29,M,Dr Alaf Khan,Dentist,X Ray,200,200, - , Dr Ammad ,200,Haris, +"Friday, February 17, 2017",66,5:30PM,55,M,Dr Alaf Khan,Dentist,Extraction,1000,1000, - , Dr Ammad ,1000,Haris, +"Friday, February 17, 2017",107,6:30PM,30,F,Nursing Staff,,X Ray,1000,1000, - , Dr Ammad ,1000,Haris, +"Saturday, February 18, 2017",108,6:20PM,,M,Dr Ali,Child Specialist,Consultation,3000,3000, - , Dr Ammad ,1600,Saima, +"Saturday, February 18, 2017",30,6:10PM,30,F,Dr Qurat ul Ain,Dentist,Extraction,1500,1500, - , Dr Ammad ,1500,Mona, +"Saturday, February 18, 2017",94,11:30AM,3,M,Nursing Staff,,Injection,300,300, - , Dr Ammad ,300,Saima, +"Sunday, February 19, 2017",55,2:45PM,,M,Dr Qurat ul Ain,Dentist,X Ray,300,300, - , Dr Ammad ,300,Saima, +"Monday, February 20, 2017",132,,13,M,Dr Alaf Khan,Dentist,Crown,5000,5000, - , Dr Ammad ,5000,,2/24/2017 +"Monday, February 20, 2017",68,1:25PM,10,M,Dr Shireen,M/o,Stiches,700,700, - , Dr Ammad ,700,Saima, +"Monday, February 20, 2017",80,2:00PM,30,F,Dr Shireen,M/o,Consultation,1200,1200, - , Dr Ammad ,1200,Saima, +"Monday, February 20, 2017",99,7:00PM,45,F,Dr Saima Shams,Radiologist,USG,1500,1500, - , Dr Ammad ,900,Mona, +"Monday, February 20, 2017",94,10:15PM,3,M,Nursing Staff,,Injection,300,300, - , Dr Ammad ,300,Ashfaq, +"Tuesday, February 21, 2017",151,1:00PM,38,M,Dr Alaf Khan,Dentist,R.C.T+Scalling+Crown,5000,5000, - , Dr Ammad ,5000,Saima,2/28/2017 +"Tuesday, February 21, 2017",53,6:00PM,20,F,Dr Waqar Azeem,Radiologist,USG,1000,1000, - , Dr Ammad ,400,Mona, +"Tuesday, February 21, 2017",11,7:11PM,2,F,Dr Ali,Child Specialist,Consultation,1000,1000, - , Dr Ammad ,300,Saima, +"Tuesday, February 21, 2017",94,10:10PM,3,M,Nursing Staff,,Injection,300,300, - , Dr Ammad ,300,Sub KB, +"Tuesday, February 21, 2017",64,-,,,Nursing Staff,,Medicine,100,100, - ,,100,Saima, +"Wednesday, February 22, 2017",100,3:00PM,23,F,Dr Alaf Khan,Dentist,Orthodontics,120000,30000,"90,000.00", Dr Ammad ,30000,Mona, +"Wednesday, February 22, 2017",16,4:30PM,26,M,Dr Mumtaz,General Surgeon,Consultation,1000,1000, - , Dr Ammad ,500,Mona, +"Wednesday, February 22, 2017",6,5:00PM,35,M,Dr Waqar Azeem,Radiologist,USG,1000,1000, - , Dr Ammad ,400,Mona, +"Thursday, February 23, 2017",33,1:55PM,22,M,Dr Alaf Khan,Dentist,R.C.T,3000,3000, - , Dr Ammad ,3000,Saima, +"Thursday, February 23, 2017",89,1:50PM,65,F,Dr Saad Riaz,Orthopedic,Consultation,1000,1000, - , Dr Ammad ,500,Saima, +"Thursday, February 23, 2017",13,2:00PM,45,F,Dr Saad Riaz,Orthopedic,Consultation,1000,1000, - , Dr Ammad ,300,Saima, +"Thursday, February 23, 2017",47,3:00PM,21,F,Dr Riffat Naheed,Psychotherapist,Consultation,1500,1500, - , Dr Ammad ,700,Saima, +"Friday, February 24, 2017",80,9:30PM,30,F,Dr Mehwish,Gynae,Consultation,1000,1000, - , Dr Ammad ,500,Saima, +"Saturday, February 25, 2017",128,3:45PM,64,F,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Saturday, February 25, 2017",93,4:00PM,40,F,Dr Ali,Child Specialist,,3000,3000, - , Dr Ammad ,1600,Saima, +"Monday, February 27, 2017",143,11:30AM,52,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Monday, February 27, 2017",56,12:20PM,55,F,Dr Alaf Khan,Dentist,Extraction,600,600, - , Dr Ammad ,600,Saima, +"Monday, February 27, 2017",96,-,54,M,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Tuesday, February 28, 2017",65,10:30PM,30,M,Nursing Staff,,BSR,50,50, - , Dr Ammad ,50,Haris, +"Tuesday, February 28, 2017",96,12:40PM,53,M,Dr Alaf Khan,Dentist,8 Unit Bridge+2 R.C.T,30000,8000,"22,000.00", Dr Ammad ,8000,Haris, +"Tuesday, February 28, 2017",90,,,F,Dr Alaf Khan,Dental,Consultation,1000,1000, - , Dr Ammad ,1000,Saima, +"Tuesday, February 28, 2017",151,3:00PM,38,F,Dr Alaf Khan,Dentist,R.C.T+Scalling+Crown,4500,4500, - , Dr Ammad ,4500,Haris, +"Tuesday, February 28, 2017",139,8:00PM,30,M,Nursing Staff,,X Ray,500,500, - , Dr Ammad ,500,Saima, +"Wednesday, March 01, 2017",107,5:00PM,17,F,Dr Qurat ul Ain,Dentist,Extraction,1500,1500, - , Dr Ammad ,1500,Saima, +"Wednesday, March 01, 2017",28,6:00PM,3,F,Dr Qurat ul Ain,Dentist,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Wednesday, March 01, 2017",46,-,17,M,Nursing Staff,,Dressing,500,500, - , Dr Ammad ,200,Saima, +"Wednesday, March 01, 2017",25,7:00PM,-,F,Dr Kinza Alam,Gynae,Consultation,1500,1500, - , Dr Ammad ,500,Saima, +"Wednesday, March 01, 2017",24,7:10PM,-,M,Dr Ammad,M/o,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Thursday, March 02, 2017",140,12:48PM,30,F,Dr Alaf Khan,Dentist,4 Unit Bridge,8000,8000, - , Dr Ammad ,8000,Saima, +"Thursday, March 02, 2017",46,3:00PM,17,M,Nursing Staff,,Injection,50,50, - , Dr Ammad ,50,Saima, +"Thursday, March 02, 2017",114,7:05PM,26,F,Dr Kinza Alam,Gynae,Consultation,1000,1000, - , Dr Ammad ,300,Saima, +"Thursday, March 02, 2017",3,-,-,-,Nursing Staff,,Dressing,100,100, - , Dr Ammad ,100,Saima, +"Friday, March 03, 2017",138,11:20AM,45,F,Dr Alaf Khan,Dentist,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Friday, March 03, 2017",107,12:30PM,17,F,Dr Alaf Khan,Dentist,R.C.T+Crown,8000,8000, - , Dr Ammad ,8000,Saima,3/9/2017 +"Friday, March 03, 2017",34,1:30PM,22,M,Dr Alaf Khan,Dentist,Crown,2000,2000, - , Dr Ammad ,2000,Saima,3/8/2017 +"Friday, March 03, 2017",133,4:10PM,30,F,Dr Ali,Child Specialist,Consultation,1000,1000, - , Dr Ammad ,300,Saima, +"Friday, March 03, 2017",46,5:45PM,17,M,Nursing Staff,,Dressing,300,300, - , Dr Ammad ,300,Saima, +"Friday, March 03, 2017",74,2:40PM,38,M,Dr Waqar Azeem,Radiologist,USG KUB,1000,1000, - , Dr Ammad ,300,Sub KB, +"Sunday, March 05, 2017",46,-,17,M,Nursing Staff,,Dressing,300,300, - , Dr Ammad ,200,Saima, +"Monday, March 06, 2017",83,1:20PM,34,M,Dr Alaf Khan,Dentist,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Monday, March 06, 2017",61,5:30PM,28,F,Dr Qurat ul Ain,Dentist,Consultation+X Ray,950,950, - , Dr Ammad ,950,Haris, +"Monday, March 06, 2017",122,7:00PM,78,M,Nursing Staff,,Injection,100,100, - , Dr Ammad ,100,Saima, +"Tuesday, March 07, 2017",95,-,56,M,Dr Alaf Khan,Dentist,X Ray,300,300, - , Dr Ammad ,300,Saima, +"Tuesday, March 07, 2017",69,3:00PM,53,M,Dr Alaf Khan,Dentist,,15000,15000, - , Dr Ammad ,15000,Mona, +"Tuesday, March 07, 2017",146,-,21,M,Dr Ammad,M/o,Consultation,500,500, - , Dr Ammad ,500,Saima, +"Tuesday, March 07, 2017",46,7:40PM,17,M,Nursing Staff,,Dressing,200,200, - , Dr Ammad ,200,Saima, +"Tuesday, March 07, 2017",32,2:00PM,,F,Nursing Staff,,Coupety,300,300, - , Dr Ammad ,300,Saima, +"Tuesday, March 07, 2017",122,9:35PM,78,M,Nursing Staff,,Injection,100,100, - , Dr Ammad ,100,Sub KB, +"Wednesday, March 08, 2017",148,8:30PM,3,F,Nursing Staff,,Injection,100,100, - , Dr Ammad ,100,Ashfaq, +"Wednesday, March 08, 2017",122,10:00PM,76,M,Nursing Staff,,Injection,100,100, - , Dr Ammad ,100,Ashfaq, +"Wednesday, March 08, 2017",10,4:45PM,9,F,Dr Qurat ul Ain,Dentist,Consultation+x Ray,650,650, - , Dr Ammad ,650,Saima, +"Wednesday, March 08, 2017",76,6:55PM,32,M,Dr Paul,Dermatologist,Consultation,1500,1000,500, Dr Ammad ,300,Mona, +"Wednesday, March 08, 2017",1,12:00PM,,F,Nursing Staff,,Injection,150,150, - , Dr Ammad ,150,Mona, +"Wednesday, March 08, 2017",25,7:30PM,-,F,Dr Kinza Alam,Gynae,Consultation,1500,1500, - , Dr Ammad ,500,Mona, +"Thursday, March 09, 2017",77,12:00PM,24,M,Dr Alaf Khan,Dentist,R.C.T,5000,2000,"3,000.00", Dr Ammad ,2000,Haris,3/16/2017 +"Thursday, March 09, 2017",121,9:00AM,3,F,Nursing Staff,,Injection,100,100, - , Dr Ammad ,100,Mona, +"Thursday, March 09, 2017",122,,76,M,Nursing Staff,,Injection,100,100, - , Dr Ammad ,100,Mona, +"Thursday, March 09, 2017",1,,,,Nursing Staff,,Cancelled,,, - , Dr Ammad ,,Saima, +"Thursday, March 09, 2017",18,3:30PM,39,M,Dr Alaf Khan,Dentist,Scalling+Polishing,4000,4000, - , Dr Ammad ,4000,Saima, +"Thursday, March 09, 2017",110,6:00PM,30,M,Dr Qurat ul Ain,Dentist,Consultation,200,200, - , Dr Ammad ,200,Saima, +"Friday, March 10, 2017",122,10:20AM,76,M,Nursing Staff,,Injection,100,100, - , Dr Ammad ,100,Zaheer, +"Friday, March 10, 2017",105,11:20PM,45,F,Dr Shireen,M/o,Consultation,800,800, - , Dr Ammad ,800,Mona, From 518734dccf7d4d4091ad8953512f075ee9c7ac36 Mon Sep 17 00:00:00 2001 From: MIhtsham Date: Mon, 27 Mar 2017 17:17:09 +0500 Subject: [PATCH 2/5] Delete R Assesment 2.R --- R Assesment 2.R | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 R Assesment 2.R diff --git a/R Assesment 2.R b/R Assesment 2.R deleted file mode 100644 index 281b004..0000000 --- a/R Assesment 2.R +++ /dev/null @@ -1,41 +0,0 @@ -library("ggplot2") -library("dplyr") -library("tidyr") -library("stringr") - -getwd() -setwd("C:/Users/muhammad.ihtsham/Documents") -mydata <- read.csv("hospitaldata.csv") - -# 1: Removing dots from column names -names(mydata) <- gsub("\\.", "", names(mydata)) - -# 2: Most visits in a day -mydata <- separate(mydata, Date, c("Day", "Month", "Year"), sep = ",") -table(mydata$Day) -# Table command shows that Monday has the highest number of patient visits - -# 3: Average age of aptients -class(Age) -mydata$Age <- as.numeric(mydata$Age, na.rm = TRUE) -mean(mydata$Age, na.rm = TRUE) - -# 4: How many children were entertained (Age: 1-12) -child <- which(mydata$Age > 1 & mydata$Age < 12) -length(child) -# 23 Children between age range 1-12 - -# 5: Visit in abundance by gender wise - - -library("dplyr") -library("tidyr") -library("stringr") -# 6: Which doctor is earning highest -mydata$ConsultingDoctor <- as.character(mydata$ConsultingDoctor) -mydata$TotalCharges <- as.numeric(mydata$TotalCharges) - -highest_earner <- mydata %>% - group_by(ConsultingDoctor) %>% - summarise(sum(TotalCharges), na.rm = T) %>% - select(ConsultingDoctor, TotalCharges) From 8258886b971f0593007987a800a1e95ea81fc718 Mon Sep 17 00:00:00 2001 From: MIhtsham Date: Mon, 27 Mar 2017 17:38:32 +0500 Subject: [PATCH 3/5] Q2 --- Ihtsham_lhr.R | 37 ++++++++++++++++++++++++++++++++++++- R Assesment 2.R | 41 ----------------------------------------- 2 files changed, 36 insertions(+), 42 deletions(-) delete mode 100644 R Assesment 2.R diff --git a/Ihtsham_lhr.R b/Ihtsham_lhr.R index 7783ff0..ac73b47 100644 --- a/Ihtsham_lhr.R +++ b/Ihtsham_lhr.R @@ -8,5 +8,40 @@ getwd() setwd("C:/Users/muhammad.ihtsham/Documents") mydata <- read.csv("hospitaldata.csv") +# Converting to table format +mydata <- tbl_df(mydata) + +# Formatting date & time columns +mydata$Date <- as.Date(strptime(mydata$Date, "%a, %B %d, %Y")) +mydata$Time <- format(strptime(mydata$Time, format='%I:%M %p'), '%I:%M %p') + +# Removing characters from age +mydata$Age <- as.numeric(gsub("[^0-9]",'',mydata$Age)) + +# Changing sex characters to uppercase +mydata$Sex <- toupper(mydata$Sex) + +# Remove Cancelled to NA in total charges +mydata$TotalCharges <- as.numeric(gsub("cancelled", NA, ignore.case = T, mydata$TotalCharges)) + +# Remove Cancelled to NA in procedure +mydata$Procedure <- (gsub("cancelled", NA, ignore.case = T, mydata$Procedure)) + + +# Coverting AmountBalance to numeric +mydata$AmountBalance <- as.numeric(gsub(",",'',mydata$AmountBalance)) +class(mydata$AmountBalance) + + # 1: Removing dots from column names -names(mydata) <- gsub("\\.", "", names(mydata)) \ No newline at end of file +names(mydata) <- gsub("\\.", "", names(mydata)) + + +# 2: Most visits in a day +print(paste("Most visited day of the week is", + weekdays(mydata$Date[which(table(mydata$Date) == max(table(mydata$Date)))]))) + + + + + diff --git a/R Assesment 2.R b/R Assesment 2.R deleted file mode 100644 index 281b004..0000000 --- a/R Assesment 2.R +++ /dev/null @@ -1,41 +0,0 @@ -library("ggplot2") -library("dplyr") -library("tidyr") -library("stringr") - -getwd() -setwd("C:/Users/muhammad.ihtsham/Documents") -mydata <- read.csv("hospitaldata.csv") - -# 1: Removing dots from column names -names(mydata) <- gsub("\\.", "", names(mydata)) - -# 2: Most visits in a day -mydata <- separate(mydata, Date, c("Day", "Month", "Year"), sep = ",") -table(mydata$Day) -# Table command shows that Monday has the highest number of patient visits - -# 3: Average age of aptients -class(Age) -mydata$Age <- as.numeric(mydata$Age, na.rm = TRUE) -mean(mydata$Age, na.rm = TRUE) - -# 4: How many children were entertained (Age: 1-12) -child <- which(mydata$Age > 1 & mydata$Age < 12) -length(child) -# 23 Children between age range 1-12 - -# 5: Visit in abundance by gender wise - - -library("dplyr") -library("tidyr") -library("stringr") -# 6: Which doctor is earning highest -mydata$ConsultingDoctor <- as.character(mydata$ConsultingDoctor) -mydata$TotalCharges <- as.numeric(mydata$TotalCharges) - -highest_earner <- mydata %>% - group_by(ConsultingDoctor) %>% - summarise(sum(TotalCharges), na.rm = T) %>% - select(ConsultingDoctor, TotalCharges) From 4df4f9cc45fd4606e1facf3a77bd9cf397a0e38a Mon Sep 17 00:00:00 2001 From: MIhtsham Date: Mon, 27 Mar 2017 17:46:13 +0500 Subject: [PATCH 4/5] Q3 --- Ihtsham_lhr.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Ihtsham_lhr.R b/Ihtsham_lhr.R index ac73b47..e9e6ec9 100644 --- a/Ihtsham_lhr.R +++ b/Ihtsham_lhr.R @@ -41,6 +41,10 @@ names(mydata) <- gsub("\\.", "", names(mydata)) print(paste("Most visited day of the week is", weekdays(mydata$Date[which(table(mydata$Date) == max(table(mydata$Date)))]))) +# 3: Average age of patients +mean(mydata$Age, na.rm = TRUE) + + From 1226b286209b45291ce6fcd86eaba326e35a7719 Mon Sep 17 00:00:00 2001 From: MIhtsham Date: Mon, 27 Mar 2017 18:05:07 +0500 Subject: [PATCH 5/5] Assignmeny2 --- Ihtsham_lhr.R | 96 +++++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 94 insertions(+), 2 deletions(-) diff --git a/Ihtsham_lhr.R b/Ihtsham_lhr.R index e9e6ec9..a2dd247 100644 --- a/Ihtsham_lhr.R +++ b/Ihtsham_lhr.R @@ -22,10 +22,10 @@ mydata$Age <- as.numeric(gsub("[^0-9]",'',mydata$Age)) mydata$Sex <- toupper(mydata$Sex) # Remove Cancelled to NA in total charges -mydata$TotalCharges <- as.numeric(gsub("cancelled", NA, ignore.case = T, mydata$TotalCharges)) +mydata$TotalCharges <- as.numeric(gsub("cancelled", NA, ignore.case = TRUE, mydata$TotalCharges)) # Remove Cancelled to NA in procedure -mydata$Procedure <- (gsub("cancelled", NA, ignore.case = T, mydata$Procedure)) +mydata$Procedure <- (gsub("cancelled", NA, ignore.case = TRUE, mydata$Procedure)) # Coverting AmountBalance to numeric @@ -44,6 +44,98 @@ print(paste("Most visited day of the week is", # 3: Average age of patients mean(mydata$Age, na.rm = TRUE) +# 4: How many children were entertained (Age: 1-12) +child <- which(mydata$Age >= 1 & mydata$Age <= 12) +length(child) + +# 5: Visit in abundance by gender wise +mydata %>% + group_by(Sex, Procedure) %>% + tally(sort = TRUE) %>% + filter(!is.na(Sex)) %>% + View() + +# 6: Which doctor is earning highest +highest_earner <- mydata %>% + group_by(ConsultingDoctor) %>% + summarise(total=sum(TotalCharges), na.rm = TRUE) %>% + arrange(TotalCharges) + +View(highest_earner) + +# 7: Which procedure type earns highest + +highest_procedure <- mydata %>% + group_by(Procedure) %>% + summarise_each(funs(sum(TotalCharges, na.rm = TRUE))) %>% + select(Procedure, TotalCharges) %>% + filter(!is.na(Procedure)) %>% + arrange(desc(TotalCharges)) + +View(highest_procedure) + +# 8: Time with highest frequency +highest_freq_time <- mydata %>% + filter(!is.na(Date), !is.na(Time)) %>% + group_by(Date,Time) %>% + tally() %>% + arrange(desc(n)) +View(highest_freq_time) + +# 10: Repeated visitors +visitor <- mydata %>% + group_by(id) %>% + tally() %>% + filter(n > 1) %>% + arrange(desc(n)) + +View(visitor) + +# 11: ID of repeated visitors +print(visitor$id) + +# 12: Patients visited again for same problem +patients_repeated <- mydata %>% + group_by(id, Procedure) %>% + tally() %>% + filter(!is.na(Procedure), n > 1) %>% + arrange(desc(n)) + +View(patients_repeated) + +# 13: Median age +mydata %>% + group_by(Sex) %>% + summarise(median(Age, na.rm = TRUE)) + +# 14: Total amount +paste("Total amount is",sum(mydata$AmountBalance, na.rm = TRUE)) + +# 15: Money made by consultation +mydata %>% + group_by(Procedure) %>% + summarise(Total_Amount = sum(TotalCharges, na.rm = TRUE)) %>% + filter(Procedure %in% c("Consultation")) + +# 16: Relation b/w age & total charges +cor.test(mydata$Age, mydata$TotalCharges) + +# 17: Highest age group visits +highest_age_visit <- mydata %>% + group_by(Age) %>% + tally() %>% + filter(!is.na(Age)) %>% + arrange(desc(n)) +View(highest_age_visit) + +# 18: Total cost by x-ray and scalling +Total_cost <- mydata %>% + filter(Procedure %in% c("X Ray", "Scalling")) %>% + summarise(Total = sum(TotalCharges, na.rm = TRUE)) +View(Total_cost) + + +