43
This will get the states plotted, though not the variables
fit.df <- as.data.frame(fit$scores)
fit.df$state <- rownames(fit.df)
library(ggplot2)
ggplot(data=fit.df,aes(x=Comp.1,y=Comp.2))+
geom_text(aes(label=state,size=1,hjust=0,vjust=0))
