S_han = your data
N_Han = your data
C_Han = your data
plot(hist(S_Han,plot=F)$density * 100, type='o', col="green", xlab="PC 1", ylab="Percentage of individuals", ylim=c(0,60))
lines(hist(N_Han,plot=F)$density * 100, type='o', col="yellow")
lines(hist(C_Han,plot=F)$density * 100, type='o', col="blue")
legend("topleft",c("S-Han","N-Han","C-Han"),col=c("green","yellow","blue"), lty=1, pch=1, bty='n')
