我想要geom_text()标签根据变量采用字体系列。
按照上面的例子ggplot2 文档 http://docs.ggplot2.org/current/geom_text.html（向下滚动到底部），我已经这样做了（与 ggplot 文档示例相同）：
library(ggplot2)
p <- ggplot(mtcars, aes(x=wt, y=mpg, label=rownames(mtcars)))
p + geom_text(aes(family=c("serif", "mono")[am+1]))
产量：
这一切都很好 - 但我如何获得图例中的字体系列？
它不太漂亮：您可以在以下位置更改图例标签的字体系列grob级别（我不知道另一种方法，但我希望有）。
首先添加colour为了美观，自动生成图例，然后手动设置颜色，scale_colour_manual让它们像以前一样。然后调整图例细节，以更改键中的标签和字体。
library(ggplot2)
library(grid)
p <- ggplot(mtcars, aes(x=wt, y=mpg, colour=factor(am), label=rownames(mtcars))) +
geom_text(aes(family=c("serif", "mono")[am+1])) +
scale_colour_manual(values=c('0'= "#000000FF", '1'="#000000FF"),
name="am") +
theme(legend.text=element_text(size=16),
legend.key.width=unit(2, "cm"))
g <- ggplotGrob(p)
# change labels and fonts
g$grobs[[8]]$grobs[[1]]$grobs[[4]]$label <- "mono"
g$grobs[[8]]$grobs[[1]]$grobs[[4]]$gp$fontfamily <- "mono"
g$grobs[[8]]$grobs[[1]]$grobs[[6]]$label <- "serif"
g$grobs[[8]]$grobs[[1]]$grobs[[6]]$gp$fontfamily <- "serif"
grid.newpage()
grid.draw(g)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
