PCs के लिए लोडिंग्स और स्कोर्स

# Create data frame of scores
scores.state <- data.frame(___)

# Plot of scores labeled by state name
ggplot(data = scores.state, aes(x = ___, y = ___, label = ___) + 
    geom_text( alpha = 0.8, size = 3) + 
    ggtitle("PCA of states data")