data(liewi_gpa)
nice_title <- expression(paste("Dorsal anchor ", italic(L.liewi)))
plotLM(liewi_gpa, tit=nice_title, pointscale=0.8, axispointscale=0.8,
meansize=1.2, polygon.outline=TRUE,c(-.6,.6),c(-.6,.6) )
Run the code above in your browser using DataLab