MIA EDA

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.2.0     ✔ readr     2.2.0
✔ forcats   1.0.1     ✔ stringr   1.6.0
✔ ggplot2   4.0.2     ✔ tibble    3.3.1
✔ lubridate 1.9.5     ✔ tidyr     1.3.2
✔ purrr     1.2.1     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(dplyr)
library(ggplot2)

mia <- read.csv("MIA Appeals and Grievances.csv")

admin <- read.csv('Admin Complaints.csv')

str(mia)

'data.frame':   178 obs. of  95 variables:
 $ company.name                                                                  : chr  "4 Ever Life Insurance Company" "Aetna Dental, Inc." "Aetna Health Inc. ( a Pennsylvania corporation )" "Aetna Health Insurance Company" ...
 $ naic..                                                                        : int  80985 95910 95109 NA 60054 95163 61301 96202 47058 NA ...
 $ year                                                                          : int  2021 2021 2021 2021 2021 2021 2021 2021 2021 2021 ...
 $ adverse.decisions.company.total                                               : int  1 693 115 NA 188 NA 285 21128 7057 NA ...
 $ adverse.decisions.by.carrier.percent                                          : num  0 0.009 0.001 NA 0.002 NA 0.004 0.26 0.087 NA ...
 $ adverse.decisions.inpatient.hospital.services.number                          : int  1 0 39 NA 69 NA 0 12 2 NA ...
 $ adverse.decisions.inpatient.hospital.services.percent.total                   : num  1 0 0.339 NA 0.367 NA 0 0.001 0 NA ...
 $ adverse.decisions.emergency.room.services.number                              : int  0 0 0 NA 0 NA 0 0 1 NA ...
 $ adverse.decisions.emergency.room.services.percent.total                       : num  0 0 0 NA 0 NA 0 0 0 NA ...
 $ adverse.decisions.mental.health.services.number                               : int  0 0 4 NA 11 NA 0 298 31 NA ...
 $ adverse.decisions.mental.health.services.percent.total                        : num  0 0 0.035 NA 0.059 NA 0 0.014 0.004 NA ...
 $ adverse.decisions.physician.services.number                                   : int  0 0 42 NA 68 NA 0 1182 184 NA ...
 $ adverse.decisions.physician.services.percent..total                           : num  0 0 0.365 NA 0.362 NA 0 0.056 0.026 NA ...
 $ adverse.decisions.laboratory..radiology.services.number                       : int  0 0 2 NA 8 NA 0 3015 239 NA ...
 $ adverse.decisions.laboratory..radiology.services.percent..total.              : num  0 0 0.017 NA 0.043 NA 0 0.143 0.034 NA ...
 $ adverse.decisions.pharmacy.services.number                                    : int  0 0 15 NA 19 NA 0 15727 5810 NA ...
 $ adverse.decisions.pharmacy.services.percent.total                             : num  0 0 0.13 NA 0.101 NA 0 0.744 0.823 NA ...
 $ adverse.decisions.pt..ot..st.services..incl.inpat.rehab..number.              : int  0 0 4 NA 5 NA 0 85 14 NA ...
 $ adverse.decisions.pt..ot..st.services..incl.inpat.rehab..percent..total..     : num  0 0 0.035 NA 0.027 NA 0 0.004 0.002 NA ...
 $ adverse.decisions.skilled.nurse.facility.sub.acute.nursing.home.number        : int  0 0 2 NA 2 NA 0 6 2 NA ...
 $ adverse.decisions.skilled.nurse.facility.sub.acute.nursing.home.percent..total: num  0 0 0.017 NA 0.011 NA 0 0 0 NA ...
 $ adverse.decisions.durable.medical.equipment.services.number                   : int  0 0 2 NA 2 NA 0 786 111 NA ...
 $ adverse.decisions.durable.medical.equipment.services.percent..total           : num  0 0 0.017 NA 0.011 NA 0 0.037 0.016 NA ...
 $ adverse.decisions.dental.number                                               : int  0 693 0 NA 0 NA 285 4 659 NA ...
 $ adverse.decisions.dental.percent.total                                        : num  0 1 0 NA 0 NA 1 0 0.093 NA ...
 $ adverse.decisions.home.health.services.number                                 : int  0 0 0 NA 1 NA 0 9 4 NA ...
 $ adverse.decisions.home.health.services.percent.total                          : num  0 0 0 NA 0.005 NA 0 0 0.001 NA ...
 $ adverse.decisions.obesity..ivf..podiatry..hearing.and.vision.number.          : int  0 0 5 NA 3 NA 0 4 0 NA ...
 $ adverse.decisions.obesity..ivf..podiatry..hearing.and.vision.percent..total.  : num  0 0 0.043 NA 0.016 NA 0 0 0 NA ...
 $ grievances.filed.company.total                                                : int  10 1 217 NA 143 174 134 1738 901 NA ...
 $ grievances.filed.percent.of.all.companies                                     : num  0.001 0 0.027 NA 0.018 0.022 0.017 0.215 0.112 NA ...
 $ grievance.inpatient.hospital.services.number                                  : int  2 0 23 NA 18 0 0 8 0 NA ...
 $ grievance.inpatient.hospital.services.percent..total                          : num  0.2 0 0.106 NA 0.126 0 0 0.005 0 NA ...
 $ grievance.emergency.room.services.number                                      : int  2 0 5 NA 1 0 0 2 0 NA ...
 $ grievance.emergency.room.services.percent.total                               : num  0.2 0 0.023 NA 0.007 0 0 0.001 0 NA ...
 $ grievance.mental.health.services.number                                       : int  0 0 0 NA 3 3 0 8 1 NA ...
 $ grievance.mental.health.services.percent.total                                : num  0 0 0 NA 0.014 0.021 0 0.005 0.001 NA ...
 $ grievance.physician.services.number                                           : int  2 0 96 NA 53 0 0 38 6 NA ...
 $ grievance.physician.services.percent.total                                    : num  0.2 0 0.442 NA 0.371 0 0 0.022 0.007 NA ...
 $ grievance.laboratory..radiology.services.number                               : int  4 0 34 NA 26 0 0 112 16 NA ...
 $ grievance.laboratory..radiology.services.percent.total.                       : num  0.4 0 0.157 NA 0.182 0 0 0.064 0.018 NA ...
 $ grievance.pharmacy.services.number                                            : int  0 0 46 NA 31 0 0 1476 796 NA ...
 $ grievance.pharmacy.services.percent.total                                     : num  0 0 0.212 NA 0.217 0 0 0.849 0.883 NA ...
 $ grievance.pt..ot..st.services..incl.inpat.rehab..number.                      : int  0 0 0 NA 1 0 0 6 0 NA ...
 $ grievance.pt..ot..st.services..incl.inpat.rehab..percent.total..              : num  0 0 0 NA 0.007 0 0 0.003 0 NA ...
 $ grievance.skilled.nurse.facility.sub.acute.nursing.home.number                : int  0 0 0 NA 0 0 0 2 0 NA ...
 $ grievance.skilled.nurse.facility.sub.acute.nursing.home.percent.total         : num  0 0 0 NA 0 0 0 0.001 0 NA ...
 $ grievance.durable.medical.equipment.services.number                           : int  0 0 0 NA 1 0 0 83 4 NA ...
 $ grievance.durable.medical.equipment.services.percent.total                    : num  0 0 0 NA 0.007 0 0 0.048 0.004 NA ...
 $ grievance.dental.number                                                       : int  0 1 0 NA 3 174 134 3 78 NA ...
 $ grievance.dental.percent.total                                                : num  0 1 0 NA 0.021 1 1 0.002 0.087 NA ...
 $ grievance.home.health.services.number                                         : int  0 0 1 NA 1 0 0 0 0 NA ...
 $ grievance.home.health.services.percent.total                                  : num  0 0 0.005 NA 0.007 0 0 0 0 NA ...
 $ grievance.obesity..ivf..podiatry..hearing.and.vision.number.                  : int  0 0 9 NA 5 0 0 0 0 NA ...
 $ grievance.obesity..ivf..podiatry..hearing.and.vision.percent.total.           : num  0 0 0.041 NA 0.035 0 0 0 0 NA ...
 $ grievances.upheld.number                                                      : int  3 0 110 NA 80 79 76 648 288 NA ...
 $ grievances.upheld.percent.total                                               : num  0.3 0 0.507 NA 0.559 0.454 0.567 0.373 0.32 NA ...
 $ grievances.overturned.number                                                  : int  7 1 94 NA 62 71 46 1088 608 NA ...
 $ grievances.overturned.percent.total                                           : num  0.7 1 0.433 NA 0.434 0.408 0.343 0.626 0.675 NA ...
 $ grievances.modified.number                                                    : int  0 0 13 NA 1 24 12 2 5 NA ...
 $ grievances.modified.percent.total                                             : num  0 0 0.06 NA 0.007 0.138 0.09 0.001 0.006 NA ...
 $ hospital.length.of.stay.total                                                 : int  4 NA NA NA NA NA NA 8 NA NA ...
 $ hospital.length.of.stay.outcome                                               : int  2 NA NA NA NA NA NA 3 NA NA ...
 $ grievances.upheld.number.for.hospital.los                                     : int  2 NA NA NA NA NA NA 2 NA NA ...
 $ grievances.upheld.percent.for.hospital.los                                    : num  1 NA NA NA NA NA NA 0.667 NA NA ...
 $ grievances.overturned.number.for.hospital.los                                 : int  0 NA NA NA NA NA NA 1 NA NA ...
 $ grievances.overturned.percent.for.hospital.los                                : num  0 NA NA NA NA NA NA 0.333 NA NA ...
 $ grievances.modified.number.for.hospital.los                                   : int  0 NA NA NA NA NA NA 0 NA NA ...
 $ grievances.modified.percent.for.hospital.los                                  : num  0 NA NA NA NA NA NA 0 NA NA ...
 $ emergency.cases...resolution.hours.1.st.quarter.                              : num  432 NA NA NA NA NA NA 24 24 NA ...
 $ emergency.cases...resolution.hours.2nd.quarter.                               : num  0 NA NA NA NA NA NA 24 24 NA ...
 $ emergency.cases...resolution.hours.3rd..quarter.                              : num  0 NA NA NA NA NA NA 24 24 NA ...
 $ emergency.cases...resolution.hours.4th.quarter.                               : num  0 NA NA NA NA NA NA 24 24 NA ...
 $ non.emergency.cases...resolution.days.1st.quarter                             : num  3 0 20.4 NA 17.3 22 34 16.5 15 NA ...
 $ non.emergency.cases...resolution.days.2nd.quarter                             : num  1 0 19.2 NA 21.7 25.6 28 22.3 15.5 NA ...
 $ non.emergency.cases...resolution.days.3rd.quarter                             : num  0 0 24.6 NA 22.3 28 24 23.4 19.8 NA ...
 $ non.emergency.cases...resolution.days.4th.quarter                             : num  0 22 23.9 NA 22 33.3 26 14.1 17.1 NA ...
 $ total.number.of..emergencies..cases                                           : int  2 NA NA NA NA NA NA 535 264 NA ...
 $ emergencies.outcome                                                           : int  2 NA NA NA NA NA NA 180 86 NA ...
 $ internal.emergency.grievances.upheld.number                                   : int  0 NA NA NA NA NA NA 41 18 NA ...
 $ internal.emergency.grievances.upheld.percent                                  : num  0 NA NA NA NA NA NA 0.228 0.209 NA ...
 $ internal.emergency.grievances.overturned.number                               : int  2 NA NA NA NA NA NA 139 68 NA ...
 $ internal.emergency.grievances.overturned.percent                              : num  1 NA NA NA NA NA NA 0.772 0.791 NA ...
 $ internal.emergency.grievances.modified.number                                 : int  0 NA NA NA NA NA NA 0 0 NA ...
 $ internal.emergency.grievances.modified.percent                                : num  0 NA NA NA NA NA NA 0 0 NA ...
 $ complaints.investigated.total                                                 : int  NA NA 8 1 3 NA 1 71 69 6 ...
 $ complaints.investigated.percent                                               : num  NA NA 0.03 0 0 NA 0 0.23 0.23 0.02 ...
 $ carrier.upheld.by.mia.number                                                  : int  NA NA 3 0 1 NA 0 27 16 1 ...
 $ carrier.upheld.by.mia.percent                                                 : num  NA NA 0.38 0 0.33 NA 0 0.38 0.23 0.17 ...
 $ carrier.reversed.by.mia.number                                                : int  NA NA 1 1 1 NA 0 19 19 1 ...
 $ carrier.reversed.by.mia.percent                                               : num  NA NA 0.13 1 1 NA 0 0.27 0.28 0.17 ...
 $ carrier.modified.by.mia.number                                                : int  NA NA 0 0 0 NA 0 1 1 0 ...
 $ carrier.modified.by.mia.percent                                               : chr  "" "" "0" "0" ...
 $ carrier.reversed.itself.during.investigation.number                           : int  NA NA 4 0 1 NA 1 24 33 4 ...
 $ carrier.reversed.itself.during.investigation.percent                          : num  NA NA 0.5 0 0.33 NA 1 0.34 0.48 0.67 ...

