updated plot_pcoa.R