Symbol:
ue Utrykningsenhet
sentr Sentral
PIC Polis insatschef
Summary statistics:+ dat[] <- lapply(dat, function(x) x[,drop=TRUE]) + return(dat) + } Group.1 N.Brann.sentr N.Politi.sentr N.AMK.sentr N.Brann.ue 1 N.AMK.sentr 0 1 5 0 2 N.AMK.ue 0 1 177 1 3 N.Brann.sentr 0 0 0 13 4 N.Brann.ue 16 0 0 19 5 N.Politi.sentr 0 0 1 0 6 N.Politi.ue 1 34 1 1 7 S.Ambul.ue 0 0 29 0 8 S.PIC 0 0 0 0 9 S.Polis.ue 0 5 0 0 10 S.RKC.Umea 0 5 1 0 11 S.Raddn.ue 0 0 0 5 12 S.Sos.alarm 0 0 2 3 N.Politi.ue N.AMK.ue S.Sos.alarm S.RKC.Umea S.PIC S.Raddn.ue S.Polis.ue 1 0 166 1 0 0 0 0 2 1 75 0 0 0 0 0 3 1 0 1 0 0 0 0 4 3 1 2 0 0 2 0 5 34 0 0 2 0 0 3 6 8 1 0 0 1 2 1 7 0 28 23 0 2 0 0 8 5 0 0 0 0 0 31 9 4 0 0 4 23 0 0 10 1 0 0 0 0 0 5 11 0 1 11 0 0 1 0 12 0 1 0 0 0 10 0 S.Ambul.ue 1 23 2 24 3 0 4 0 5 0 6 0 7 1 8 2 9 0 10 0 11 0 12 22 Group.1 N.Brann.sentr N.Politi.sentr N.AMK.sentr N.AMK.sentr :1 Min. : 0.000 Min. : 0.000 Min. : 0.00 N.AMK.ue :1 1st Qu.: 0.000 1st Qu.: 0.000 1st Qu.: 0.00 N.Brann.sentr :1 Median : 0.000 Median : 0.000 Median : 1.00 N.Brann.ue :1 Mean : 1.417 Mean : 3.833 Mean : 18.00 N.Politi.sentr:1 3rd Qu.: 0.000 3rd Qu.: 2.000 3rd Qu.: 2.75 N.Politi.ue :1 Max. :16.000 Max. :34.000 Max. :177.00 (Other) :6 N.Brann.ue N.Politi.ue N.AMK.ue S.Sos.alarm S.RKC.Umea Min. : 0.0 Min. : 0.00 Min. : 0.00 Min. : 0.000 Min. :0.0 1st Qu.: 0.0 1st Qu.: 0.00 1st Qu.: 0.00 1st Qu.: 0.000 1st Qu.:0.0 Median : 0.5 Median : 1.00 Median : 1.00 Median : 0.000 Median :0.0 Mean : 3.5 Mean : 4.75 Mean : 22.75 Mean : 3.167 Mean :0.5 3rd Qu.: 3.5 3rd Qu.: 4.25 3rd Qu.: 7.75 3rd Qu.: 1.250 3rd Qu.:0.0 Max. :19.0 Max. :34.00 Max. :166.00 Max. :23.000 Max. :4.0
S.PIC S.Raddn.ue S.Polis.ue S.Ambul.ue Min. : 0.000 Min. : 0.00 Min. : 0.000 Min. : 0 1st Qu.: 0.000 1st Qu.: 0.00 1st Qu.: 0.000 1st Qu.: 0 Median : 0.000 Median : 0.00 Median : 0.000 Median : 0 Mean : 2.167 Mean : 1.25 Mean : 3.333 Mean : 6 3rd Qu.: 0.250 3rd Qu.: 1.25 3rd Qu.: 1.500 3rd Qu.: 7 Max. :23.000 Max. :10.00 Max. :31.000 Max. :24
sum_alle_ny Min. : 12.00 1st Qu.: 31.50 Median : 39.00 Mean : 70.67 3rd Qu.: 58.25 Max. :279.00
Group.1 N.Brann.sentr N.Politi.sentr N.AMK.sentr N.Brann.ue 1 N.AMK.sentr 0 1 5 0 2 N.AMK.ue 0 1 177 1 3 N.Brann.sentr 0 0 0 13 4 N.Brann.ue 16 0 0 19 5 N.Politi.sentr 0 0 1 0 6 N.Politi.ue 1 34 1 1 7 S.Ambul.ue 0 0 29 0 8 S.PIC 0 0 0 0 9 S.Polis.ue 0 5 0 0 10 S.RKC.Umea 0 5 1 0 11 S.Raddn.ue 0 0 0 5 12 S.Sos.alarm 0 0 2 3 N.Politi.ue N.AMK.ue S.Sos.alarm S.RKC.Umea S.PIC S.Raddn.ue S.Polis.ue 1 0 166 1 0 0 0 0 2 1 75 0 0 0 0 0 3 1 0 1 0 0 0 0 4 3 1 2 0 0 2 0 5 34 0 0 2 0 0 3 6 8 1 0 0 1 2 1 7 0 28 23 0 2 0 0 8 5 0 0 0 0 0 31 9 4 0 0 4 23 0 0 10 1 0 0 0 0 0 5 11 0 1 11 0 0 1 0 12 0 1 0 0 0 10 0 S.Ambul.ue sum_alle_ny 1 23 196 2 24 279 3 0 15 4 0 43 5 0 40 6 0 50 7 1 83 8 2 38 9 0 36 10 0 12 11 0 18 12 22 38 + geom_bar(stat = "identity", position = "dodge") + + theme( + axis.text.x = element_text(face="bold", color="black", size=18, angle=25), + axis.text.y = element_text(color="black", size=18), + panel.background = element_rect(fill="transparent", colour = NA), + panel.grid.minor = element_blank(), + panel.grid.major = element_blank(), + plot.background = element_rect(fill="transparent", colour = NA) + ) + + xlab("Rolle") + + ylab("Kommunikasjon: sum antall beskjeder fra hver rolle")
|