gpt4 book ai didi

r - 具有可变字体系列的 geom_text 图例

转载 作者:行者123 更新时间:2023-12-04 11:56:16 33 4
gpt4 key购买 nike

我想要 geom_text()标签根据变量采用字体系列。
根据 ggplot2 docs 上的示例(向下滚动到底部),我已经这样做了(与 ggplot 文档示例中的相同):

library(ggplot2)
p <- ggplot(mtcars, aes(x=wt, y=mpg, label=rownames(mtcars)))
p + geom_text(aes(family=c("serif", "mono")[am+1]))

产量:

enter image description here

这一切都很好,但我如何在图例中获得字体系列?

最佳答案

它不漂亮:您可以在 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)

enter image description here

关于r - 具有可变字体系列的 geom_text 图例,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28487364/

33 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com