names(mia) <- tolower(names(mia))
names(mia) <- gsub(' ',"_",names(mia))
names(mia) <- gsub("\\.", "_",names(mia))

colnames(mia)

 [1] "company_name"                                                                  
 [2] "naic__"                                                                        
 [3] "year"                                                                          
 [4] "adverse_decisions_company_total"                                               
 [5] "adverse_decisions_by_carrier_percent"                                          
 [6] "adverse_decisions_inpatient_hospital_services_number"                          
 [7] "adverse_decisions_inpatient_hospital_services_percent_total"                   
 [8] "adverse_decisions_emergency_room_services_number"                              
 [9] "adverse_decisions_emergency_room_services_percent_total"                       
[10] "adverse_decisions_mental_health_services_number"                               
[11] "adverse_decisions_mental_health_services_percent_total"                        
[12] "adverse_decisions_physician_services_number"                                   
[13] "adverse_decisions_physician_services_percent__total"                           
[14] "adverse_decisions_laboratory__radiology_services_number"                       
[15] "adverse_decisions_laboratory__radiology_services_percent__total_"              
[16] "adverse_decisions_pharmacy_services_number"                                    
[17] "adverse_decisions_pharmacy_services_percent_total"                             
[18] "adverse_decisions_pt__ot__st_services__incl_inpat_rehab__number_"              
[19] "adverse_decisions_pt__ot__st_services__incl_inpat_rehab__percent__total__"     
[20] "adverse_decisions_skilled_nurse_facility_sub_acute_nursing_home_number"        
[21] "adverse_decisions_skilled_nurse_facility_sub_acute_nursing_home_percent__total"
[22] "adverse_decisions_durable_medical_equipment_services_number"                   
[23] "adverse_decisions_durable_medical_equipment_services_percent__total"           
[24] "adverse_decisions_dental_number"                                               
[25] "adverse_decisions_dental_percent_total"                                        
[26] "adverse_decisions_home_health_services_number"                                 
[27] "adverse_decisions_home_health_services_percent_total"                          
[28] "adverse_decisions_obesity__ivf__podiatry__hearing_and_vision_number_"          
[29] "adverse_decisions_obesity__ivf__podiatry__hearing_and_vision_percent__total_"  
[30] "grievances_filed_company_total"                                                
[31] "grievances_filed_percent_of_all_companies"                                     
[32] "grievance_inpatient_hospital_services_number"                                  
[33] "grievance_inpatient_hospital_services_percent__total"                          
[34] "grievance_emergency_room_services_number"                                      
[35] "grievance_emergency_room_services_percent_total"                               
[36] "grievance_mental_health_services_number"                                       
[37] "grievance_mental_health_services_percent_total"                                
[38] "grievance_physician_services_number"                                           
[39] "grievance_physician_services_percent_total"                                    
[40] "grievance_laboratory__radiology_services_number"                               
[41] "grievance_laboratory__radiology_services_percent_total_"                       
[42] "grievance_pharmacy_services_number"                                            
[43] "grievance_pharmacy_services_percent_total"                                     
[44] "grievance_pt__ot__st_services__incl_inpat_rehab__number_"                      
[45] "grievance_pt__ot__st_services__incl_inpat_rehab__percent_total__"              
[46] "grievance_skilled_nurse_facility_sub_acute_nursing_home_number"                
[47] "grievance_skilled_nurse_facility_sub_acute_nursing_home_percent_total"         
[48] "grievance_durable_medical_equipment_services_number"                           
[49] "grievance_durable_medical_equipment_services_percent_total"                    
[50] "grievance_dental_number"                                                       
[51] "grievance_dental_percent_total"                                                
[52] "grievance_home_health_services_number"                                         
[53] "grievance_home_health_services_percent_total"                                  
[54] "grievance_obesity__ivf__podiatry__hearing_and_vision_number_"                  
[55] "grievance_obesity__ivf__podiatry__hearing_and_vision_percent_total_"           
[56] "grievances_upheld_number"                                                      
[57] "grievances_upheld_percent_total"                                               
[58] "grievances_overturned_number"                                                  
[59] "grievances_overturned_percent_total"                                           
[60] "grievances_modified_number"                                                    
[61] "grievances_modified_percent_total"                                             
[62] "hospital_length_of_stay_total"                                                 
[63] "hospital_length_of_stay_outcome"                                               
[64] "grievances_upheld_number_for_hospital_los"                                     
[65] "grievances_upheld_percent_for_hospital_los"                                    
[66] "grievances_overturned_number_for_hospital_los"                                 
[67] "grievances_overturned_percent_for_hospital_los"                                
[68] "grievances_modified_number_for_hospital_los"                                   
[69] "grievances_modified_percent_for_hospital_los"                                  
[70] "emergency_cases___resolution_hours_1_st_quarter_"                              
[71] "emergency_cases___resolution_hours_2nd_quarter_"                               
[72] "emergency_cases___resolution_hours_3rd__quarter_"                              
[73] "emergency_cases___resolution_hours_4th_quarter_"                               
[74] "non_emergency_cases___resolution_days_1st_quarter"                             
[75] "non_emergency_cases___resolution_days_2nd_quarter"                             
[76] "non_emergency_cases___resolution_days_3rd_quarter"                             
[77] "non_emergency_cases___resolution_days_4th_quarter"                             
[78] "total_number_of__emergencies__cases"                                           
[79] "emergencies_outcome"                                                           
[80] "internal_emergency_grievances_upheld_number"                                   
[81] "internal_emergency_grievances_upheld_percent"                                  
[82] "internal_emergency_grievances_overturned_number"                               
[83] "internal_emergency_grievances_overturned_percent"                              
[84] "internal_emergency_grievances_modified_number"                                 
[85] "internal_emergency_grievances_modified_percent"                                
[86] "complaints_investigated_total"                                                 
[87] "complaints_investigated_percent"                                               
[88] "carrier_upheld_by_mia_number"                                                  
[89] "carrier_upheld_by_mia_percent"                                                 
[90] "carrier_reversed_by_mia_number"                                                
[91] "carrier_reversed_by_mia_percent"                                               
[92] "carrier_modified_by_mia_number"                                                
[93] "carrier_modified_by_mia_percent"                                               
[94] "carrier_reversed_itself_during_investigation_number"                           
[95] "carrier_reversed_itself_during_investigation_percent"                          

