50

我目前正在使用 igraph 并用颜色标记我的顶点。我想添加一个说明每种颜色代表什么的图例。

此时我能想到的是使用 ggplot2 仅打印图例并隐藏条形图。有没有办法只输出图例?

4

4 回答 4

72

这里有2种方法:

设置绘图

library(ggplot2) 
library(grid)
library(gridExtra) 

my_hist <- ggplot(diamonds, aes(clarity, fill = cut)) + 
    geom_bar() 

牛图法

# Using the cowplot package
legend <- cowplot::get_legend(my_hist)

grid.newpage()
grid.draw(legend)

本土方法

无耻窃取自:在ggplot2直方图中的图例下插入表格

## Function to extract legend
g_legend <- function(a.gplot){ 
    tmp <- ggplot_gtable(ggplot_build(a.gplot)) 
    leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box") 
    legend <- tmp$grobs[[leg]] 
    legend
} 

legend <- g_legend(my_hist) 

grid.newpage()
grid.draw(legend) 

reprex 包(v0.2.0)于 2018 年 5 月 31 日创建。

于 2012-08-20T16:52:02.233 回答
27

Cowplot 方便地添加了一个函数来提取图例。以下内容直接取自手册。

library(ggplot2)
library(cowplot)
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_line()
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + geom_point(size=2.5)

# Note that these cannot be aligned vertically due to the legend in the plot.mpg
ggdraw(plot_grid(p1, plot.mpg, ncol=1, align='v'))

# now extract the legend
legend <- get_legend(plot.mpg)

# and replot suppressing the legend
plot.mpg <- plot.mpg + theme(legend.position='none')

# Now plots are aligned vertically with the legend to the right
ggdraw(plot_grid(plot_grid(p1, plot.mpg, ncol=1, align='v'),
                 plot_grid(NULL, legend, ncol=1),
                 rel_widths=c(1, 0.2)))
于 2017-05-31T09:25:27.593 回答
15

我使用了 ggpubr 包——让它变得非常简单!

https://rpkgs.datanovia.com/ggpubr/reference/get_legend.html

# Extract the legend. Returns a gtable
leg <- get_legend(p)

# Convert to a ggplot and print
as_ggplot(leg)
于 2019-05-30T09:44:59.100 回答
3

我正在对图中的顶点进行颜色编码,并希望尽可能简单、优雅、快速地生成图例。

我相信最快的方法是在将图例“粘贴”到与 igraph 相同的情节之前使用 ggplot2 单独生成viewport图例layout()

在这种方法中,不需要在函数中调用rescaleasp争论。plot.igraph()

在 data.frame 上使用 g_legend 函数leg,有 2 列,x 是适当的顶点属性,y 是 igraph 图中使用的十六进制颜色代码,我完成了以下操作。

我的 igraph 对象是t8g

legend <- g_legend(leg)
vpleg <- viewport(width = 0.1, height = 0.1, x=0.85,y=0.5)
layout(matrix(c(1,2),1,2,byrow=T),widths=c(3,1))
plot(t8g,edge.width=1,edge.arrow.size=0.1,vertex.label.cex=0.2,main="b2_top10")
pushViewport(vpleg)
grid.draw(legend)
于 2012-08-28T05:12:55.933 回答