likert

library("readr")
library("dplyr")
library("tidyr")
library("likert")

leaders <- read_csv(
" Leader, Party, Very Good, Good, Neutral, Bad, Very Bad
Arlene Foster, DUP, 14.71, 36.64, 30.93, 12.31, 5.41
Martin McGuinness, Sinn Fein, 13.51, 30.63, 34.83, 9.92, 11.11
Mike Nesbitt, UUP, 13.51, 26.43, 27.63, 23.42, 9.01
Colum Eastwood, SDLP, 3.6, 15.62, 43.24, 27.63, 9.91
David Ford, Alliance, 8.11, 21.92, 27.63, 27.32, 15.02
Jim Allister, TUV, 17.12, 36.04, 17.41, 15.92, 13.51
Stephen Agnew, Green, 15.02, 30.93, 33.03, 12.31, 8.71
David McNarry, UKIP, 1.8, 8.11, 20.12, 32.13, 37.84
")

leaders %>% 
    select(1,(ncol(.)):3) %>% 
    rename(Item = Leader) %>%
    as.data.frame() %>% 
    likert(summary = .) %>% 
    plot()