colSums(is.na(mia))

                                                                  company_name 
                                                                             0 
                                                                        naic__ 
                                                                            44 
                                                                          year 
                                                                             0 
                                               adverse_decisions_company_total 
                                                                            25 
                                          adverse_decisions_by_carrier_percent 
                                                                            25 
                          adverse_decisions_inpatient_hospital_services_number 
                                                                            25 
                   adverse_decisions_inpatient_hospital_services_percent_total 
                                                                            25 
                              adverse_decisions_emergency_room_services_number 
                                                                            25 
                       adverse_decisions_emergency_room_services_percent_total 
                                                                            25 
                               adverse_decisions_mental_health_services_number 
                                                                            25 
                        adverse_decisions_mental_health_services_percent_total 
                                                                            25 
                                   adverse_decisions_physician_services_number 
                                                                            25 
                           adverse_decisions_physician_services_percent__total 
                                                                            25 
                       adverse_decisions_laboratory__radiology_services_number 
                                                                            25 
              adverse_decisions_laboratory__radiology_services_percent__total_ 
                                                                            25 
                                    adverse_decisions_pharmacy_services_number 
                                                                            25 
                             adverse_decisions_pharmacy_services_percent_total 
                                                                            25 
              adverse_decisions_pt__ot__st_services__incl_inpat_rehab__number_ 
                                                                            25 
     adverse_decisions_pt__ot__st_services__incl_inpat_rehab__percent__total__ 
                                                                            25 
        adverse_decisions_skilled_nurse_facility_sub_acute_nursing_home_number 
                                                                            25 
adverse_decisions_skilled_nurse_facility_sub_acute_nursing_home_percent__total 
                                                                            25 
                   adverse_decisions_durable_medical_equipment_services_number 
                                                                            25 
           adverse_decisions_durable_medical_equipment_services_percent__total 
                                                                            25 
                                               adverse_decisions_dental_number 
                                                                            25 
                                        adverse_decisions_dental_percent_total 
                                                                            25 
                                 adverse_decisions_home_health_services_number 
                                                                            25 
                          adverse_decisions_home_health_services_percent_total 
                                                                            25 
          adverse_decisions_obesity__ivf__podiatry__hearing_and_vision_number_ 
                                                                            25 
  adverse_decisions_obesity__ivf__podiatry__hearing_and_vision_percent__total_ 
                                                                            25 
                                                grievances_filed_company_total 
                                                                            42 
                                     grievances_filed_percent_of_all_companies 
                                                                            42 
                                  grievance_inpatient_hospital_services_number 
                                                                            42 
                          grievance_inpatient_hospital_services_percent__total 
                                                                            42 
                                      grievance_emergency_room_services_number 
                                                                            42 
                               grievance_emergency_room_services_percent_total 
                                                                            42 
                                       grievance_mental_health_services_number 
                                                                            41 
                                grievance_mental_health_services_percent_total 
                                                                            41 
                                           grievance_physician_services_number 
                                                                            41 
                                    grievance_physician_services_percent_total 
                                                                            41 
                               grievance_laboratory__radiology_services_number 
                                                                            41 
                       grievance_laboratory__radiology_services_percent_total_ 
                                                                            41 
                                            grievance_pharmacy_services_number 
                                                                            42 
                                     grievance_pharmacy_services_percent_total 
                                                                            42 
                      grievance_pt__ot__st_services__incl_inpat_rehab__number_ 
                                                                            43 
              grievance_pt__ot__st_services__incl_inpat_rehab__percent_total__ 
                                                                            43 
                grievance_skilled_nurse_facility_sub_acute_nursing_home_number 
                                                                            42 
         grievance_skilled_nurse_facility_sub_acute_nursing_home_percent_total 
                                                                            42 
                           grievance_durable_medical_equipment_services_number 
                                                                            42 
                    grievance_durable_medical_equipment_services_percent_total 
                                                                            42 
                                                       grievance_dental_number 
                                                                            42 
                                                grievance_dental_percent_total 
                                                                            42 
                                         grievance_home_health_services_number 
                                                                            42 
                                  grievance_home_health_services_percent_total 
                                                                            42 
                  grievance_obesity__ivf__podiatry__hearing_and_vision_number_ 
                                                                            42 
           grievance_obesity__ivf__podiatry__hearing_and_vision_percent_total_ 
                                                                            42 
                                                      grievances_upheld_number 
                                                                            45 
                                               grievances_upheld_percent_total 
                                                                            45 
                                                  grievances_overturned_number 
                                                                            45 
                                           grievances_overturned_percent_total 
                                                                            45 
                                                    grievances_modified_number 
                                                                            45 
                                             grievances_modified_percent_total 
                                                                            45 
                                                 hospital_length_of_stay_total 
                                                                           151 
                                               hospital_length_of_stay_outcome 
                                                                           151 
                                     grievances_upheld_number_for_hospital_los 
                                                                           151 
                                    grievances_upheld_percent_for_hospital_los 
                                                                           151 
                                 grievances_overturned_number_for_hospital_los 
                                                                           151 
                                grievances_overturned_percent_for_hospital_los 
                                                                           151 
                                   grievances_modified_number_for_hospital_los 
                                                                           151 
                                  grievances_modified_percent_for_hospital_los 
                                                                           151 
                              emergency_cases___resolution_hours_1_st_quarter_ 
                                                                           133 
                               emergency_cases___resolution_hours_2nd_quarter_ 
                                                                           133 
                              emergency_cases___resolution_hours_3rd__quarter_ 
                                                                           133 
                               emergency_cases___resolution_hours_4th_quarter_ 
                                                                           133 
                             non_emergency_cases___resolution_days_1st_quarter 
                                                                            39 
                             non_emergency_cases___resolution_days_2nd_quarter 
                                                                            39 
                             non_emergency_cases___resolution_days_3rd_quarter 
                                                                            39 
                             non_emergency_cases___resolution_days_4th_quarter 
                                                                            39 
                                           total_number_of__emergencies__cases 
                                                                           136 
                                                           emergencies_outcome 
                                                                           136 
                                   internal_emergency_grievances_upheld_number 
                                                                           136 
                                  internal_emergency_grievances_upheld_percent 
                                                                           136 
                               internal_emergency_grievances_overturned_number 
                                                                           136 
                              internal_emergency_grievances_overturned_percent 
                                                                           136 
                                 internal_emergency_grievances_modified_number 
                                                                           136 
                                internal_emergency_grievances_modified_percent 
                                                                           136 
                                                 complaints_investigated_total 
                                                                            94 
                                               complaints_investigated_percent 
                                                                            94 
                                                  carrier_upheld_by_mia_number 
                                                                            94 
                                                 carrier_upheld_by_mia_percent 
                                                                            94 
                                                carrier_reversed_by_mia_number 
                                                                            94 
                                               carrier_reversed_by_mia_percent 
                                                                            94 
                                                carrier_modified_by_mia_number 
                                                                            94 
                                               carrier_modified_by_mia_percent 
                                                                             0 
                           carrier_reversed_itself_during_investigation_number 
                                                                            94 
                          carrier_reversed_itself_during_investigation_percent 
                                                                            94 

