From d7bcc504b90817bca10b742aa53044497ca843c1 Mon Sep 17 00:00:00 2001 From: farooqrehman Date: Mon, 27 Mar 2017 15:48:21 +0500 Subject: [PATCH 1/6] R Assignment2 upload - v1 --- RAssignment_2.R | 149 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 149 insertions(+) create mode 100644 RAssignment_2.R diff --git a/RAssignment_2.R b/RAssignment_2.R new file mode 100644 index 0000000..661c798 --- /dev/null +++ b/RAssignment_2.R @@ -0,0 +1,149 @@ +library(tidyr) +library(lubridate) +library(dplyr) +library(plyr) + +#hospitaldata <- read.csv("D://DIH//Assignments//FarooqUrRehman_KCI_R_Assignment2//hospitaldata.csv") + +## Answer 1 +names(hospitaldata) <- gsub("\\.", "", names(hospitaldata)) + +## Answer 2 +day_count <- count(wday(mdy(hospitaldata$Date),label=TRUE)) +day_max <- max(day_count$freq) +select(filter(day_count, day_count$freq == day_max), x) + +## Answer 3 +hospitaldata <- hospitaldata%>% + mutate(Age=ifelse(Age=='-', NA, Age))%>% + mutate(Age=ifelse(grepl("M",Age),parse_number(Age)/12,Age)) + +print(mean(as.numeric(hospitaldata$Age),na.rm = TRUE)) + +##Answer 4 +hospitaldata <- hospitaldata %>% + mutate(Age = as.numeric(Age)) + +children_data <- hospitaldata %>% + filter(Age >= 1, Age <=12) %>% + select()%>% + count() %>% + sum() %>% + print + +# Answer 5 +gen_proc<-hospitaldata %>% + mutate(Sex = ifelse(Sex == 'M' | Sex =='m', 'M',ifelse(Sex == 'f' | Sex =='F','F',NA))) %>% + filter(!is.na(Sex), !is.na(Procedure)) %>% + select(Sex, Procedure) %>% + count() +gen_proc_1 <- max(gen_proc$freq) +select(filter(gen_proc,gen_proc$freq == gen_proc_1),Sex,Procedure,freq) + +# Answer 6 +doctors_earnings <- hospitaldata %>% + filter(!is.na(AmountReceived),grepl("^Dr",ConsultingDoctor)) %>% + group_by(ConsultingDoctor) %>% + summarise(sum(AmountReceived)) + +max_earning <- max(doctors_earnings$`sum(AmountReceived)`) +print (filter(doctors_earnings, doctors_earnings$`sum(AmountReceived)` == max_earning)) + +# Answer 7 +proc_earnings <- hospitaldata %>% + filter(!is.na(AmountReceived),!is.na(Procedure)) %>% + group_by(Procedure) %>% + summarise(sum(AmountReceived)) + +max_proc_earning <- max(proc_earnings$`sum(AmountReceived)`) +print (filter(proc_earnings, proc_earnings$`sum(AmountReceived)` == max_proc_earning)) + +# Answer 8 + +cons_time <- hospitaldata %>% + filter(!is.na(Time),!grepl("-",Time)) %>% + mutate(am_pm=ifelse(grepl("AM",Time),"AM",ifelse(grepl("PM",Time),"PM","AM"))) %>% + group_by(cons_time=paste(as.character(hour(hm(Time))),am_pm, sep=":00 ")) %>% + tally() + +cons_max_count <- max(cons_time$n) +print (filter(cons_time, cons_time$n == cons_max_count)) + +# Answer 9 +Time_Bracket <- hospitaldata %>% + filter(!is.na(Time),!grepl("-",Time)) %>% + mutate(CHour = as.numeric(hour(hm(Time)))) %>% + mutate(CHour = ifelse(grepl("AM",Time) & CHour == 12,0,ifelse(grepl("PM",Time) & CHour<12,12+CHour,CHour))) %>% + mutate(TimeBracket = ifelse(CHour >=6 & CHour<12,"Morning",ifelse(CHour >=12 & CHour<16,"Afternoon",ifelse(CHour >=16 & CHour<19,"Evening","Night"))))%>% + print(Time,TimeBracket) + +# Answer 10 and 11 +Repeated_Visitors <- hospitaldata %>% + filter(grepl("^Dr",ConsultingDoctor)) %>% + group_by(id) %>% + tally()%>% + filter(n>1) %>% + print + +# Answer 12 +Rep_with_same_problem <- hospitaldata %>% + filter(grepl("^Dr",ConsultingDoctor)) %>% + group_by(id, Procedure) %>% + tally()%>% + filter(n>1) %>% + print + +# Answer 13 +median_age <- hospitaldata %>% + filter(!is.na(Sex), !grepl("-",Sex), !is.na(Age)) %>% + group_by(Sex) %>% + summarise_each(funs(median),Age) %>% + print + +# Answer 14 +balance_amount <-hospitaldata %>% + filter(!is.na(AmountBalance), !grepl("-",AmountBalance)) %>% + mutate(AmountBalance=parse_number(AmountBalance)) %>% + summarise(sum(AmountBalance)) %>% + print + +# Answer 15 +Consultation_amount <-hospitaldata %>% + filter(!is.na(AmountReceived), Procedure=='Consultation') %>% + summarise(sum(AmountReceived)) %>% + print + +# Answer 15 +Consultation_amount <-hospitaldata %>% + filter(!is.na(AmountReceived), Procedure=='Consultation') %>% + summarise(sum(AmountReceived)) %>% + print + +# Answer 16 +Age_n_Charges_Relation <- hospitaldata %>% + filter(!is.na(Age), !is.na(TotalCharges), !grepl("Cancelled",TotalCharges)) %>% + mutate(TotalCharges = parse_number(TotalCharges)) %>% + select(TotalCharges, Age) %>% + cor() %>% + print + +# Answer 17 +AgeGroup_Visits <-hospitaldata %>% + filter(!is.na(Age)) %>% + mutate(Age_Group=ifelse(Age<=10,'0 - 10 yrs',ifelse(Age>10 & Age <= 30,'11 - 30 yrs',ifelse(Age>31 & Age <= 50,'31 - 50 yrs','51 yrs and onwards'))))%>% + group_by(Age_Group)%>% + tally() %>% + print + +# Answer 18 +XRay_Scalling_Cost <-hospitaldata %>% + filter(!is.na(AmountReceived), grepl("X Ray",Procedure) | grepl("Scalling",Procedure)) %>% + summarise(sum(AmountReceived))%>% + print + +# 2nd answer +XRay_Scalling_Cost <-hospitaldata %>% + filter(!is.na(AmountReceived), Procedure=="X Ray" | Procedure == "Scalling") %>% + summarise(sum(AmountReceived)) %>% + print + From 4d94186422a94ab5681123cb73b9eedf4f4c3dd3 Mon Sep 17 00:00:00 2001 From: farooqrehman Date: Mon, 27 Mar 2017 15:56:14 +0500 Subject: [PATCH 2/6] v2 --- RAssignment_2.R | 1 + hospitaldata.csv | 223 +++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 224 insertions(+) create mode 100644 hospitaldata.csv diff --git a/RAssignment_2.R b/RAssignment_2.R index 661c798..bbf3d73 100644 --- a/RAssignment_2.R +++ b/RAssignment_2.R @@ -20,6 +20,7 @@ hospitaldata <- hospitaldata%>% print(mean(as.numeric(hospitaldata$Age),na.rm = TRUE)) + ##Answer 4 hospitaldata <- hospitaldata %>% mutate(Age = as.numeric(Age)) diff --git a/hospitaldata.csv b/hospitaldata.csv new file mode 100644 index 0000000..d195a06 --- /dev/null +++ b/hospitaldata.csv @@ -0,0 +1,223 @@ +Date,id,Time,Age,Sex,Consulting..Doctor,Specialty,Procedure,Total..Charges,Amount..Received.,Amount..Balance,Amount.Received.By,Amount.in.Hospital,Receptionist..Name,Next.Apt +"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 69074f28d1c4b3de565170e6b28d1853e5a04995 Mon Sep 17 00:00:00 2001 From: farooqrehman Date: Mon, 27 Mar 2017 16:05:11 +0500 Subject: [PATCH 3/6] commit --- RAssignment_2.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/RAssignment_2.R b/RAssignment_2.R index bbf3d73..ecb4d8a 100644 --- a/RAssignment_2.R +++ b/RAssignment_2.R @@ -21,6 +21,8 @@ hospitaldata <- hospitaldata%>% print(mean(as.numeric(hospitaldata$Age),na.rm = TRUE)) + + ##Answer 4 hospitaldata <- hospitaldata %>% mutate(Age = as.numeric(Age)) From 951b1a5daa22183aedbc0a816a5b472f01bc0d7d Mon Sep 17 00:00:00 2001 From: farooqrehman Date: Mon, 27 Mar 2017 22:06:58 +0500 Subject: [PATCH 4/6] commit --- RAssignment_2.R | 6 ------ 1 file changed, 6 deletions(-) diff --git a/RAssignment_2.R b/RAssignment_2.R index ecb4d8a..1e97129 100644 --- a/RAssignment_2.R +++ b/RAssignment_2.R @@ -116,12 +116,6 @@ Consultation_amount <-hospitaldata %>% summarise(sum(AmountReceived)) %>% print -# Answer 15 -Consultation_amount <-hospitaldata %>% - filter(!is.na(AmountReceived), Procedure=='Consultation') %>% - summarise(sum(AmountReceived)) %>% - print - # Answer 16 Age_n_Charges_Relation <- hospitaldata %>% filter(!is.na(Age), !is.na(TotalCharges), !grepl("Cancelled",TotalCharges)) %>% From 68039a563034b22e73d8ce89ce371f4ab7112fe0 Mon Sep 17 00:00:00 2001 From: farooqrehman Date: Mon, 27 Mar 2017 22:12:24 +0500 Subject: [PATCH 5/6] copied here as synch not working on Python --- PythonAssignment2.py | 97 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 97 insertions(+) create mode 100644 PythonAssignment2.py diff --git a/PythonAssignment2.py b/PythonAssignment2.py new file mode 100644 index 0000000..c0c334d --- /dev/null +++ b/PythonAssignment2.py @@ -0,0 +1,97 @@ +import datetime +import pandas as pd +import numpy as np +import matplotlib.pyplot as plt +from matplotlib import style +style.use('ggplot') + +hospitaldata = pd.read_csv(r'D:\DIH\Assignments\FarooqUrRehman_KCI_Python_Assignment2\hospitaldata.csv') + +#Answer 1 +hospitaldata = hospitaldata.rename(columns=lambda x: x.replace('.', '')) +print(hospitaldata.columns) + +#Answer 2 +hospitaldata['WeekDay'] = pd.to_datetime(hospitaldata['Date']).dt.weekday_name +WeekDay_Counts=hospitaldata[['WeekDay','id']].groupby('WeekDay').agg('count') +WeekDay_Max = WeekDay_Counts['id'].max() +print(WeekDay_Counts[(WeekDay_Counts['id'] == WeekDay_Max)]) + +#Answer 3 + +Average_Age = hospitaldata.dropna(subset =['Age']) +Average_Age = Average_Age[(Average_Age['Age']!='-')] +Average_Age['Age_Years']=Average_Age['Age'].str.extract('(\d+)').astype(int) +Average_Age['Age_Years']=np.where(Average_Age['Age'].str.contains('M') == True, Average_Age['Age_Years']/12.0, Average_Age['Age_Years']) +print(Average_Age['Age_Years'].mean()) + +#Answer 4 +Children_Count = Average_Age[(Average_Age['Age_Years'] >=1) & (Average_Age['Age_Years'] <=12)] +print(Children_Count['Age_Years'].count()) + +#Answer 5 +Gender_Procedure = hospitaldata.dropna(subset =['Sex']) +Gender_Procedure = Gender_Procedure.dropna(subset =['Procedure']) +Gender_Procedure = Gender_Procedure[(Gender_Procedure['Sex']!='-')] +Gender_Procedure['Sex']=Gender_Procedure['Sex'].str.replace("m","M") +Gender_Procedure['Sex']=Gender_Procedure['Sex'].str.replace("f","F") +print(Gender_Procedure.groupby('Sex')['Procedure'].value_counts().nlargest(2)) + +#Answer 6 +Doctor_Earnings = hospitaldata[(hospitaldata['ConsultingDoctor'].str.contains("Dr")==True)] +print(Doctor_Earnings.groupby("ConsultingDoctor")['AmountReceived'].max().nlargest(1)) + +#Answer 7 +Procedure_Earnings=hospitaldata.dropna(subset =['Procedure']) +Procedure_Earnings=hospitaldata.dropna(subset =['AmountReceived']) +print(Procedure_Earnings.groupby("Procedure")['AmountReceived'].sum().nlargest(1)) + +#Answer 8 +VF = hospitaldata.dropna(subset =['Time']) +VF = VF[(VF['Time']!='-')] +#Visit_Frequency['AM_PM']=np.where(Average_Age['Time'].str.contains('PM') == True, "PM","AM") +VF['VisitHour']=pd.to_datetime(VF['Time']) +VF['VisitHour']=VF['VisitHour'].dt.hour +VF1=VF[['VisitHour','id']] +VF1.groupby('VisitHour')['id'].count().nlargest(1) + +#Answer 9 +VF['TimeBracket']= np.where((VF['VisitHour'] >=6) & (VF['VisitHour'] <12), "Morning",np.where((VF['VisitHour'] >=12) & (VF['VisitHour'] <16), "Afternoon",np.where((VF['VisitHour'] >=16) & (VF['VisitHour'] <19), "Evening","Night"))) +VF[['TimeBracket','VisitHour']] + +#Answer 10 & 11 +VF2=VF[['id','Date']].groupby('id').count() +VF2[VF2['Date'] > 1] + +# Answer 12 +Gender_Procedure2=Gender_Procedure[['id','Procedure','Date']].groupby(['id','Procedure']).count() +Gender_Procedure2[Gender_Procedure2['Date']>1] + +# Answer 13 +Average_Age['Sex']=Average_Age['Sex'].str.replace("m","M") +Average_Age['Sex']=Average_Age['Sex'].str.replace("f","F") +Average_Age.groupby("Sex")['Age_Years'].mean() + +# Answer 14 +Gender_Procedure = Gender_Procedure.dropna(subset =['AmountBalance']) +Gender_Procedure = Gender_Procedure[(Gender_Procedure['AmountBalance']!=' - ')] +Gender_Procedure['AmountBalance1'] = Gender_Procedure['AmountBalance'].str.replace(',','') +Gender_Procedure['AmountBalance1'] = Gender_Procedure['AmountBalance1'].str.extract('(\d+)').astype(float) +sum(Gender_Procedure['AmountBalance1']) + +# Answer 15 +Consultation_Earnings=Procedure_Earnings[(Procedure_Earnings['Procedure'] == 'Consultation')] +print(sum(Consultation_Earnings['AmountReceived'])) + +# Answer 16 +Age_Charges_Cor = Average_Age.dropna(subset =['TotalCharges']) +Age_Charges_Cor = Age_Charges_Cor[(Age_Charges_Cor['TotalCharges']!='Cancelled')] +np.correlate(Age_Charges_Cor['Age_Years'],Age_Charges_Cor['TotalCharges'].str.extract('(\d+)').astype(float)) + +# Answer 17 +Average_Age['Age_Group']= np.where((Average_Age['Age_Years'] <=15), "1-15 Yrs",np.where((Average_Age['Age_Years'] >15) & (Average_Age['Age_Years'] <=30), "16-30 Yrs",np.where((Average_Age['Age_Years'] >30) & (Average_Age['Age_Years'] <=45), "31-45 Yrs","Above 45 Yrs"))) +print(Average_Age.groupby('Age_Group')['id'].count()) + +# Answer 18 +XRay_Scalling_Earnings=Procedure_Earnings[(Procedure_Earnings['Procedure'] == 'X Ray') | (Procedure_Earnings['Procedure'] == 'Scalling')] +print(sum(XRay_Scalling_Earnings['AmountReceived'])) \ No newline at end of file From 0f4cca73e5c049d5b590642f5e85d9f93571ead2 Mon Sep 17 00:00:00 2001 From: farooqrehman Date: Mon, 27 Mar 2017 22:23:54 +0500 Subject: [PATCH 6/6] updated --- RAssignment_2.R | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) diff --git a/RAssignment_2.R b/RAssignment_2.R index 1e97129..74cbbb0 100644 --- a/RAssignment_2.R +++ b/RAssignment_2.R @@ -20,9 +20,6 @@ hospitaldata <- hospitaldata%>% print(mean(as.numeric(hospitaldata$Age),na.rm = TRUE)) - - - ##Answer 4 hospitaldata <- hospitaldata %>% mutate(Age = as.numeric(Age)) @@ -37,11 +34,20 @@ children_data <- hospitaldata %>% # Answer 5 gen_proc<-hospitaldata %>% mutate(Sex = ifelse(Sex == 'M' | Sex =='m', 'M',ifelse(Sex == 'f' | Sex =='F','F',NA))) %>% - filter(!is.na(Sex), !is.na(Procedure)) %>% - select(Sex, Procedure) %>% + filter(!is.na(Sex), !is.na(Procedure), Sex == 'F') %>% + select(Procedure) %>% + count() +gen_proc_1 <- max(gen_proc$freq) +select(filter(gen_proc,gen_proc$freq == gen_proc_1),Procedure,freq) + +gen_proc<-hospitaldata %>% + mutate(Sex = ifelse(Sex == 'M' | Sex =='m', 'M',ifelse(Sex == 'f' | Sex =='F','F',NA))) %>% + filter(!is.na(Sex), !is.na(Procedure), Sex == 'M') %>% + select(Procedure) %>% count() gen_proc_1 <- max(gen_proc$freq) -select(filter(gen_proc,gen_proc$freq == gen_proc_1),Sex,Procedure,freq) +select(filter(gen_proc,gen_proc$freq == gen_proc_1),Procedure,freq) + # Answer 6 doctors_earnings <- hospitaldata %>% @@ -116,6 +122,12 @@ Consultation_amount <-hospitaldata %>% summarise(sum(AmountReceived)) %>% print +# Answer 15 +Consultation_amount <-hospitaldata %>% + filter(!is.na(AmountReceived), Procedure=='Consultation') %>% + summarise(sum(AmountReceived)) %>% + print + # Answer 16 Age_n_Charges_Relation <- hospitaldata %>% filter(!is.na(Age), !is.na(TotalCharges), !grepl("Cancelled",TotalCharges)) %>%