## This is a small example.
## See ?plot.likert for the complete example including motivation.
##
require(grid)
require(lattice)
require(latticeExtra)
require(HH)
data(ProfChal)
Empl <- ProfChal[[2]]
pct <- plot.likert(Empl, as.percent="noRightAxis", xlab="Percent")
pct
count <- plot.likert(Empl, rightAxis=TRUE,
xlab="Count", ylab.right="Row Count Totals")
count
countEmptied <- emptyMainLeftAxisLeftStripBottomLegend(count)
countEmptied
print(pct, position=c(.00, 0, .8, 1), more=TRUE)
print(countEmptied, position=c(.702, 0,1.0, 1), more=FALSE)
Run the code above in your browser using DataCamp Workspace