summary(mia)

 company_name           naic__           year     
 Length:178         Min.   :21113   Min.   :2021  
 Class :character   1st Qu.:60321   1st Qu.:2021  
 Mode  :character   Median :68381   Median :2022  
                    Mean   :71058   Mean   :2022  
                    3rd Qu.:85766   3rd Qu.:2023  
                    Max.   :96940   Max.   :2024  
                    NA's   :44                    
 adverse_decisions_company_total adverse_decisions_by_carrier_percent
 Min.   :     1                  Min.   :0.00000                     
 1st Qu.:    27                  1st Qu.:0.00000                     
 Median :   286                  Median :0.00300                     
 Mean   :  5190                  Mean   :0.04993                     
 3rd Qu.:  1421                  3rd Qu.:0.01400                     
 Max.   :111426                  Max.   :1.00100                     
 NA's   :25                      NA's   :25                          
 adverse_decisions_inpatient_hospital_services_number
 Min.   :   0.00                                     
 1st Qu.:   0.00                                     
 Median :   0.00                                     
 Mean   :  76.76                                     
 3rd Qu.:  20.00                                     
 Max.   :1786.00                                     
 NA's   :25                                          
 adverse_decisions_inpatient_hospital_services_percent_total
 Min.   :0.00000                                            
 1st Qu.:0.00000                                            
 Median :0.00000                                            
 Mean   :0.06061                                            
 3rd Qu.:0.01900                                            
 Max.   :1.00000                                            
 NA's   :25                                                 
 adverse_decisions_emergency_room_services_number
 Min.   :  0.000                                 
 1st Qu.:  0.000                                 
 Median :  0.000                                 
 Mean   :  4.993                                 
 3rd Qu.:  0.000                                 
 Max.   :199.000                                 
 NA's   :25                                      
 adverse_decisions_emergency_room_services_percent_total
 Min.   :0.0000000                                      
 1st Qu.:0.0000000                                      
 Median :0.0000000                                      
 Mean   :0.0003137                                      
 3rd Qu.:0.0000000                                      
 Max.   :0.0150000                                      
 NA's   :25                                             
 adverse_decisions_mental_health_services_number
 Min.   :   0.00                                
 1st Qu.:   0.00                                
 Median :   0.00                                
 Mean   :  47.33                                
 3rd Qu.:   5.00                                
 Max.   :1628.00                                
 NA's   :25                                     
 adverse_decisions_mental_health_services_percent_total
 Min.   :0.00000                                       
 1st Qu.:0.00000                                       
 Median :0.00000                                       
 Mean   :0.01227                                       
 3rd Qu.:0.00400                                       
 Max.   :0.41700                                       
 NA's   :25                                            
 adverse_decisions_physician_services_number
 Min.   :   0.0                             
 1st Qu.:   0.0                             
 Median :   0.0                             
 Mean   : 237.8                             
 3rd Qu.:  78.0                             
 Max.   :4605.0                             
 NA's   :25                                 
 adverse_decisions_physician_services_percent__total
 Min.   :0.00000                                    
 1st Qu.:0.00000                                    
 Median :0.00000                                    
 Mean   :0.05578                                    
 3rd Qu.:0.05700                                    
 Max.   :0.50000                                    
 NA's   :25                                         
 adverse_decisions_laboratory__radiology_services_number
 Min.   :    0.0                                        
 1st Qu.:    0.0                                        
 Median :    0.0                                        
 Mean   :  801.6                                        
 3rd Qu.:   22.0                                        
 Max.   :16634.0                                        
 NA's   :25                                             
 adverse_decisions_laboratory__radiology_services_percent__total_
 Min.   :0.0000                                                  
 1st Qu.:0.0000                                                  
 Median :0.0000                                                  
 Mean   :0.0881                                                  
 3rd Qu.:0.1060                                                  
 Max.   :1.0000                                                  
 NA's   :25                                                      
 adverse_decisions_pharmacy_services_number
 Min.   :    0                             
 1st Qu.:    0                             
 Median :    0                             
 Mean   : 2845                             
 3rd Qu.:   84                             
 Max.   :63958                             
 NA's   :25                                
 adverse_decisions_pharmacy_services_percent_total
 Min.   :0.0000                                   
 1st Qu.:0.0000                                   
 Median :0.0000                                   
 Mean   :0.1734                                   
 3rd Qu.:0.2940                                   
 Max.   :0.8710                                   
 NA's   :25                                       
 adverse_decisions_pt__ot__st_services__incl_inpat_rehab__number_
 Min.   :   0.0                                                  
 1st Qu.:   0.0                                                  
 Median :   0.0                                                  
 Mean   : 206.9                                                  
 3rd Qu.:   5.0                                                  
 Max.   :4565.0                                                  
 NA's   :25                                                      
 adverse_decisions_pt__ot__st_services__incl_inpat_rehab__percent__total__
 Min.   :0.00000                                                          
 1st Qu.:0.00000                                                          
 Median :0.00000                                                          
 Mean   :0.02434                                                          
 3rd Qu.:0.00300                                                          
 Max.   :0.50800                                                          
 NA's   :25                                                               
 adverse_decisions_skilled_nurse_facility_sub_acute_nursing_home_number
 Min.   :  0.000                                                       
 1st Qu.:  0.000                                                       
 Median :  0.000                                                       
 Mean   :  6.497                                                       
 3rd Qu.:  0.000                                                       
 Max.   :238.000                                                       
 NA's   :25                                                            
 adverse_decisions_skilled_nurse_facility_sub_acute_nursing_home_percent__total
 Min.   :0.000000                                                              
 1st Qu.:0.000000                                                              
 Median :0.000000                                                              
 Mean   :0.002235                                                              
 3rd Qu.:0.000000                                                              
 Max.   :0.057000                                                              
 NA's   :25                                                                    
 adverse_decisions_durable_medical_equipment_services_number
 Min.   :   0.00                                            
 1st Qu.:   0.00                                            
 Median :   0.00                                            
 Mean   :  75.12                                            
 3rd Qu.:  14.00                                            
 Max.   :1668.00                                            
 NA's   :25                                                 
 adverse_decisions_durable_medical_equipment_services_percent__total
 Min.   :0.00000                                                    
 1st Qu.:0.00000                                                    
 Median :0.00000                                                    
 Mean   :0.01934                                                    
 3rd Qu.:0.01100                                                    
 Max.   :1.00000                                                    
 NA's   :25                                                         
 adverse_decisions_dental_number adverse_decisions_dental_percent_total
 Min.   :    0                   Min.   :0.0000                        
 1st Qu.:    4                   1st Qu.:0.0020                        
 Median :   47                   Median :1.0000                        
 Mean   :  826                   Mean   :0.5294                        
 3rd Qu.:  526                   3rd Qu.:1.0000                        
 Max.   :16732                   Max.   :1.1250                        
 NA's   :25                      NA's   :25                            
 adverse_decisions_home_health_services_number
 Min.   :  0.000                              
 1st Qu.:  0.000                              
 Median :  0.000                              
 Mean   :  6.431                              
 3rd Qu.:  2.000                              
 Max.   :143.000                              
 NA's   :25                                   
 adverse_decisions_home_health_services_percent_total
 Min.   :0.000                                       
 1st Qu.:0.000                                       
 Median :0.000                                       
 Mean   :0.002                                       
 3rd Qu.:0.001                                       
 Max.   :0.071                                       
 NA's   :25                                          
 adverse_decisions_obesity__ivf__podiatry__hearing_and_vision_number_
 Min.   :   0.0                                                      
 1st Qu.:   0.0                                                      
 Median :   0.0                                                      
 Mean   :  52.9                                                      
 3rd Qu.:   8.0                                                      
 Max.   :1160.0                                                      
 NA's   :25                                                          
 adverse_decisions_obesity__ivf__podiatry__hearing_and_vision_percent__total_
 Min.   :0.00000                                                             
 1st Qu.:0.00000                                                             
 Median :0.00000                                                             
 Mean   :0.02345                                                             
 3rd Qu.:0.00200                                                             
 Max.   :0.66700                                                             
 NA's   :25                                                                  
 grievances_filed_company_total grievances_filed_percent_of_all_companies
 Min.   :    1.00               Min.   :0.00000                          
 1st Qu.:    9.75               1st Qu.:0.00100                          
 Median :   77.50               Median :0.00750                          
 Mean   :  595.31               Mean   :0.05819                          
 3rd Qu.:  299.50               3rd Qu.:0.02825                          
 Max.   :11526.00               Max.   :1.00200                          
 NA's   :42                     NA's   :42                               
 grievance_inpatient_hospital_services_number
 Min.   :  0.000                             
 1st Qu.:  0.000                             
 Median :  0.000                             
 Mean   :  7.088                             
 3rd Qu.:  4.000                             
 Max.   :171.000                             
 NA's   :42                                  
 grievance_inpatient_hospital_services_percent__total
 Min.   :0.00000                                     
 1st Qu.:0.00000                                     
 Median :0.00000                                     
 Mean   :0.03207                                     
 3rd Qu.:0.01150                                     
 Max.   :0.75000                                     
 NA's   :42                                          
 grievance_emergency_room_services_number
 Min.   : 0.000                          
 1st Qu.: 0.000                          
 Median : 0.000                          
 Mean   : 1.618                          
 3rd Qu.: 0.000                          
 Max.   :33.000                          
 NA's   :42                              
 grievance_emergency_room_services_percent_total
 Min.   :0.00000                                
 1st Qu.:0.00000                                
 Median :0.00000                                
 Mean   :0.01063                                
 3rd Qu.:0.00000                                
 Max.   :0.66700                                
 NA's   :42                                     
 grievance_mental_health_services_number
 Min.   :  0.000                        
 1st Qu.:  0.000                        
 Median :  0.000                        
 Mean   :  6.248                        
 3rd Qu.:  1.000                        
 Max.   :219.000                        
 NA's   :41                             
 grievance_mental_health_services_percent_total
 Min.   :0.0000                                
 1st Qu.:0.0000                                
 Median :0.0000                                
 Mean   :0.0155                                
 3rd Qu.:0.0050                                
 Max.   :0.4850                                
 NA's   :41                                    
 grievance_physician_services_number grievance_physician_services_percent_total
 Min.   :  0.00                      Min.   :0.00000                           
 1st Qu.:  0.00                      1st Qu.:0.00000                           
 Median :  0.00                      Median :0.00000                           
 Mean   : 34.72                      Mean   :0.08617                           
 3rd Qu.: 18.00                      3rd Qu.:0.10200                           
 Max.   :722.00                      Max.   :0.75000                           
 NA's   :41                          NA's   :41                                
 grievance_laboratory__radiology_services_number
 Min.   :   0.00                                
 1st Qu.:   0.00                                
 Median :   0.00                                
 Mean   :  77.66                                
 3rd Qu.:  28.00                                
 Max.   :1705.00                                
 NA's   :41                                     
 grievance_laboratory__radiology_services_percent_total_
 Min.   :0.00000                                        
 1st Qu.:0.00000                                        
 Median :0.00000                                        
 Mean   :0.09931                                        
 3rd Qu.:0.14900                                        
 Max.   :1.00000                                        
 NA's   :41                                             
 grievance_pharmacy_services_number grievance_pharmacy_services_percent_total
 Min.   :   0.00                    Min.   :0.0000                           
 1st Qu.:   0.00                    1st Qu.:0.0000                           
 Median :   0.00                    Median :0.0000                           
 Mean   : 284.78                    Mean   :0.2049                           
 3rd Qu.:  57.25                    3rd Qu.:0.3930                           
 Max.   :5927.00                    Max.   :1.0000                           
 NA's   :42                         NA's   :42                               
 grievance_pt__ot__st_services__incl_inpat_rehab__number_
 Min.   :  0.000                                         
 1st Qu.:  0.000                                         
 Median :  0.000                                         
 Mean   :  4.889                                         
 3rd Qu.:  1.000                                         
 Max.   :124.000                                         
 NA's   :43                                              
 grievance_pt__ot__st_services__incl_inpat_rehab__percent_total__
 Min.   :0.0000                                                  
 1st Qu.:0.0000                                                  
 Median :0.0000                                                  
 Mean   :0.0179                                                  
 3rd Qu.:0.0035                                                  
 Max.   :0.5000                                                  
 NA's   :43                                                      
 grievance_skilled_nurse_facility_sub_acute_nursing_home_number
 Min.   : 0.000                                                
 1st Qu.: 0.000                                                
 Median : 0.000                                                
 Mean   : 1.279                                                
 3rd Qu.: 0.000                                                
 Max.   :41.000                                                
 NA's   :42                                                    
 grievance_skilled_nurse_facility_sub_acute_nursing_home_percent_total
 Min.   :0.000000                                                     
 1st Qu.:0.000000                                                     
 Median :0.000000                                                     
 Mean   :0.002523                                                     
 3rd Qu.:0.000000                                                     
 Max.   :0.100000                                                     
 NA's   :42                                                           
 grievance_durable_medical_equipment_services_number
 Min.   :  0.0                                      
 1st Qu.:  0.0                                      
 Median :  0.0                                      
 Mean   : 13.4                                      
 3rd Qu.:  1.0                                      
 Max.   :376.0                                      
 NA's   :42                                         
 grievance_durable_medical_equipment_services_percent_total
 Min.   :0.00000                                           
 1st Qu.:0.00000                                           
 Median :0.00000                                           
 Mean   :0.01742                                           
 3rd Qu.:0.00700                                           
 Max.   :1.00000                                           
 NA's   :42                                                
 grievance_dental_number grievance_dental_percent_total
 Min.   :   0.00         Min.   :0.0000                
 1st Qu.:   0.00         1st Qu.:0.0000                
 Median :   6.50         Median :0.1425                
 Mean   : 141.78         Mean   :0.4717                
 3rd Qu.:  75.75         3rd Qu.:1.0000                
 Max.   :3169.00         Max.   :1.0000                
 NA's   :42              NA's   :42                    
 grievance_home_health_services_number
 Min.   :0.0000                       
 1st Qu.:0.0000                       
 Median :0.0000                       
 Mean   :0.2206                       
 3rd Qu.:0.0000                       
 Max.   :6.0000                       
 NA's   :42                           
 grievance_home_health_services_percent_total
 Min.   :0.000000                            
 1st Qu.:0.000000                            
 Median :0.000000                            
 Mean   :0.000257                            
 3rd Qu.:0.000000                            
 Max.   :0.008000                            
 NA's   :42                                  
 grievance_obesity__ivf__podiatry__hearing_and_vision_number_
 Min.   :  0.00                                              
 1st Qu.:  0.00                                              
 Median :  0.00                                              
 Mean   : 19.44                                              
 3rd Qu.:  2.00                                              
 Max.   :481.00                                              
 NA's   :42                                                  
 grievance_obesity__ivf__podiatry__hearing_and_vision_percent_total_
 Min.   :0.00000                                                    
 1st Qu.:0.00000                                                    
 Median :0.00000                                                    
 Mean   :0.02915                                                    
 3rd Qu.:0.00200                                                    
 Max.   :1.00000                                                    
 NA's   :42                                                         
 grievances_upheld_number grievances_upheld_percent_total
 Min.   :   0.0           Min.   :0.0000                 
 1st Qu.:   6.0           1st Qu.:0.4110                 
 Median :  48.0           Median :0.5100                 
 Mean   : 281.6           Mean   :0.5439                 
 3rd Qu.: 176.0           3rd Qu.:0.6490                 
 Max.   :5353.0           Max.   :1.0000                 
 NA's   :45               NA's   :45                     
 grievances_overturned_number grievances_overturned_percent_total
 Min.   :   0.0               Min.   :0.0000                     
 1st Qu.:   3.0               1st Qu.:0.2670                     
 Median :  31.0               Median :0.4390                     
 Mean   : 301.3               Mean   :0.4034                     
 3rd Qu.: 128.0               3rd Qu.:0.5480                     
 Max.   :5752.0               Max.   :1.0000                     
 NA's   :45                   NA's   :45                         
 grievances_modified_number grievances_modified_percent_total
 Min.   :  0.00             Min.   :0.00000                  
 1st Qu.:  0.00             1st Qu.:0.00000                  
 Median :  3.00             Median :0.01900                  
 Mean   : 25.79             Mean   :0.05339                  
 3rd Qu.: 11.00             3rd Qu.:0.05600                  
 Max.   :510.00             Max.   :1.00000                  
 NA's   :45                 NA's   :45                       
 hospital_length_of_stay_total hospital_length_of_stay_outcome
 Min.   :  1.0                 Min.   : 1.000                 
 1st Qu.:  1.5                 1st Qu.: 1.000                 
 Median :  8.0                 Median : 3.000                 
 Mean   : 18.3                 Mean   : 4.741                 
 3rd Qu.: 23.0                 3rd Qu.: 5.000                 
 Max.   :118.0                 Max.   :18.000                 
 NA's   :151                   NA's   :151                    
 grievances_upheld_number_for_hospital_los
 Min.   : 0.000                           
 1st Qu.: 1.000                           
 Median : 1.000                           
 Mean   : 2.889                           
 3rd Qu.: 3.500                           
 Max.   :13.000                           
 NA's   :151                              
 grievances_upheld_percent_for_hospital_los
 Min.   :0.0000                            
 1st Qu.:0.3485                            
 Median :0.7140                            
 Mean   :0.6282                            
 3rd Qu.:1.0000                            
 Max.   :1.0000                            
 NA's   :151                               
 grievances_overturned_number_for_hospital_los
 Min.   :0.00                                 
 1st Qu.:0.00                                 
 Median :1.00                                 
 Mean   :1.63                                 
 3rd Qu.:2.50                                 
 Max.   :7.00                                 
 NA's   :151                                  
 grievances_overturned_percent_for_hospital_los
 Min.   :0.0000                                
 1st Qu.:0.0000                                
 Median :0.2778                                
 Mean   :0.5405                                
 3rd Qu.:0.7085                                
 Max.   :5.5385                                
 NA's   :151                                   
 grievances_modified_number_for_hospital_los
 Min.   :0.0000                             
 1st Qu.:0.0000                             
 Median :0.0000                             
 Mean   :0.2222                             
 3rd Qu.:0.0000                             
 Max.   :1.0000                             
 NA's   :151                                
 grievances_modified_percent_for_hospital_los
 Min.   :0.00000                             
 1st Qu.:0.00000                             
 Median :0.00000                             
 Mean   :0.03293                             
 3rd Qu.:0.00000                             
 Max.   :0.25000                             
 NA's   :151                                 
 emergency_cases___resolution_hours_1_st_quarter_
 Min.   :  0.00                                  
 1st Qu.: 18.00                                  
 Median : 24.00                                  
 Mean   : 79.65                                  
 3rd Qu.: 31.90                                  
 Max.   :660.10                                  
 NA's   :133                                     
 emergency_cases___resolution_hours_2nd_quarter_
 Min.   :  0.00                                 
 1st Qu.: 21.00                                 
 Median : 24.00                                 
 Mean   : 59.44                                 
 3rd Qu.: 42.00                                 
 Max.   :527.40                                 
 NA's   :133                                    
 emergency_cases___resolution_hours_3rd__quarter_
 Min.   :  0.00                                  
 1st Qu.: 22.00                                  
 Median : 24.00                                  
 Mean   : 68.41                                  
 3rd Qu.: 41.00                                  
 Max.   :494.80                                  
 NA's   :133                                     
 emergency_cases___resolution_hours_4th_quarter_
 Min.   :  0.00                                 
 1st Qu.: 15.00                                 
 Median : 24.00                                 
 Mean   : 47.61                                 
 3rd Qu.: 34.00                                 
 Max.   :298.30                                 
 NA's   :133                                    
 non_emergency_cases___resolution_days_1st_quarter
 Min.   :  0.00                                   
 1st Qu.:  6.00                                   
 Median : 18.20                                   
 Mean   : 35.36                                   
 3rd Qu.: 28.95                                   
 Max.   :689.50                                   
 NA's   :39                                       
 non_emergency_cases___resolution_days_2nd_quarter
 Min.   :  0.00                                   
 1st Qu.:  8.00                                   
 Median : 21.00                                   
 Mean   : 41.65                                   
 3rd Qu.: 29.25                                   
 Max.   :805.60                                   
 NA's   :39                                       
 non_emergency_cases___resolution_days_3rd_quarter
 Min.   :  0.00                                   
 1st Qu.:  3.00                                   
 Median : 18.40                                   
 Mean   : 35.95                                   
 3rd Qu.: 28.25                                   
 Max.   :803.60                                   
 NA's   :39                                       
 non_emergency_cases___resolution_days_4th_quarter
 Min.   :  0.00                                   
 1st Qu.:  6.85                                   
 Median : 17.80                                   
 Mean   : 39.41                                   
 3rd Qu.: 30.50                                   
 Max.   :861.80                                   
 NA's   :39                                       
 total_number_of__emergencies__cases emergencies_outcome
 Min.   :   1.0                      Min.   :  1.0      
 1st Qu.:  23.5                      1st Qu.: 21.0      
 Median : 177.0                      Median : 63.0      
 Mean   : 311.5                      Mean   :140.0      
 3rd Qu.: 320.2                      3rd Qu.:169.5      
 Max.   :2491.0                      Max.   :904.0      
 NA's   :136                         NA's   :136        
 internal_emergency_grievances_upheld_number
 Min.   :  0.00                             
 1st Qu.: 10.50                             
 Median : 25.00                             
 Mean   : 52.67                             
 3rd Qu.: 53.50                             
 Max.   :382.00                             
 NA's   :136                                
 internal_emergency_grievances_upheld_percent
 Min.   :0.0000                              
 1st Qu.:0.3070                              
 Median :0.4105                              
 Mean   :0.4225                              
 3rd Qu.:0.5120                              
 Max.   :1.0000                              
 NA's   :136                                 
 internal_emergency_grievances_overturned_number
 Min.   :  0.00                                 
 1st Qu.: 12.25                                 
 Median : 35.00                                 
 Mean   : 85.62                                 
 3rd Qu.: 93.75                                 
 Max.   :506.00                                 
 NA's   :136                                    
 internal_emergency_grievances_overturned_percent
 Min.   :0.0000                                  
 1st Qu.:0.4617                                  
 Median :0.5895                                  
 Mean   :0.5625                                  
 3rd Qu.:0.6823                                  
 Max.   :1.0000                                  
 NA's   :136                                     
 internal_emergency_grievances_modified_number
 Min.   : 0.000                               
 1st Qu.: 0.000                               
 Median : 0.000                               
 Mean   : 1.667                               
 3rd Qu.: 2.000                               
 Max.   :16.000                               
 NA's   :136                                  
 internal_emergency_grievances_modified_percent complaints_investigated_total
 Min.   :0.0000                                 Min.   :  1.00               
 1st Qu.:0.0000                                 1st Qu.:  1.00               
 Median :0.0000                                 Median :  5.00               
 Mean   :0.0151                                 Mean   : 31.83               
 3rd Qu.:0.0175                                 3rd Qu.: 16.25               
 Max.   :0.0910                                 Max.   :395.00               
 NA's   :136                                    NA's   :94                   
 complaints_investigated_percent carrier_upheld_by_mia_number
 Min.   :0.00000                 Min.   :  0.000             
 1st Qu.:0.00000                 1st Qu.:  0.000             
 Median :0.02000                 Median :  1.500             
 Mean   :0.09476                 Mean   :  9.738             
 3rd Qu.:0.05000                 3rd Qu.:  6.000             
 Max.   :1.02000                 Max.   :131.000             
 NA's   :94                      NA's   :94                  
 carrier_upheld_by_mia_percent carrier_reversed_by_mia_number
 Min.   :0.0000                Min.   :  0.000               
 1st Qu.:0.0000                1st Qu.:  0.000               
 Median :0.2910                Median :  1.000               
 Mean   :0.4095                Mean   :  8.595               
 3rd Qu.:0.4550                3rd Qu.:  4.250               
 Max.   :6.0000                Max.   :105.000               
 NA's   :94                    NA's   :94                    
 carrier_reversed_by_mia_percent carrier_modified_by_mia_number
 Min.   : 0.0000                 Min.   : 0.0                  
 1st Qu.: 0.0000                 1st Qu.: 0.0                  
 Median : 0.1700                 Median : 0.0                  
 Mean   : 0.5389                 Mean   : 0.5                  
 3rd Qu.: 0.3000                 3rd Qu.: 0.0                  
 Max.   :14.0000                 Max.   :14.0                  
 NA's   :94                      NA's   :94                    
 carrier_modified_by_mia_percent
 Length:178                     
 Class :character               
 Mode  :character               
                                
                                
                                
                                
 carrier_reversed_itself_during_investigation_number
 Min.   :  0.00                                     
 1st Qu.:  1.00                                     
 Median :  2.00                                     
 Mean   : 12.98                                     
 3rd Qu.:  6.00                                     
 Max.   :145.00                                     
 NA's   :94                                         
 carrier_reversed_itself_during_investigation_percent
 Min.   : 0.0000                                     
 1st Qu.: 0.1275                                     
 Median : 0.4120                                     
 Mean   : 0.6328                                     
 3rd Qu.: 0.5725                                     
 Max.   :10.3570                                     
 NA's   :94                                          

