r - How to print the plot title while including a histogram in the likert package?

Question

I'm plotting data using the likert package, but cannot get the plot title to display when including a histogram.

library(likert)
library(grid)

data(pisaitems) # loading sample data
items24 <- pisaitems[,substr(names(pisaitems), 1,5) == 'ST24Q'] # using a subset of the data
l24 <- likert(items24) 

plot(l24) + ggtitle("Title") # this works fine
plot(l24, include.histogram=TRUE) # this works fine too
plot(l24, include.histogram=TRUE)+ ggtitle("Title") # returns the error "non-numeric argument to binary operator"

question from:https://stackoverflow.com/questions/65943847/how-to-print-the-plot-title-while-including-a-histogram-in-the-likert-package

Answer 1

Waitting for answers