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

Question

我查看了this等文档和帖子，但我不清楚。显然会自动创建一个图例，我必须将颜色映射到解释文本。

数据示例：

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 / ...您可以使用{{1如果你对默认值不满意。

Answer 2

我无法使用geom_hline使其正常工作，但如果您可以使用geom_line，那么您可以使用：

library(ggplot2)
ggplot(NULL, aes(x= 1:30 * 1e6)) +  # made up some `x` data
  geom_point(aes(y=seq(3.5, 4.2, len=30), color="mycolor")) +  # adding geom_point for show
  geom_line(aes(x=c(0, 3e7), y=3.22409, color="mycolor", linetype="mycolor")) +
  scale_colour_manual(name="Lines", values=c("mycolor"="blue")) +  
  scale_linetype_manual(name="Lines", values=c("mycolor"=3)) +
  xlab("Number of TM lookups") + 
  ylab("Cross-entropy") + xlim(0, 30000000) + ylim(3.15,4.2)

除了更改为geom_line之外，您还需要确保linetype映射是数字的（即我们使用3点缀此处）。