From d343ea944698bb5fd66830451d05c31eb096fff5 Mon Sep 17 00:00:00 2001 From: umairhanif00 Date: Sun, 26 Mar 2017 18:16:26 +0500 Subject: [PATCH 1/4] UmairHanif_KHI_R_ASSIGNMENT2 --- CleanHospitalData.csv | 223 ++++++++++++++++++++++++++++++++++++++++++ Q1.R | 23 +++++ Q10.R | 8 ++ Q11.R | 8 ++ Q13.R | 7 ++ Q14.R | 5 + Q15.R | 10 ++ Q16.R | 3 + Q17.R | 35 +++++++ Q18.R | 9 ++ Q2.R | 10 ++ Q3.R | 2 + Q4.R | 7 ++ Q5.R | 31 ++++++ Q6.R | 29 ++++++ Q7.R | 28 ++++++ Q8.R | 10 ++ Q9.R | 4 + 18 files changed, 452 insertions(+) create mode 100644 CleanHospitalData.csv create mode 100644 Q1.R create mode 100644 Q10.R create mode 100644 Q11.R create mode 100644 Q13.R create mode 100644 Q14.R create mode 100644 Q15.R create mode 100644 Q16.R create mode 100644 Q17.R create mode 100644 Q18.R create mode 100644 Q2.R create mode 100644 Q3.R create mode 100644 Q4.R create mode 100644 Q5.R create mode 100644 Q6.R create mode 100644 Q7.R create mode 100644 Q8.R create mode 100644 Q9.R diff --git a/CleanHospitalData.csv b/CleanHospitalData.csv new file mode 100644 index 0000000..43b251d --- /dev/null +++ b/CleanHospitalData.csv @@ -0,0 +1,223 @@ +"Date","id","Time","Age","Sex","ConsultingDoctor","Specialty","Procedure","TotalCharges","AmountReceived","AmountBalance","AmountReceivedBy","AmountinHospital","ReceptionistName","NextApt" +2017-01-01,101,"11:00",40,"F","Dr Kinza Alam","Gynae","C Section",30000,30000,NA,"Mrs Shamsa",NA,"Hamza",NA +2017-01-02,150,"10:45AM",26,"M","Nursing Staff",NA,"Dressing",1500,1500,NA,"Dr Saniya",NA,"Haris",NA +2017-01-02,58,"12:38PM",30,"F","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Fiza",NA +2017-01-02,75,"1:00PM",40,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1500,1500,NA,"Mrs Shamsa",450,"Zaheer",NA +2017-01-02,97,"2:45PM",27,"M","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Mrs Shamsa",600,"Haris",NA +2017-01-02,101,"3:00PM",40,"F","Dr Kinza Alam","Gynae","C Section",35000,35000,NA,"Dr Saniya",NA,"Haris",NA +2017-01-02,26,"3:28PM",43,"M","Dr Saniya","M/o","Consultation",2000,2000,NA,"Dr Saniya",NA,"Fiza",NA +2017-01-02,149,"3:45PM",28,"F","Dr Fakiha","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Haris",NA +2017-01-02,20,"3:45PM",2,"F","Dr Fakiha","Dentist","Consultation",NA,NA,NA,NA,NA,NA,NA +2017-01-02,72,"5:00PM",40,"M","Dr Fakiha","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA +2017-01-02,54,"5:00PM",32,"F","Dr Saniya","M/o","Consultation",2000,2000,NA,"Dr Saniya",NA,"Fiza",NA +2017-01-02,149,"5:30PM",28,"F","Dr Fakiha","Dentist","Filling",2000,2000,NA,"Mrs Shamsa",2000,"Fiza","In case of pain" +2017-01-03,120,"1:00PM",76,"F","Dr Saniya","M/o","Laboratory Test",NA,NA,NA,NA,NA,"Haris",NA +2017-01-03,120,"3:25PM",75,"F","Dr Saniya","M/o",NA,NA,NA,NA,NA,NA,NA,NA +2017-01-03,20,"6:10PM",36,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Mrs Shamsa",450,"Haris",NA +2017-01-04,40,"11:45PM",42,"F","Dr Alaf Khan","Dentist","Consultation+Denture",1500,1500,NA,"Brig Farrukh",NA,"Fiza",NA +2017-01-04,134,"12:40PM",23,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Brig Farrukh",500,"Fiza",NA +2017-01-04,86,"8:10PM",48,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Brig Farrukh",450,"Haris",NA +2017-01-04,114,"8:30PM",25,"F","Dr Kinza Alam","Gynae","Consultation",1000,1000,NA,"Brig Farrukh",300,"Haris",NA +2017-01-05,155,"12:40PM",50,"F","Dr Alaf Khan","Dentist","Extraction",2000,2000,NA,"Brig Farrukh",2000,"Fiza",NA +2017-01-05,45,"2:00PM",60,"F","Dr Alaf Khan","Dentist","R.P.D + Crown",4000,4000,NA,"Brig Farrukh",4000,"Haris",NA +2017-01-05,4,"2:00PM",NA,"M","Dr Irfan","General Surgeon","Consultation + Dressing",5000,5000,NA,"Brig Farrukh",4000,"Haris",NA +2017-01-06,38,"12:30PM",NA,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-06,130,"1:00PM",26,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-06,97,"1:30PM",27,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-06,50,NA,NA,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Haris",NA +2017-01-06,78,"8:15PM",57,"F","Dr Ali","Orthopedic","Consultation",6000,6000,NA,"Mrs Shamsa",3000,"Haris",NA +2017-01-07,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-09,48,"12:36PM",39,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA +2017-01-09,79,"1:30PM",6,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA +2017-01-09,116,"2:30PM",26,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-09,45,"3:15PM",60,"F","Dr Alaf Khan","Dentist","R.P.D + Crown",7000,7000,NA,"Mrs Shamsa",7000,"Fiza",NA +2017-01-09,67,"5:20PM",26,"M","Dr Alaf Khan","Dentist","Consultation+X Ray",800,800,NA,"Mrs Shamsa",800,"Fiza",NA +2017-01-09,36,"5:30PM",5,"F","Dr Alaf Khan","Dentist","Consultation",250,250,NA,"Mrs Shamsa",250,"Fiza",NA +2017-01-10,17,"3:50PM",40,"M","Dr Alaf Khan","Dentist","RCT (4 teeth) Bridge (9 teeth)",10000,10000,NA,"Mrs Shamsa",NA,"Fiza","1/16/2017" +2017-01-10,84,"6:00PM",9,"F","Dr Irfan","General Surgeon","Consultation + X Ray",3000,3000,NA,"Mrs Shamsa",3000,"Mona",NA +2017-01-10,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-11,57,NA,30,"F","Dr Alaf Khan","Dentist","Laboratory Test",NA,NA,NA,"Mrs Shamsa",NA,NA,NA +2017-01-11,119,"3:00PM",40,"F","Dr Ammara","Gynae","Consultation + USG",1500,1500,NA,"Mrs Shamsa",500,"Fiza",NA +2017-01-11,145,"4:30PM",29,"M","Dr Alaf Khan","Dentist","Crown",3000,3000,NA,"Mrs Shamsa",NA,"Fiza",NA +2017-01-11,92,"4:30PM",39,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA +2017-01-12,63,"10:45AM",50,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Fiza",NA +2017-01-12,63,"02:00PM",50,"M","Dr Alaf Khan","Dentist","Scalling",3000,3000,NA,"Mrs Shamsa",3000,"Fiza",NA +2017-01-12,63,"02:00PM",50,"M","Brig Asif","Medical Specialist","Consultation",500,500,NA,"Mrs Shamsa",150,"Fiza",NA +2017-01-13,45,"11:20AM",60,"F","Dr Alaf Khan","Dentist","Polishing",500,500,NA,"Mrs Shamsa",500,"Haris",NA +2017-01-13,145,"3:00PM",29,"M","Dr Fakiha","Dentist","Crown",1500,1500,NA,"Mrs Shamsa",1500,"Fiza",NA +2017-01-13,70,"8:00PM",48,"M","Brig Farrukh","Anaesthetist","Consultation",3750,3750,NA,"Dr Ammad",3750,"Mona",NA +2017-01-14,88,"4:30PM",45,"F","Dr Fakiha","Dentist","Filling + X Rays",2600,2600,NA,"Dr Ammad",2600,"Haris",NA +2017-01-14,40,"6:30PM",42,"F","Dr Fakiha","Dentist","Denture+Scalling+Filling",5500,5500,NA,"Dr Ammad",5500,"Haris",NA +2017-01-15,42,"9:00PM",29,"F","Nursing Staff",NA,"Pharmacy",900,900,NA,"Dilshad",900,"Zaheer",NA +2017-01-16,7,NA,26,"M","Nursing Staff",NA,"Laboratory Test",NA,NA,NA,NA,NA,NA,NA +2017-01-16,106,"1:30PM",34,"M","Dr Alaf Khan","Dentist","Crown",5000,5000,NA,"Dr Ammad",5000,"Fiza",NA +2017-01-16,22,"6:00PM",50,"F","Dr Zubair","M/o","Consultation",1000,1000,NA,"Dr Ammad",400,"Haris",NA +2017-01-16,88,"6:20PM",45,"F","Dr Fakiha","Dentist","Extraction",2500,2500,NA,"Dr Ammad",2500,"Haris","1/23/2017" +2017-01-17,52,"11:25AM",30,"M","Dr Alaf Khan","Dentist","RCT",3000,3000,NA,"Mrs Shamsa",3000,"Fiza","1/20/2017" +2017-01-17,17,"11:15AM",40,"M","Dr Alaf Khan","Dentist","RCT (4 teeth) Bridge (9 teeth)",38000,38000,NA,"Mrs Shamsa",38000,"Fiza",NA +2017-01-17,17,"1:10PM",40,"M","Brig Asif","Medical Specialist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-17,136,"3:30PM",29,"M","Dr Fakiha","Dentist","Scalling",4000,4000,NA,"Mrs Shamsa",4000,"Fiza",NA +2017-01-17,27,"6:15PM",27,"M","Dr Fakiha","Dentist","Filling",2000,2000,NA,"Mrs Shamsa",2000,"Sohaib","1/19/2017" +2017-01-18,71,"9:40PM",23,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,NA,300,"Haris",NA +2017-01-18,12,"12:00PM",60,"F","Dr Alaf Khan","Dentist","22 Unit Bridge",25500,25500,NA,NA,25500,"Haris",NA +2017-01-18,127,"2:00PM",52,"F","Dr Alaf Khan","Dentist","Extraction",1000,1000,NA,NA,1000,"Haris",NA +2017-01-18,82,"5:00PM",21,"M","Dr Zubair","M/o","Consultation",500,500,NA,NA,500,"Haris",NA +2017-01-19,103,NA,32,"M","Nursing Staff",NA,"Laboratory Test",NA,NA,NA,NA,NA,NA,NA +2017-01-19,31,"11:00AM",58,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Mrs Shamsa",500,"Haris",NA +2017-01-19,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-19,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-20,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-21,131,"10:15AM",26,"F","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-21,101,"1:20PM",40,"F","Dr Kinza Alam","Gynae","Consultation",1200,1200,NA,"Mrs Shamsa",360,"Haris",NA +2017-01-21,145,"1:30PM",29,"M","Dr Fakiha","Dentist","Crown",500,500,NA,"Mrs Shamsa",500,"Haris",NA +2017-01-23,144,"12:15PM",33,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-23,37,"1:00PM",30,"F","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-23,135,"1:15PM",28,"F","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Mrs Shamsa",600,"Haris",NA +2017-01-23,59,"4:50PM",10,"M","Dr Ali","Child Specialist","Consultation+ER Retain",2800,2800,NA,"Mrs Shamsa",1600,"Haris",NA +2017-01-24,130,"1:00PM",26,"M","Dr Riffat Naheed","Psychotherapist","Consultation",800,800,NA,"Mrs Shamsa",240,"Haris",NA +2017-01-24,104,"1:15PM",19,"M","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Mrs Shamsa",600,"Haris",NA +2017-01-24,98,"2:10PM",53,"F","Dr Saad","Orthopedic","Consultation",1000,1000,NA,"Mrs Shamsa",600,"Haris",NA +2017-01-24,102,"1:30PM",30,"M","Dr Riffat Naheed","Psychotherapist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Haris",NA +2017-01-25,59,NA,10,"M","Nursing Staff",NA,"Laboratory Test",NA,NA,NA,NA,NA,NA,NA +2017-01-25,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-26,73,"12:50PM",55,"M","Dr Alaf Khan","Dentist","Consultation+X Ray",700,700,NA,NA,700,"Haris",NA +2017-01-26,116,"3:30PM",26,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,NA,300,"Haris",NA +2017-01-26,125,"5:40PM",30,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,NA,500,"Haris",NA +2017-01-26,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-26,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-26,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-28,129,NA,28,"M","Dr Ali","Child Specialist","Consultation",1150,1150,NA,"Mrs Shamsa",NA,"Sohaib",NA +2017-01-28,85,"6:45PM",NA,"F","Dr Irfan","General Surgeon",NA,3000,3000,NA,"Mrs Shamsa",NA,"Sohaib",NA +2017-01-28,147,"9:45PM",9,"M","Nursing Staff",NA,"Consultation",1000,1000,NA,"Mrs Shamsa",NA,"Sub KB",NA +2017-01-29,1,NA,NA,NA,"Nursing Staff",NA,"Pharmacy",NA,NA,NA,NA,NA,NA,NA +2017-01-30,140,"1:00PM",28,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-01-30,39,"1:30PM",47,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Haris",NA +2017-01-30,124,"5:40PM",49,"F","Brig Asif","Medical Specialist","Consultation+ECG",1300,1300,NA,"Dr Ammad",600,"Sohaib",NA +2017-01-30,8,"5:35PM",19,"M","Dr Qurat ul Ain","Dentist","Consultation+X Ray",800,800,NA,"Dr Ammad",800,"Sohaib",NA +2017-01-30,51,"6:00PM",31,"M","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Sohaib",NA +2017-01-31,152,"5:30PM",7,"F","Dr Fakiha","Dentist","Filling",1000,1000,NA,"Mrs Shamsa",1000,"Haris",NA +2017-01-31,21,"6:30PM",26,"M","Dr Zubair","M/o","Consultation",200,200,NA,"Mrs Shamsa",200,"Mona",NA +2017-01-31,115,"6:50PM",8,"F","Dr Qurat ul Ain","Dentist","Extraction",1500,1500,NA,"Mrs Shamsa",1500,"Haris",NA +2017-02-01,109,"2:10PM",28,"F","Dr Alaf Khan","Dentist","R.C.T",2000,2000,NA,"Dr Ammad",2000,"Haris","2/6/2017" +2017-02-01,153,"2:10PM",17,"F","Dr Alaf Khan","Dentist","Orthodontics",10000,10000,NA,"Dr Ammad",10000,"Haris","2/6/2017" +2017-02-01,62,"1:00PM",54,"M","Dr Alaf Khan","Dentist","Scalling",2000,2000,NA,"Dr Ammad",2000,"Haris",NA +2017-02-01,111,"1:40PM",35,"F","Col Ulfat Ellahi","ENT","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA +2017-02-01,142,"6:00PM",45,"M","Dr Qurat ul Ain","Dentist","Extraction",2000,2000,NA,"Dr Ammad",2000,"Haris",NA +2017-02-02,117,"12:00PM",30,"F","Dr Shireen","M/o","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-02,140,"1:00PM",30,"F","Dr Alaf Khan","Dentist","Extraction",1000,1000,NA,"Dr Ammad",1000,"Haris",NA +2017-02-02,100,"1:25PM",23,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-03,133,"4:45PM",27,"F","Dr Alaf Khan","Dentist","X Ray",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-03,44,"8:00PM",6,"M","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA +2017-02-04,35,"4:00PM",2,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-04,150,"4:00PM",30,"M","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-06,118,"7:30PM",32,"F","Dr Kinza Alam","Gynae","Consultation+USG",1500,1500,NA,"Dr Ammad",800,"Haris",NA +2017-02-06,114,"7:45PM",25,"F","Dr Kinza Alam","Gynae","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA +2017-02-06,49,"1:30PM",80,"M","Dr Ali","Child Specialist","Consultation+Retain",3500,3500,NA,"Dr Ammad",2000,"Haris",NA +2017-02-06,126,"1:30PM",70,"F","Dr Alaf Khan","Dentist","Scalling",3000,3000,NA,"Dr Ammad",3000,"Haris",NA +2017-02-06,141,"4:00PM",20,"M","Dr Riffat Naheed","Psychotherapist","Consultation",2000,2000,NA,"Dr Ammad",600,"Haris",NA +2017-02-06,17,"6:15PM",23,"M","Dr Ammad","M/o","Consultation",200,200,NA,"Dr Ammad",200,"Haris",NA +2017-02-07,12,"12:00PM",60,"F","Dr Alaf Khan","Dentist","22 Unit Bridge",44000,30000,"14,000.00","Dr Ammad",30000,"Haris","2/14/2017" +2017-02-07,60,"1:10PM",50,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-07,140,"2:15PM",30,"F","Dr Alaf Khan","Dentist","4 Unit Bridge",3000,3000,NA,"Dr Ammad",3000,"Haris",NA +2017-02-07,41,"6:00PM",13,"M","Dr Qurat ul Ain","Dentist","X Ray",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-07,87,"8:00PM",30,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-08,132,"10:13AM",13,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris","2/17/2017" +2017-02-08,132,"12:00PM",13,"M","Dr Alaf Khan","Dentist","R.C.T",3500,3500,NA,"Dr Ammad",3500,"Haris",NA +2017-02-08,13,"12:00PM",39,"F","Dr Saad","Orthopedic","Consultation",1000,1000,NA,"Dr Ammad",300,"Haris",NA +2017-02-08,109,"2:40PM",28,"F","Dr Alaf Khan","Dentist","R.C.T",2000,2000,NA,"Dr Ammad",2000,"Haris",NA +2017-02-08,109,"2:40PM",28,"F","Dr Alaf Khan","Dentist","Crown",3000,NA,"3,000.00","Dr Ammad",NA,"Haris","2/16/2017" +2017-02-08,153,"2:40PM",17,"F","Dr Alaf Khan","Dentist","Orthodontics",110000,20000,"90,000.00","Dr Ammad",20000,"Haris","2/16/2017" +2017-02-08,43,"10:00AM",27,"M","Dr Alaf Khan","Dentist","Consultation+X Ray",800,800,NA,"Dr Ammad",800,"Haris","2/9/2017" +2017-02-10,5,"9:30AM",57,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Haris",NA +2017-02-10,14,"6:30PM",6,"M","Nursing Staff",NA,"X Ray",300,300,NA,"Dr Ammad",300,"Haris",NA +2017-02-10,123,"7:00PM",18,"M","Dr Qurat ul Ain","Dentist","Filling",1500,1500,NA,"Dr Ammad",1500,"Haris",NA +2017-02-11,137,"12:00PM",25,"M","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Mrs Shamsa",300,"Mona",NA +2017-02-11,91,"4:20PM",50,"F","Dr Qurat ul Ain","Dentist","Scalling",2500,2500,NA,"Mrs Shamsa",2500,"Mona",NA +2017-02-11,23,"5:57PM",NA,"F","Dr Qurat ul Ain","Dentist","Consultation",1000,1000,NA,"Mrs Shamsa",1000,"Mona",NA +2017-02-11,154,"6:15PM",19,"F","Dr Qurat ul Ain","Dentist","Scalling",2000,2000,NA,"Mrs Shamsa",2000,"Mona",NA +2017-02-12,112,"7:15PM",39,"M","Dr Saad","Orthopedic","Operation",35000,35000,NA,"Mrs Shamsa",35000,"Haris",NA +2017-02-12,81,"12:00PM",6,"F","Dr Alaf Khan","Dentist","Consultation+X Ray",700,700,NA,"Mrs Shamsa",700,"Mona",NA +2017-02-13,15,"11:20AM",40,"M","Dr Waqar Azeem","Radiologist","USG Abdomen",1000,1000,NA,"Dr Ammad",300,"Haris",NA +2017-02-13,112,"3:40PM",39,"M","Dr Saad","Orthopedic","Operation",15000,15000,NA,"Dr Ammad",15000,"Haris",NA +2017-02-13,9,"7:00PM",20,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Haris",NA +2017-02-13,2,NA,NA,NA,"Dr Ali","Child Specialist","Consultation",1500,1500,NA,"Dr Ammad",500,"Haris",NA +2017-02-14,113,"2:30PM",14,"M","Dr Saad Riaz","Orthopedic","Pop",3700,3700,NA,"Dr Ammad",1700,"Haris",NA +2017-02-14,4,"3:00PM",NA,"M","Nursing Staff",NA,"Er Retain",300,300,NA,"Dr Ammad",300,"Haris",NA +2017-02-14,19,"7:02PM",6,"F","Dr Waqar Azeem","Radiologist","USG",2000,2000,NA,"Dr Ammad",1300,"Haris",NA +2017-02-15,118,"11:40AM",24,"F","Dr Alaf Khan","Dentist","X Ray",400,400,NA,"Mrs Shamsa",400,"Mona",NA +2017-02-15,94,"4:45PM",3,"M","Dr Ali","Child Specialist","Consultation + Nebulize",1150,1150,NA," 150 Mrs Shamsa, 300 Dr Ammad ",450,"Haris",NA +2017-02-15,64,"6:15PM",23,"M","Dr Ammad","M/o","Consultation",200,200,NA,"Dr Ammad",200,"Haris",NA +2017-02-17,29,"4:10PM",29,"M","Dr Alaf Khan","Dentist","X Ray",200,200,NA,"Dr Ammad",200,"Haris",NA +2017-02-17,66,"5:30PM",55,"M","Dr Alaf Khan","Dentist","Extraction",1000,1000,NA,"Dr Ammad",1000,"Haris",NA +2017-02-17,107,"6:30PM",30,"F","Nursing Staff",NA,"X Ray",1000,1000,NA,"Dr Ammad",1000,"Haris",NA +2017-02-18,108,"6:20PM",NA,"M","Dr Ali","Child Specialist","Consultation",3000,3000,NA,"Dr Ammad",1600,"Saima",NA +2017-02-18,30,"6:10PM",30,"F","Dr Qurat ul Ain","Dentist","Extraction",1500,1500,NA,"Dr Ammad",1500,"Mona",NA +2017-02-18,94,"11:30AM",3,"M","Nursing Staff",NA,"Injection",300,300,NA,"Dr Ammad",300,"Saima",NA +2017-02-19,55,"2:45PM",NA,"M","Dr Qurat ul Ain","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Saima",NA +2017-02-20,132,NA,13,"M","Dr Alaf Khan","Dentist","Crown",5000,5000,NA,"Dr Ammad",5000,NA,"2/24/2017" +2017-02-20,68,"1:25PM",10,"M","Dr Shireen","M/o","Stiches",700,700,NA,"Dr Ammad",700,"Saima",NA +2017-02-20,80,"2:00PM",30,"F","Dr Shireen","M/o","Consultation",1200,1200,NA,"Dr Ammad",1200,"Saima",NA +2017-02-20,99,"7:00PM",45,"F","Dr Saima Shams","Radiologist","USG",1500,1500,NA,"Dr Ammad",900,"Mona",NA +2017-02-20,94,"10:15PM",3,"M","Nursing Staff",NA,"Injection",300,300,NA,"Dr Ammad",300,"Ashfaq",NA +2017-02-21,151,"1:00PM",38,"M","Dr Alaf Khan","Dentist","R.C.T+Scalling+Crown",5000,5000,NA,"Dr Ammad",5000,"Saima","2/28/2017" +2017-02-21,53,"6:00PM",20,"F","Dr Waqar Azeem","Radiologist","USG",1000,1000,NA,"Dr Ammad",400,"Mona",NA +2017-02-21,11,"7:11PM",2,"F","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA +2017-02-21,94,"10:10PM",3,"M","Nursing Staff",NA,"Injection",300,300,NA,"Dr Ammad",300,"Sub KB",NA +2017-02-21,64,NA,NA,NA,"Nursing Staff",NA,"Medicine",100,100,NA,NA,100,"Saima",NA +2017-02-22,100,"3:00PM",23,"F","Dr Alaf Khan","Dentist","Orthodontics",120000,30000,"90,000.00","Dr Ammad",30000,"Mona",NA +2017-02-22,16,"4:30PM",26,"M","Dr Mumtaz","General Surgeon","Consultation",1000,1000,NA,"Dr Ammad",500,"Mona",NA +2017-02-22,6,"5:00PM",35,"M","Dr Waqar Azeem","Radiologist","USG",1000,1000,NA,"Dr Ammad",400,"Mona",NA +2017-02-23,33,"1:55PM",22,"M","Dr Alaf Khan","Dentist","R.C.T",3000,3000,NA,"Dr Ammad",3000,"Saima",NA +2017-02-23,89,"1:50PM",65,"F","Dr Saad Riaz","Orthopedic","Consultation",1000,1000,NA,"Dr Ammad",500,"Saima",NA +2017-02-23,13,"2:00PM",45,"F","Dr Saad Riaz","Orthopedic","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA +2017-02-23,47,"3:00PM",21,"F","Dr Riffat Naheed","Psychotherapist","Consultation",1500,1500,NA,"Dr Ammad",700,"Saima",NA +2017-02-24,80,"9:30PM",30,"F","Dr Mehwish","Gynae","Consultation",1000,1000,NA,"Dr Ammad",500,"Saima",NA +2017-02-25,128,"3:45PM",64,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-02-25,93,"4:00PM",40,"F","Dr Ali","Child Specialist",NA,3000,3000,NA,"Dr Ammad",1600,"Saima",NA +2017-02-27,143,"11:30AM",52,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-02-27,56,"12:20PM",55,"F","Dr Alaf Khan","Dentist","Extraction",600,600,NA,"Dr Ammad",600,"Saima",NA +2017-02-27,96,NA,54,"M","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-02-28,65,"10:30PM",30,"M","Nursing Staff",NA,"BSR",50,50,NA,"Dr Ammad",50,"Haris",NA +2017-02-28,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",NA +2017-02-28,90,NA,NA,"F","Dr Alaf Khan","Dental","Consultation",1000,1000,NA,"Dr Ammad",1000,"Saima",NA +2017-02-28,151,"3:00PM",38,"F","Dr Alaf Khan","Dentist","R.C.T+Scalling+Crown",4500,4500,NA,"Dr Ammad",4500,"Haris",NA +2017-02-28,139,"8:00PM",30,"M","Nursing Staff",NA,"X Ray",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-03-01,107,"5:00PM",17,"F","Dr Qurat ul Ain","Dentist","Extraction",1500,1500,NA,"Dr Ammad",1500,"Saima",NA +2017-03-01,28,"6:00PM",3,"F","Dr Qurat ul Ain","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-03-01,46,NA,17,"M","Nursing Staff",NA,"Dressing",500,500,NA,"Dr Ammad",200,"Saima",NA +2017-03-01,25,"7:00PM",NA,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Dr Ammad",500,"Saima",NA +2017-03-01,24,"7:10PM",NA,"M","Dr Ammad","M/o","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-03-02,140,"12:48PM",30,"F","Dr Alaf Khan","Dentist","4 Unit Bridge",8000,8000,NA,"Dr Ammad",8000,"Saima",NA +2017-03-02,46,"3:00PM",17,"M","Nursing Staff",NA,"Injection",50,50,NA,"Dr Ammad",50,"Saima",NA +2017-03-02,114,"7:05PM",26,"F","Dr Kinza Alam","Gynae","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA +2017-03-02,3,NA,NA,NA,"Nursing Staff",NA,"Dressing",100,100,NA,"Dr Ammad",100,"Saima",NA +2017-03-03,138,"11:20AM",45,"F","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-03-03,107,"12:30PM",17,"F","Dr Alaf Khan","Dentist","R.C.T+Crown",8000,8000,NA,"Dr Ammad",8000,"Saima","3/9/2017" +2017-03-03,34,"1:30PM",22,"M","Dr Alaf Khan","Dentist","Crown",2000,2000,NA,"Dr Ammad",2000,"Saima","3/8/2017" +2017-03-03,133,"4:10PM",30,"F","Dr Ali","Child Specialist","Consultation",1000,1000,NA,"Dr Ammad",300,"Saima",NA +2017-03-03,46,"5:45PM",17,"M","Nursing Staff",NA,"Dressing",300,300,NA,"Dr Ammad",300,"Saima",NA +2017-03-03,74,"2:40PM",38,"M","Dr Waqar Azeem","Radiologist","USG KUB",1000,1000,NA,"Dr Ammad",300,"Sub KB",NA +2017-03-05,46,NA,17,"M","Nursing Staff",NA,"Dressing",300,300,NA,"Dr Ammad",200,"Saima",NA +2017-03-06,83,"1:20PM",34,"M","Dr Alaf Khan","Dentist","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-03-06,61,"5:30PM",28,"F","Dr Qurat ul Ain","Dentist","Consultation+X Ray",950,950,NA,"Dr Ammad",950,"Haris",NA +2017-03-06,122,"7:00PM",78,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Saima",NA +2017-03-07,95,NA,56,"M","Dr Alaf Khan","Dentist","X Ray",300,300,NA,"Dr Ammad",300,"Saima",NA +2017-03-07,69,"3:00PM",53,"M","Dr Alaf Khan","Dentist",NA,15000,15000,NA,"Dr Ammad",15000,"Mona",NA +2017-03-07,146,NA,21,"M","Dr Ammad","M/o","Consultation",500,500,NA,"Dr Ammad",500,"Saima",NA +2017-03-07,46,"7:40PM",17,"M","Nursing Staff",NA,"Dressing",200,200,NA,"Dr Ammad",200,"Saima",NA +2017-03-07,32,"2:00PM",NA,"F","Nursing Staff",NA,"Coupety",300,300,NA,"Dr Ammad",300,"Saima",NA +2017-03-07,122,"9:35PM",78,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Sub KB",NA +2017-03-08,148,"8:30PM",3,"F","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Ashfaq",NA +2017-03-08,122,"10:00PM",76,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Ashfaq",NA +2017-03-08,10,"4:45PM",9,"F","Dr Qurat ul Ain","Dentist","Consultation+x Ray",650,650,NA,"Dr Ammad",650,"Saima",NA +2017-03-08,76,"6:55PM",32,"M","Dr Paul","Dermatologist","Consultation",1500,1000,"500","Dr Ammad",300,"Mona",NA +2017-03-08,1,"12:00PM",NA,"F","Nursing Staff",NA,"Injection",150,150,NA,"Dr Ammad",150,"Mona",NA +2017-03-08,25,"7:30PM",NA,"F","Dr Kinza Alam","Gynae","Consultation",1500,1500,NA,"Dr Ammad",500,"Mona",NA +2017-03-09,77,"12:00PM",24,"M","Dr Alaf Khan","Dentist","R.C.T",5000,2000,"3,000.00","Dr Ammad",2000,"Haris","3/16/2017" +2017-03-09,121,"9:00AM",3,"F","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Mona",NA +2017-03-09,122,NA,76,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Mona",NA +2017-03-09,1,NA,NA,NA,"Nursing Staff",NA,"Cancelled",NA,NA,NA,"Dr Ammad",NA,"Saima",NA +2017-03-09,18,"3:30PM",39,"M","Dr Alaf Khan","Dentist","Scalling+Polishing",4000,4000,NA,"Dr Ammad",4000,"Saima",NA +2017-03-09,110,"6:00PM",30,"M","Dr Qurat ul Ain","Dentist","Consultation",200,200,NA,"Dr Ammad",200,"Saima",NA +2017-03-10,122,"10:20AM",76,"M","Nursing Staff",NA,"Injection",100,100,NA,"Dr Ammad",100,"Zaheer",NA +2017-03-10,105,"11:20PM",45,"F","Dr Shireen","M/o","Consultation",800,800,NA,"Dr Ammad",800,"Mona",NA diff --git a/Q1.R b/Q1.R new file mode 100644 index 0000000..7fd26bd --- /dev/null +++ b/Q1.R @@ -0,0 +1,23 @@ +library("ggplot2") +library("lubridate") +library("dplyr") +library("tidyr") +library("DataCombine") + +bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F) +dataf <- tbl_df(bufferedDataFrame) +View(dataf) +glimpse(dataf) + +#removing character from age M +dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age)) +class(dataf$Age) +unique(dataf$Age) + + +# Question #1 +#Changing Datatypes from factor to their required formats +names(dataf) <- gsub("\\.",'',names(dataf)) + +#now lets play with date +dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y")) diff --git a/Q10.R b/Q10.R new file mode 100644 index 0000000..cfd5028 --- /dev/null +++ b/Q10.R @@ -0,0 +1,8 @@ +#Question 10 +repeated_visitors <- select(dataf,id) %>% + group_by(id) %>% + summarise(visits=length(id)) %>% + arrange(desc(visits)) %>% + filter(visits > 1) %>% + print # printing repeated visitors along with their ids + diff --git a/Q11.R b/Q11.R new file mode 100644 index 0000000..cfd5028 --- /dev/null +++ b/Q11.R @@ -0,0 +1,8 @@ +#Question 10 +repeated_visitors <- select(dataf,id) %>% + group_by(id) %>% + summarise(visits=length(id)) %>% + arrange(desc(visits)) %>% + filter(visits > 1) %>% + print # printing repeated visitors along with their ids + diff --git a/Q13.R b/Q13.R new file mode 100644 index 0000000..b8a7c08 --- /dev/null +++ b/Q13.R @@ -0,0 +1,7 @@ +#Question 13 +medianAge <- dataf %>% + select(Sex,Age) %>% + group_by(Sex) %>% + summarise(median(Age, na.rm = TRUE)) %>% + print + diff --git a/Q14.R b/Q14.R new file mode 100644 index 0000000..fdb231b --- /dev/null +++ b/Q14.R @@ -0,0 +1,5 @@ +#Question 14 +dataf$TotalCharges<-as.numeric(as.character(dataf$TotalCharges)) +sum_of_charges <- sum(dataf$TotalCharges, na.rm = TRUE) +print(sum_of_charges) + diff --git a/Q15.R b/Q15.R new file mode 100644 index 0000000..ecaa37f --- /dev/null +++ b/Q15.R @@ -0,0 +1,10 @@ +#Question 15 +dataf$TotalCharges<-as.numeric(as.character(dataf$TotalCharges)) +consult_amount <- dataf%>% + select(Procedure,TotalCharges) %>% + group_by(Procedure) %>% + filter(Procedure == 'Consultation') %>% + summarise(sum(TotalCharges,na.rm=TRUE)) %>% + print + + diff --git a/Q16.R b/Q16.R new file mode 100644 index 0000000..ec67024 --- /dev/null +++ b/Q16.R @@ -0,0 +1,3 @@ +#Question 16 +cor(dataf$Age,dataf$Age) + diff --git a/Q17.R b/Q17.R new file mode 100644 index 0000000..28a74ef --- /dev/null +++ b/Q17.R @@ -0,0 +1,35 @@ +#Question 17 +library("ggplot2") +library("lubridate") +library("dplyr") +library("tidyr") +library("DataCombine") + +bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F) +dataf <- tbl_df(bufferedDataFrame) +View(dataf) +glimpse(dataf) + +#removing character from age M +dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age)) +class(dataf$Age) +unique(dataf$Age) + + +# Question #1 +#Changing Datatypes from factor to their required formats +names(dataf) <- gsub("\\.",'',names(dataf)) + +#now lets play with date +dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y")) + +visits_by_age <- dataf %>% + select(id,Age) %>% + group_by(Age) %>% + summarize(visits=length(Age)) %>% + arrange(desc(visits)) %>% + filter(!is.na(Age)) %>% + print + +ggplot(data=visits_by_age,aes(x=as.numeric(Age),y=visits))+geom_bar(stat='identity',fill='slate blue')+ggtitle("Visits By Age")+labs(x='Age',y='Visits') + diff --git a/Q18.R b/Q18.R new file mode 100644 index 0000000..6b31901 --- /dev/null +++ b/Q18.R @@ -0,0 +1,9 @@ +# Question 18 +dataf$TotalCharges<-as.numeric(as.character(dataf$TotalCharges)) +consult_amount <- dataf%>% + select(Procedure,TotalCharges) %>% + group_by(Procedure) %>% + filter(Procedure == 'X Ray' & Procedure == 'Scalling') %>% + summarise(sum(TotalCharges,na.rm=TRUE)) %>% + print + diff --git a/Q2.R b/Q2.R new file mode 100644 index 0000000..6c057df --- /dev/null +++ b/Q2.R @@ -0,0 +1,10 @@ +#Question 2 +day_visits <- dataf %>% + mutate(Day=weekdays(dataf$Date),label=TRUE) %>% + group_by(Day) %>% + summarize(visits=length(Day)) %>% + print + +ggplot(day_visits,aes(x=Day,y=visits))+geom_bar(stat="identity",fill="slateblue")+ggtitle("Visits per Weekday")+labs(x="Day",y="Visits") + + diff --git a/Q3.R b/Q3.R new file mode 100644 index 0000000..78927de --- /dev/null +++ b/Q3.R @@ -0,0 +1,2 @@ +#Question 3 +mean(dataf$Age, na.rm = TRUE) diff --git a/Q4.R b/Q4.R new file mode 100644 index 0000000..3b02d7f --- /dev/null +++ b/Q4.R @@ -0,0 +1,7 @@ +#Question 4 +child <- filter(dataf, Age > 1 & Age < 13) %>% + select(-(Date:Time)) %>% + select(-(Sex:NextApt)) %>% + count() %>% + print + diff --git a/Q5.R b/Q5.R new file mode 100644 index 0000000..6d5aaf2 --- /dev/null +++ b/Q5.R @@ -0,0 +1,31 @@ +#Question 5 +#Repeating previous code snippet + +library("ggplot2") +library("lubridate") +library("dplyr") +library("tidyr") +library("DataCombine") + +bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F) +dataf <- tbl_df(bufferedDataFrame) +View(dataf) +glimpse(dataf) + +#removing character from age M +dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age)) +class(dataf$Age) +unique(dataf$Age) + + +# Question #1 +#Changing Datatypes from factor to their required formats +names(dataf) <- gsub("\\.",'',names(dataf)) + +#now lets play with date +dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y")) + + +dataf$Sex <- gsub("f","F",dataf$Sex) +dataf$Sex<-gsub("\\s|-",NA,dataf$Sex) +qplot(data=dataf, Sex, fill=Procedure)+ggtitle("Procedure vs Gender")+labs(x='Gender',y='Procedure') diff --git a/Q6.R b/Q6.R new file mode 100644 index 0000000..e011615 --- /dev/null +++ b/Q6.R @@ -0,0 +1,29 @@ +#Question 6 +#Repeating previous code snippet + +library("ggplot2") +library("lubridate") +library("dplyr") +library("tidyr") +library("DataCombine") + +bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F) +dataf <- tbl_df(bufferedDataFrame) +View(dataf) +glimpse(dataf) + +#removing character from age M +dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age)) +class(dataf$Age) +unique(dataf$Age) + + +# Question #1 +#Changing Datatypes from factor to their required formats +names(dataf) <- gsub("\\.",'',names(dataf)) + +#now lets play with date +dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y")) + + +qplot(data=dataf, fill=ConsultingDoctor, as.numeric(TotalCharges))+ggtitle("Highest Earning")+labs(x='TotalCharges',y='ConsultingDoctor') diff --git a/Q7.R b/Q7.R new file mode 100644 index 0000000..320154a --- /dev/null +++ b/Q7.R @@ -0,0 +1,28 @@ +#Question 7 +#Repeating previous code snippet + +library("ggplot2") +library("lubridate") +library("dplyr") +library("tidyr") +library("DataCombine") + +bufferedDataFrame <- read.csv("C:/Users/umair.hanif/Desktop/Learning Outcomes/AR/hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F) +dataf <- tbl_df(bufferedDataFrame) +View(dataf) +glimpse(dataf) + +#removing character from age M +dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age)) +class(dataf$Age) +unique(dataf$Age) + + +# Question #1 +#Changing Datatypes from factor to their required formats +names(dataf) <- gsub("\\.",'',names(dataf)) + +#now lets play with date +dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y")) + +qplot(data=dataf, as.numeric(TotalCharges), fill=Procedure)+ggtitle("Highest Procedure")+labs(x='TotalCharges',y='Procedure') diff --git a/Q8.R b/Q8.R new file mode 100644 index 0000000..006f8da --- /dev/null +++ b/Q8.R @@ -0,0 +1,10 @@ +#Question 8 +hour_visits <- dataf %>% + select(Time) %>% + mutate(Hour = hour(hm(format(strptime(dataf$Time, "%I:%M %p"), "%H:%M")))) %>% + group_by(Hour) %>% + summarize(visits=length(Hour)) %>% + arrange(desc(visits)) %>% + print # printing 13 the highest hour, i.e. actaully 1 AM/PM in 12 hour format + + diff --git a/Q9.R b/Q9.R new file mode 100644 index 0000000..eb95ce7 --- /dev/null +++ b/Q9.R @@ -0,0 +1,4 @@ +#Question 9 +my_shifts <- my_shifts %>% + mutate(Shifts = derivedFactor( "Morning" = (Hour>=6 & Hour<=12),"Afternoon" = (Hour>=12 & Hour<=16),"Evening" = (Hour>=14 & Hour<=19),"Night" =((Hour>=19 & Hour<=23)))) + From 3e4816d1e587deeb08d83ae4b7b779cb55c2fa10 Mon Sep 17 00:00:00 2001 From: umairhanif00 Date: Mon, 27 Mar 2017 16:26:19 +0500 Subject: [PATCH 2/4] Delete Q9.R --- Q9.R | 4 ---- 1 file changed, 4 deletions(-) delete mode 100644 Q9.R diff --git a/Q9.R b/Q9.R deleted file mode 100644 index eb95ce7..0000000 --- a/Q9.R +++ /dev/null @@ -1,4 +0,0 @@ -#Question 9 -my_shifts <- my_shifts %>% - mutate(Shifts = derivedFactor( "Morning" = (Hour>=6 & Hour<=12),"Afternoon" = (Hour>=12 & Hour<=16),"Evening" = (Hour>=14 & Hour<=19),"Night" =((Hour>=19 & Hour<=23)))) - From 2d9213736fd7c63c62acfbeb2ace41ad616bd198 Mon Sep 17 00:00:00 2001 From: umairhanif00 Date: Mon, 27 Mar 2017 16:33:13 +0500 Subject: [PATCH 3/4] Delete Q18.R --- Q18.R | 9 --------- 1 file changed, 9 deletions(-) delete mode 100644 Q18.R diff --git a/Q18.R b/Q18.R deleted file mode 100644 index 6b31901..0000000 --- a/Q18.R +++ /dev/null @@ -1,9 +0,0 @@ -# Question 18 -dataf$TotalCharges<-as.numeric(as.character(dataf$TotalCharges)) -consult_amount <- dataf%>% - select(Procedure,TotalCharges) %>% - group_by(Procedure) %>% - filter(Procedure == 'X Ray' & Procedure == 'Scalling') %>% - summarise(sum(TotalCharges,na.rm=TRUE)) %>% - print - From 36d78223433f50c57fb2724270144e4ee307c3d5 Mon Sep 17 00:00:00 2001 From: umairhanif00 Date: Mon, 27 Mar 2017 16:33:47 +0500 Subject: [PATCH 4/4] Add files via upload --- Q12.R | 30 ++++++++++++++++++++++++++++++ Q18.R | 3 +++ 2 files changed, 33 insertions(+) create mode 100644 Q12.R create mode 100644 Q18.R diff --git a/Q12.R b/Q12.R new file mode 100644 index 0000000..f63c6b2 --- /dev/null +++ b/Q12.R @@ -0,0 +1,30 @@ +library("ggplot2") +library("lubridate") +library("dplyr") +library("tidyr") +library("DataCombine") + +bufferedDataFrame <- read.csv("hospitaldata.csv", strip.white = T, na.strings = c("-",""," ","\t","\n",NA), stringsAsFactors = F) +dataf <- tbl_df(bufferedDataFrame) +View(dataf) +glimpse(dataf) + +#removing character from age M +dataf$Age <- as.numeric(gsub("[^0-9]",'',dataf$Age)) +class(dataf$Age) +unique(dataf$Age) + + +# Question #1 +#Changing Datatypes from factor to their required formats +names(dataf) <- gsub("\\.",'',names(dataf)) + +#now lets play with date +dataf$Date <- as.Date(strptime(dataf$Date, "%a, %B %d, %Y")) + + +dataf %>% + count(id, Procedure) %>% + slice(which(n>1))%>% + filter(!is.na(Procedure))%>% + select(id,Procedure) \ No newline at end of file diff --git a/Q18.R b/Q18.R new file mode 100644 index 0000000..354932f --- /dev/null +++ b/Q18.R @@ -0,0 +1,3 @@ +#Question 18 +dataf$Total_Charges<-as.numeric(dataf$Total_Charges) +sum(dataf$Total_Charges[dataf$Procedure=="X Ray" | dataf$Procedure=="Scalling"],na.rm = TRUE)