r - 如何在 ggplot2 中仅绘制图例？

Question

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

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

Answer 1

这里有两种方法:

设置绘图

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)

本土方法

无耻地窃取了:Inserting a table under the legend in a ggplot2 histogram

## 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 package于2018年5月31日创建(v0.2.0)。