将图例添加到ggplot - 无效的颜色名称

Question

我已经在文档和帖子就像看了看四周这个,但我不清楚.显然会自动创建一个图例,我必须将颜色映射到解释文本.

数据示例:

vtm1<- c(1,3,4)
vmean<-c(3.9,3.8,3)
vmax<-c(4.1,4.2,4)
vmin<-c(3,2.5,2)
rtm1<- c(1,2,4,5)
rmean<-c(3.9,3.85,3.7,3.1)
rmax<-c(4.1,4.2,4,3.9)
rmin<-c(3,2.5,2,1.9)
gtm1<- c(2,4,5)
gmean<-c(4.1,3.9,3)
gmax<-c(4.1,4,3.9)
gmin<-c(3,2.5,1.5)
vns <- data.frame(vtm1, vmean, vmax, vmin)
gibbs <- data.frame(gtm1, gmean, gmax, gmin)
rw <- data.frame(rtm1, rmean, rmax, rmin)

plt <- ggplot(NULL, aes(x= vtm1))
plt + xlab("Number of TM lookups") + ylab("Cross-entropy") + 
xlim(0, 30000000) + 
ylim(3.15,4.2)+  
geom_ribbon(data=gibbs, aes(x = gtm1, ymin= gmin, ymax= gmax), fill="#A8A8A8") +  
geom_ribbon(data=rw, alpha=0.5, aes(x = rtm1, ymin= rmin, ymax= rmax), fill="red")+  
geom_ribbon(data=vns, alpha=0.5, aes(x = vtm1, ymin= vmin, ymax= vmax), fill="mycolor")+ 
geom_line(data=gibbs, linetype = "dotdash", aes(x=gtm1,y=gmean)) + 
geom_line(data=vns,aes(x=vtm1,y=vmean)) + geom_line(data=rw, linetype = "dashed", aes(x=rtm1,y=rmean)) + 
geom_hline(yintercept=3.2240952381, linetype = "dotted", color="mycolor2")+ 
geom_hline(yintercept=3.44366666666667, linetype = "dotted") + 
theme_bw( )+
    scale_colour_manual(name="Lines", values=c("mycolor"="blue","mycolor2"="red")) +  
    scale_linetype_manual(name="Lines", values=c("mycolor"="dotted","mycolor2"="dashed"))

R一直给我错误:

Error in col2rgb(colour, TRUE) : invalid color name 'mycolor'

Answer 1

这是一个简化的例子,应该说明ggplot2的一般原理:

names(vns) <- c("tm1", "mean", "max", "min")
names(gibbs) <- c("tm1", "mean", "max", "min")
names(rw) <- c("tm1", "mean", "max", "min")
vns$what <- "vns"
gibbs$what <- "gibbs"
rw$what <- "rw"

DF <- do.call(rbind, list(vns, gibbs, rw))

plt <- ggplot(DF, aes(x= tm1, ymin= min, ymax= max, y=mean)) +
  geom_ribbon(aes(fill=what), alpha=0.3) +  
  geom_line(aes(colour=what))
print(plt)

如您所见,所有数据都存在于一个data.frame中,并且因子变量用于对其进行分组并映射到fill/ colour/ ... scale_manual_*如果您对默认值不满意,可以使用.