totals_only <- mia |>
  filter(company_name == "Total")

str(admin)

'data.frame':   70 obs. of  12 variables:
 $ year                                                : int  2021 2021 2021 2021 2021 2021 2021 2021 2021 2021 ...
 $ Type.of.Procedure                                   : chr  "Air Ambulance" "Cosmetic" "Dental Care Services" "Durable Medical Equipment" ...
 $ carrier.code                                        : chr  "B" "D" "J" "I" ...
 $ total                                               : int  2 3 32 7 2 6 1 2 45 1 ...
 $ upheld.by.MIA.number                                : int  2 0 10 2 0 4 0 2 27 0 ...
 $ carrier.upheld.by.mia.percent                       : num  1 0 0.31 0.29 0 0.67 0 1 0.6 0 ...
 $ reversed.by.mia.number                              : int  0 2 4 3 0 1 1 0 11 0 ...
 $ carrier.reversed.by.mia.percent                     : num  0 0.67 0.13 0.43 0 0.17 1 0 0.24 0 ...
 $ modifed.by.mia.number                               : int  0 1 1 0 0 0 0 0 0 0 ...
 $ carrier.modifed.by.mia.percent                      : num  0 0.33 0.03 0 0 0 0 0 0 0 ...
 $ carrier.reversed.itself.during.investigation.number : int  0 0 17 2 2 1 0 0 7 1 ...
 $ carrier.reversed.itself.during.investigation.percent: num  0 5 0.53 0.29 1 0.17 0 0 0.16 1 ...

