按主题选项将项目添加到图例

Question

我有一个数据框d，像这样：

d <- data.frame("name" = c("pippo","pluto","paperino"), 
"id" = c(1,2,3),"count" = c(10,20,30),
"pvalue"=c(0.01,0.02,0.05),
geneRatio=c(0.5,0.8,0.2),
type=c("KEGG","Reactome","Reactome"))

我使用ggplot库绘制了一个点图：

   ggplot(data = d,aes(geneRatio,name,size=count,colour = pvalue)) + 
   geom_point()+ 
   ggtitle("Significantly Pathways") + 
   xlab("Gene Ratio") + 
   ylab("Pathways")+ 
   theme(axis.text.y = element_text(color=d$type))

这就是目前的情节

​

我想添加到图例中的“类型”的信息包含在数据帧d。我想有一个新的项目，在图例中的颜色红色=反应和颜色black= KEGG

Answer 1

不是说这是个好主意，但是你可以添加一个无意义的geom来强制添加一个向导：

d <- data.frame("name" = c("pippo","pluto","paperino"), 
                "id" = c(1,2,3),
                "count" = c(10,20,30),
                "value"=c(0.01,0.02,0.05),
                geneRatio=c(0.5,0.8,0.2),
                type=c("KEGG","Reactome","Reactome")
                )

library(ggplot2)

ggplot(data = d, aes(geneRatio,name,colour = pvalue)) + 
    geom_point(aes(size=count))+ 
    geom_polygon(aes(geneRatio,name,fill = type)) +
    ggtitle("Significantly Pathways") + 
    xlab("Gene Ratio") + 
    ylab("Pathways") + 
    scale_fill_manual(values = c('Reactome'='red', 'KEGG'='black')) +
    theme(axis.text.y = element_text(color=d$type))

​

​

geom_polygon可能无法处理您的实际数据，并且您可能找不到合适的“无意义”geom。我同意@zx8754，一个方面会更清楚：

ggplot(data = d, aes(geneRatio,name,colour = pvalue)) + 
    geom_point(aes(size=count)) + 
    ggtitle("Significantly Pathways") + 
    xlab("Gene Ratio") + 
    ylab("Pathways") + 
    facet_grid(type ~ ., scales = 'free_y', switch = 'y')

​

​

Answer 2

您可以使用annotate完成此操作，但这需要一点手动操作。

ggplot(data = d, aes(geneRatio, name, size = count, colour = pvalue)) + 
  geom_point() + 
  ggtitle("Significantly Pathways") + 
  xlab("Gene Ratio") + 
  ylab("Pathways")+ 
  theme(axis.text.y = element_text(color=d$type)) +
  annotate("text", x = 0.25, y = 3.5, label = "Reactome", color = "red") +
  annotate("text", x = 0.25, y = 3.4, label = "KEGG", color = "black")

​

​