Mobile Network Data Visualisations

Histogram showing Average number of users on each cell

p <- ggplot(df.NT_pmData, aes(Avg_RRC_ConnUser))
p + geom_histogram(binwidth = 5, fill = 'blue') + ggtitle("Darwin Cells Average Users per Day") + ylab("Cell Count") + xlab("Avg Users per Day") + xlim(0, 200)

Box Plot showing Average number of users on each cell

p <- ggplot(data = df.NT_pmCellData, aes(freqBand, Avg_RRC_ConnUser))
p + geom_boxplot(outlier.colour = "dark blue", outlier.shape = 1, aes(colour = freqBand)) + ggtitle("Darwin Average Users per Day") + ylab("Avg Users")

Scatterplot of Average Connected Users and the Cell Downlink Data Volumes

cols <- c("1" = "#2b5c8a", "2" = "#75a1c7", "3" = "#c5c7c4", "4" = "#c87816","5" = "#9e3d22")
p <- ggplot(data = df.NT_pmCellData, aes(x=Avg_RRC_ConnUser, y=DL_Thrpt_Vol,colour=factor(df.NT_pmCellData$Ues_2Scell_col)))
p + geom_point() + scale_colour_manual(name = "CA Penetration Factor", values = cols,labels=c("0-20","20-40","40-60","60-80","80-100")) + geom_smooth(data = df.NT_pmCellData, aes(x = Avg_RRC_ConnUser, y = DL_Thrpt_Vol), method = 'lm', se = FALSE, fullrange = TRUE, colour = "#555555", size = 1.0, inherit.aes = FALSE) + ggtitle("NT Cell Download Performance vs Number of Users") + ylab("Cell Downloaded Data Volume") + xlab("Cell Avg Users per Day")