# NOT RUN { data(lipset) results <- qmethod(lipset[[1]], nfactors = 3, rotation = "varimax") title <- "Q method z-scores, lipset dataset" subtitle <- paste0("Three factors, PCA, varimax. Printed on ", Sys.Date()) plot(results, main = title, sub = subtitle) # Order the items in a different way plot(results, main = title, sub = subtitle, sort.items = c(rev(1:nrow(results$zsc)))) # }
Run the code above in your browser using DataCamp Workspace