names(admin) <- tolower(names(admin))
names(admin) <- gsub(' ',"_",names(admin))
names(admin) <- gsub("\\.", "_",names(admin))

admin_totals_only <- admin |>
  filter(type_of_procedure == "Total")

colnames(admin)

 [1] "year"                                                
 [2] "type_of_procedure"                                   
 [3] "carrier_code"                                        
 [4] "total"                                               
 [5] "upheld_by_mia_number"                                
 [6] "carrier_upheld_by_mia_percent"                       
 [7] "reversed_by_mia_number"                              
 [8] "carrier_reversed_by_mia_percent"                     
 [9] "modifed_by_mia_number"                               
[10] "carrier_modifed_by_mia_percent"                      
[11] "carrier_reversed_itself_during_investigation_number" 
[12] "carrier_reversed_itself_during_investigation_percent"

summary(admin)

      year      type_of_procedure  carrier_code           total       
 Min.   :2021   Length:70          Length:70          Min.   :  1.00  
 1st Qu.:2021   Class :character   Class :character   1st Qu.:  1.00  
 Median :2022   Mode  :character   Mode  :character   Median :  3.50  
 Mean   :2022                                         Mean   : 38.20  
 3rd Qu.:2023                                         3rd Qu.: 30.25  
 Max.   :2024                                         Max.   :395.00  
 upheld_by_mia_number carrier_upheld_by_mia_percent reversed_by_mia_number
 Min.   :  0.00       Min.   :0.0000                Min.   :  0.00        
 1st Qu.:  0.00       1st Qu.:0.0000                1st Qu.:  0.00        
 Median :  2.00       Median :0.2975                Median :  1.00        
 Mean   : 11.69       Mean   :0.3407                Mean   : 10.31        
 3rd Qu.:  9.75       3rd Qu.:0.5000                3rd Qu.:  4.00        
 Max.   :131.00       Max.   :1.0000                Max.   :105.00        
 carrier_reversed_by_mia_percent modifed_by_mia_number
 Min.   :0.0000                  Min.   : 0.0         
 1st Qu.:0.0000                  1st Qu.: 0.0         
 Median :0.1200                  Median : 0.0         
 Mean   :0.1770                  Mean   : 0.6         
 3rd Qu.:0.2828                  3rd Qu.: 0.0         
 Max.   :1.0000                  Max.   :14.0         
 carrier_modifed_by_mia_percent
 Min.   :0.00000               
 1st Qu.:0.00000               
 Median :0.00000               
 Mean   :0.01483               
 3rd Qu.:0.00000               
 Max.   :0.33000               
 carrier_reversed_itself_during_investigation_number
 Min.   :  0.00                                     
 1st Qu.:  1.00                                     
 Median :  1.50                                     
 Mean   : 15.54                                     
 3rd Qu.: 11.00                                     
 Max.   :144.00                                     
 carrier_reversed_itself_during_investigation_percent
 Min.   :0.0000                                      
 1st Qu.:0.1300                                      
 Median :0.4300                                      
 Mean   :0.5384                                      
 3rd Qu.:1.0000                                      
 Max.   :5.0000                                      

