Original


Per Caput Daily Caloric Distribution by Food Group, 2014- 2018


Objective

The objective of the data visualisation is to present the food consumed (in calories) by individuals in Kenya categorized by food commodities as shown in the Food Balance Sheet from 2014 to 2018 which in comparison to the supply shows a clear indication of the food situation in Kenya at a specified period.This is to inform future evidence-based policy decisions.

The target audience for the data visualisation is Government officials and Non-Governmental organizations to assess the food situation and make informed decisions.

The visualisation chosen had the following three main issues:

  • Doughnut chart has too many categories. There are a total of 20 categories. This can be hard to follow.

  • The percentages are very small for some food categories that they are being grouped together and are hard to see and label.

  • Angle and area have a low accuracy for representing numeric values.It is difficult to visually compare the charts across time.

Reference

Kenya National Bureau of Statistics. 2020. Enhanced Food Balance Sheets For Kenya 2014-2018 Results - Kenya National Bureau Of Statistics. [online] Available at: https://www.knbs.or.ke/?wpdmpro=enhanced-food-balance-sheets-for-kenya-2014-2018-results Lecture notes module 4 https://dark-star-161610.appspot.com/secured/_book/avoiding-deception.html

Code

The following code was used to fix the issues identified in the original.

library(ggplot2)
library(xlsx)
library(tidyr)

foodbalancesheet <- read.xlsx("FoodBalanceSheets.xlsx", sheetIndex =1)
fbs <- gather(foodbalancesheet, Year, calorie_unit, -Products )
fbs1 <- ggplot(fbs, aes(Year, calorie_unit)) + geom_bar(aes(fill = Products), stat = "identity", colour = "black", position = "dodge")

Data Reference

Reconstruction

The following plot fixes the main issues in the original.