ggplot 改图例问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

源程序
library(ggplot2)
data2<-read.csv('E:/302.csv',header = F,stringsAsFactors=FALSE, sep=",")
names(data2)<-c('x1','x2','x3','x4','x5','x6','x7','x8','x9','x10')
data2$x10 <- factor(data2$x10)
b = ggplot(data2, aes(x = x4, y = x9, colour=x10)) +   geom_point(size=3)+theme_bw()
b1<-b+xlab(expression(paste("NH4"^"+","-N[mg/（L)]")))+ylab(expression(paste("△N2O[μmol/（L)]")))+geom_abline(intercept = 3.5,slope = 5,size=2)
b1+theme(plot.title = element_text(hjust = 0.5),title=element_text(family="myFont",color="black",size=20) )+scale_shape_discrete(breaks=c('JUN/16','AUG/16','OCT/16','MAY/17','JUL/17'),labels = c('JUN/16','AUG/16','OCT/16','MAY/17','JUL/17'))

这个完全改不了图例顺序，怎么改都不动，求解答

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：源程序

b1<- b1+scale_fill_hue(name="TIME",labels = c("JUN/16","AUG/16","OCT/16","MAY/17","JUL/17"))
最后一句改成这个，出现了bug：
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the existing scale.

不算bug，提醒你对fill的设定重复了，以后一次为准
(limits = ......)

强不强 发表于 2018-6-11 19:08
源程序
library(ggplot2)
data2

图例不是颜色？