Outpatients in Segment 2 give higher satisfaction ratings to private facilities, while those in segments 3, 5 and 6 give higher ratings to other types of facilities (e.g. nurse, paramedic, midwife, and traditional practitioner). Additionally, outpatients in Segment 4 give higher ratings because of the shorter waiting time while those in Segment 5 do not mind spending more and travel to facilities located in Java.
CODES:
pw <- read.csv(file = "pw.csv")
row.names(pw) <- pw$Cluster
pw <- pw[,2:19]
pw_matrix <- data.matrix(pw)
pw_heatmap <- heatmap(pw_matrix, Rowv=NA, Colv=NA, col = brewer.pal(9, "Reds"),
cexRow=1.8, cexCol=1.8, scale="column", margins=c(25,10))