Adverse Decisions

adp1 <- totals_only |>
  select(year,adverse_decisions_company_total)|>
  ggplot(aes(x = year, y = adverse_decisions_company_total)) +
  geom_line() +
  geom_point() +
  labs(
    title = "Total Amount of Adverse Decisions Over Time",
  caption = "Source: Maryland Insurance Administration",
  y = "Total Adverse Decisions")

adp1

adverse_growth <- totals_only |>
  select(year,adverse_decisions_company_total) |>
  arrange(year)|>
  mutate(
    pct_change = (adverse_decisions_company_total - lag(adverse_decisions_company_total)) / lag(adverse_decisions_company_total) * 100
  )

adverse_growth

  year adverse_decisions_company_total pct_change
1 2021                           81143         NA
2 2022                           95327  17.480251
3 2023                          109123  14.472290
4 2024                          111426   2.110463

top_companies_ad <- mia |>
  filter(`company_name` != "Total") |>
  group_by(`company_name`) |>
  summarise(total = sum(`adverse_decisions_company_total`, na.rm = TRUE)) |>
  arrange(desc(total)) |>
  head(10) |>
  ggplot(aes(x = reorder(`company_name`, total), y = total)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  labs(
    title = "Top 10 Companies with Adverse Decisions 2021-2024",
    caption = 'Source: Maryland Insurance Administration',
    x = 'Company Name',
    y = 'Total'
  ) +
  theme(plot.title = element_text(size = 10, face = "bold"))

top_companies_ad

totals_adverse_services <- totals_only |>
  select(
    year,
    adverse_decisions_inpatient_hospital_services_number,
    adverse_decisions_emergency_room_services_number,
    adverse_decisions_mental_health_services_number,
   adverse_decisions_physician_services_number,
  adverse_decisions_laboratory__radiology_services_number,
    adverse_decisions_pharmacy_services_number,
    adverse_decisions_pt__ot__st_services__incl_inpat_rehab__number_,
    adverse_decisions_skilled_nurse_facility_sub_acute_nursing_home_number,
   adverse_decisions_durable_medical_equipment_services_number,
    adverse_decisions_dental_number,
    adverse_decisions_home_health_services_number,
    adverse_decisions_obesity__ivf__podiatry__hearing_and_vision_number_
  )

totals_adverse_services_long <- totals_adverse_services |>
  pivot_longer(
    cols = -year,
    names_to = "service",
    values_to = "count"
  ) |>
  mutate(
    service = service |>
      str_remove("adverse_decisions") |>
      str_remove("_number_?$") |>
      str_replace_all("_", " ") |>
      str_to_title()
  )

adverse_service_growth <- totals_adverse_services_long |>
  arrange(service, year) |>
  group_by(service) |>
  mutate(
    pct_change = (count - lag(count)) / lag(count) * 100
  ) |>
  ungroup() 


adverse_service_growth

# A tibble: 48 × 4
    year service                               count pct_change
   <int> <chr>                                 <int>      <dbl>
 1  2021 " Dental"                             15134     NA    
 2  2022 " Dental"                             15065     -0.456
 3  2023 " Dental"                             16732     11.1  
 4  2024 " Dental"                             16256     -2.84 
 5  2021 " Durable Medical Equipment Services"  1364     NA    
 6  2022 " Durable Medical Equipment Services"  1161    -14.9  
 7  2023 " Durable Medical Equipment Services"  1668     43.7  
 8  2024 " Durable Medical Equipment Services"  1554     -6.83 
 9  2021 " Emergency Room Services"               10     NA    
10  2022 " Emergency Room Services"              112   1020    
# ℹ 38 more rows

ggplot(adverse_service_growth, aes(x = year, y = service, fill = pct_change)) +
  geom_tile(color = "white") +
  geom_text(aes(label = paste0(round(pct_change, 1), "%")), size = 3) +
  scale_fill_gradient2(
    name = "% Change"
  ) +
  labs(
    title = "Percent Change in Adverse Decisions by Service",
    caption = "Source: Maryland Insurance Administration"
  ) +
  theme_minimal() +
  theme(
    axis.text.y = element_text(size = 8)
  )

ggplot(totals_adverse_services_long, aes(x = year, y = count)) +
  geom_line( color = "darkgreen") +
  geom_point() +
  facet_wrap(~ service, scales = "free_y", ncol = 3) +
  labs(
    title = "Adverse Decisions by Service Over Time (2021-2024)",
    x = "Year",
    y = "Count",
    caption = "Source: Maryland Insurance Administration"
  ) +
  theme_minimal() +
  theme(
    strip.text = element_text(size = 5, face = "bold"),
    axis.text.x = element_text(angle = 45, hjust = 1, size = 7)
  )

Grievances

grp1 <- totals_only |>
  select(year,grievances_filed_company_total)|>
  ggplot(aes(x = year, y = grievances_filed_company_total)) +
  geom_line() +
  geom_point() +
  labs(
    title = "Total Amount of Grievances Over Time",
    caption = "Source: Maryland Insurance Administration",
    y = " Total Grievances"
  )
grp1

grievance_growth <- totals_only |>
  select(year,grievances_filed_company_total) |>
  arrange(year) |>
  mutate(
    pct_change = (grievances_filed_company_total - lag(grievances_filed_company_total)) / lag(grievances_filed_company_total) * 100
  )

grievance_growth

  year grievances_filed_company_total pct_change
1 2021                           8073         NA
2 2022                          10305  27.647715
3 2023                          10577   2.639495
4 2024                          11526   8.972298

top_companies_gr <- mia |>
  filter(`company_name` != "Total") |>
  group_by(`company_name`) |>
  summarise(total = sum(`grievances_filed_company_total`, na.rm = TRUE)) |>
  arrange(desc(total)) |>
  head(10) |>
  ggplot(aes(x = reorder(`company_name`, total), y = total)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  labs(title = "Top 10 Companies with Grievances 2021-2024",
       x = 'Company Name',
       y= 'Total',
       caption = "Source: Maryland Insurance Administration"
       ) 
top_companies_gr

outcome <- totals_only |>
select(grievances_upheld_number,grievances_overturned_number,grievances_modified_number)|>
  pivot_longer(everything(), names_to = "outcome", values_to = "count") |>
mutate(outcome = outcome |>
      str_remove("grievances_") |>
      str_remove("_number") |>
      str_replace_all("_", " ") |>
      str_to_title()
)|>
  ggplot(aes(x = outcome, y = count, fill = outcome)) +
  geom_bar(stat = "identity") +
labs(
  title = "Grievances Outcome 2021-2024",
  caption = "Source: Maryland Insurance Administration"
)
outcome

totals_grievances_services <- totals_only |>
  select(
    year,
    grievance_inpatient_hospital_services_number,
    grievance_emergency_room_services_number,
    grievance_mental_health_services_number,
    grievance_physician_services_number,
    grievance_laboratory__radiology_services_number,
    grievance_pharmacy_services_number,
    grievance_pt__ot__st_services__incl_inpat_rehab__number_,
    grievance_skilled_nurse_facility_sub_acute_nursing_home_number,
    grievance_durable_medical_equipment_services_number,
    grievance_dental_number,
    grievance_home_health_services_number,
    grievance_obesity__ivf__podiatry__hearing_and_vision_number_
  )

totals_grievances_services_long <- totals_grievances_services |>
  pivot_longer(
    cols = -year,
    names_to = "service",
    values_to = "count"
  ) |>
  mutate(
    service = service |>
      str_remove("grievance") |>
      str_remove("_number_?$") |>
      str_replace_all("_", " ") |>
      str_to_title()
  )

grievance_service_growth <- totals_grievances_services_long |>
  arrange(service, year) |>
  group_by(service) |>
  mutate(
    pct_change = (count - lag(count)) / lag(count) * 100
  ) |>
  ungroup() |>
    mutate(
    service = service |>
      str_remove("grievance") |>
      str_remove("_number_?$") |>
      str_replace_all("_", " ") |>
      str_to_title() 
    )

grievance_service_growth

# A tibble: 48 × 4
    year service                               count pct_change
   <int> <chr>                                 <int>      <dbl>
 1  2021 " Dental"                              2375      NA   
 2  2022 " Dental"                              3169      33.4 
 3  2023 " Dental"                              2160     -31.8 
 4  2024 " Dental"                              1937     -10.3 
 5  2021 " Durable Medical Equipment Services"   123      NA   
 6  2022 " Durable Medical Equipment Services"   216      75.6 
 7  2023 " Durable Medical Equipment Services"   196      -9.26
 8  2024 " Durable Medical Equipment Services"   376      91.8 
 9  2021 " Emergency Room Services"               20      NA   
10  2022 " Emergency Room Services"               30      50   
# ℹ 38 more rows

ggplot(grievance_service_growth, aes(x = year, y = service, fill = pct_change)) +
  geom_tile(color = "white") +
  geom_text(aes(label = paste0(round(pct_change, 1), "%")), size = 3) +
  scale_fill_gradient2(
    name = "% Change"
  ) +
  labs(
    title = "Percent Change in Grievances by Service",
    caption = "Source: Maryland Insurance Administration"
  ) +
  theme_minimal() +
  theme(
    axis.text.y = element_text(size = 8)
  )

ggplot(totals_grievances_services_long, aes(x = year, y = count)) +
  geom_line( color = "darkgreen") +
  geom_point() +
  facet_wrap(~ service, scales = "free_y", ncol = 3) +
  labs(
    title = "Grievances by Service Over Time (2021-2024)",
    x = "Year",
    y = "Count",
    caption = "Source: Maryland Insurance Administration"
  ) +
  theme_minimal() +
  theme(
    strip.text = element_text(size = 5, face = "bold"),
    axis.text.x = element_text(angle = 45, hjust = 1, size = 7)
  )

gr_outcome <- totals_only|>
select(year,grievances_overturned_number,grievances_upheld_number,grievances_modified_number)|>
   group_by(year) |>
  pivot_longer(-year, names_to = "outcome", values_to = "count") |>
  mutate(
    outcome = outcome |>
      str_remove("grievances_") |>
      str_remove("_number") |>
      str_replace_all("_", " ") |>
      str_to_title()
  ) |>
  ggplot(aes(x = year, y = count, color = outcome)) +
  geom_line(size = 1) +
  geom_point()+
  labs(
    title = "Grievances Outcome"
  )

Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` instead.

  gr_outcome

Hospital Length Of Stay

mia_los<- totals_only |>
select(year,grievances_upheld_number_for_hospital_los,grievances_overturned_number_for_hospital_los,grievances_modified_number_for_hospital_los)|>  group_by(year) |>
  pivot_longer(-year, names_to = "outcome", values_to = "count") |>
  mutate(
    outcome = outcome |>
      str_remove("grievances_") |>
      str_remove("_number") |>
      str_replace_all("_", " ") |>
      str_to_title()
  ) |>
  ggplot(aes(x = year, y = count, color = outcome)) +
  geom_line(size = 1) +
  geom_point() +
  labs(
    title = "Grievances Outcome For Hospital Length of Stay",
    y = "Number of Cases",
    color = "Outcome",
    caption = "Source:Maryland Insurance Administration"
  )
mia_los

Emergency Cases Resolution Hours

emer_res <- totals_only|>
  select(year, emergency_cases___resolution_hours_1_st_quarter_,emergency_cases___resolution_hours_2nd_quarter_,emergency_cases___resolution_hours_3rd__quarter_,emergency_cases___resolution_hours_4th_quarter_) 

emer_res_long <- emer_res |>
  pivot_longer(
    cols = -year,
    names_to = "quarters",
    values_to = "resolution_hours"
  )|>
  mutate(
    quarters = quarters |>
      str_remove("emergency_cases___resolution_hours_") |>
      str_replace_all("_", " ") |>
      str_to_title()
  )

ggplot(emer_res_long, aes(x = year, y = resolution_hours, fill = quarters)) +
  geom_bar(stat = "identity", color = "black",
           position = position_dodge(width = 0.9)) +
  labs(
    title = "Quarterly Emergency Resolution Hours By Year",
    x = "Year",
    y = "Resolution Hours",
    fill = "Quarter",
    caption = "Source: Maryland Insurance Administration"
  ) +
  theme_minimal()

Non-Emergency Cases Resolution Days

non_emer_res <- totals_only|>
  select(year, non_emergency_cases___resolution_days_1st_quarter,non_emergency_cases___resolution_days_2nd_quarter,non_emergency_cases___resolution_days_3rd_quarter,non_emergency_cases___resolution_days_4th_quarter) 

non_emer_res_long <- non_emer_res |>
  pivot_longer(
    cols = -year,
    names_to = "quarters",
    values_to = "resolution_days"
  )|>
  mutate(
    quarters = quarters |>
      str_remove("non_emergency_cases___resolution_days_") |>
      str_replace_all("_", " ") |>
      str_to_title()
  )

ggplot(non_emer_res_long, aes(x = year, y = resolution_days, fill = quarters)) +
  geom_bar(stat = "identity", color = "black",
           position = position_dodge(width = 0.9)) +
  labs(
    title = "Quarterly Non-Emergency Resolution Days By Year",
    x = "Year",
    y = "Resolution Days",
    fill = "Quarter",
    caption = "Source: Maryland Insurance Administration"
  ) +
  theme_minimal()

MIA Outcome

mia_dec<- totals_only |>
  select(year,carrier_upheld_by_mia_number,carrier_modified_by_mia_number,carrier_reversed_by_mia_number)|>
  pivot_longer(-year, names_to = "outcome", values_to = "count") |>
  mutate(
    outcome = outcome |>
      str_remove("grievances_") |>
      str_remove("_number") |>
      str_replace_all("_", " ") |>
      str_to_title()
  ) 

  ggplot(mia_dec,aes(x = year, y = count, color = outcome)) +
  geom_line(size = 1) +
  geom_point() +
  labs(
    title = "MIA Decisions Over Time",
    y = "Number of Cases",
    color = "Outcome",
    caption = "Source: Maryland Insurance Administration"
  )

admin_clean <- admin |>
  filter(type_of_procedure != "TOTAL") |>
  pivot_longer(
    cols = c(
      upheld_by_mia_number,
      reversed_by_mia_number,
      modifed_by_mia_number,
      carrier_reversed_itself_during_investigation_number
    ),
    names_to = "outcome",
    values_to = "count"
  ) |>
  mutate(
    outcome = outcome |>
      str_remove("_number") |>
      str_replace_all("_", " ") |>
      str_to_title()
  ) |>
  group_by(type_of_procedure) |>
  filter(sum(count, na.rm = TRUE) >= 10) |> 
  ungroup()

ggplot(admin_clean,aes(x = type_of_procedure, y = count, fill = outcome)) +
  geom_bar(stat = "identity", position = position_dodge()) +
  facet_wrap(~ year, ncol = 2) +
  labs(
    title = "MIA Appeal Decisions by Procedure Type (2021-2024)",
    x = "Type of Procedure",
    y = "Number of Decisions",
    fill = "Decision Type",
    caption = "Source: Maryland Insurance Administration"
  ) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1, size = 7))