Я создал график NMDS в R и хочу, чтобы группы данных имели цветовую кодировку с определенными цветами, которые я определяю вручную в соответствии с каждым кластером.Я указал столбец для раскраски как: color=Toxics2$Cluster
.Я добавил код для scale_color_manual
в конце со значениями цвета, которые я хочу.Когда я запускаю код, он окрашивает каждый кластер в цвета по умолчанию, независимо от того, сколько раз я проверяю код и запускаю его.Кто-нибудь может понять, почему код scale_color_manual
не работает для меня?
ggplot(mds,aes(x=MDS1,y=MDS2)) +
geom_point(size=0) +
geom_text(aes(label=Toxics2$Toxic),size=4,color=as.factor(Toxics2$Cluster) +
geom_segment(data=toxicvector.df,aes(x=0,xend=MDS1*0.05,y=0,yend=MDS2*0.05), arrow = arrow(length = unit(0.2, "cm")),colour="red", size=1, inherit.aes=FALSE) +
geom_text(data=toxicvector.df,aes(x=MDS1*0.05,y=MDS2*0.05,label=properties),size=4,colour="dark blue", inherit.aes=FALSE) +
ggtitle("NMDS Plot of Toxic Pollutant Chemical Characteristics") +
scale_color_manual(values=c('1'="#1B9E77",'2'="#D95F02",'3'="#7570B3",'4'="#E7298A"))