Update plot_pcoa.from_object.r