Wrap text in legend in ggplot2 from likert package in R

i have a data frame in R called df which is a subset of pisaitems data of likert package.