如何让geom_text继承主题规范？(GGPLOT2)

Question

是否有一种优雅的方式ggplot2来制作geom_text/ geom_label继承theme像base_family？

或反过来问:我可以指定一个theme也适用于geom_text/ geom_label？

---

例:

我想text/labels看起来完全像...中axis.text指定的那样theme

显然我可以手动添加规范作为可选参数geom_text,但我希望它"自动"继承规范......

library("ggplot2")

ggplot(mtcars, aes(x = mpg,
                   y = hp,
                   label = row.names(mtcars))) +
  geom_point() +
  geom_text() +
  theme_minimal(base_family = "Courier")

您可以

设置整体字体

首先,根据系统,您需要检查哪些字体可用.当我在Windows上运行时,我使用以下内容:

install.packages("extrafont")
library(extrafont)
windowsFonts() # check which fonts are available

该theme_set功能允许您指定ggplot的整体主题.因此theme_set(theme_minimal(base_family = "Times New Roman")),您可以定义绘图的字体.

使标签继承字体

要使标签继承此文本,我们需要使用两件事:

1. update_geom_defaults允许您更新ggplot中未来绘图的几何对象样式:http://ggplot2.tidyverse.org/reference/update_defaults.html
2. theme_get()$text$family 提取当前全局ggplot主题的字体.

通过组合这两个,标签样式可以更新如下:

# Change the settings
update_geom_defaults("text", list(colour = "grey20", family = theme_get()$text$family))
update_geom_defaults("text_repel", list(colour = "grey20", family = theme_get()$text$family))

结果

theme_set(theme_minimal(base_family = "Times New Roman"))

# Change the settings
update_geom_defaults("text", list(colour = "grey20", family = theme_get()$text$family))

# Basic Plot
ggplot(mtcars, aes(x = mpg,
                   y = hp,
                   label = row.names(mtcars))) +
  geom_point() +
  geom_text()

# works with ggrepel
update_geom_defaults("text_repel", list(colour = "grey20", family = theme_get()$text$family))

library(ggrepel)

ggplot(mtcars, aes(x = mpg,
                   y = hp,
                   label = row.names(mtcars))) +
  geom_point() +
  geom_text_repel()

归档时间：	7 年，12 月 前
查看次数：	635 次
最近记录：	7 年，12 月 前

相关归档

加速采样更快,无需更换 48

R公式y~1是什么意思？ 36

匹配多个模式 21

使用R中的read.csv跳过特定行 21

ggplot2:点和线的不同图例符号 17

为了建立R小插图而失踪 17

来自档案的文件的fread() 12

R:为wordcloud graphics/png添加标题 11

使用列名称更改 ggplot2 (R) 的颜色 2

如何仅在主页wordpress上隐藏菜单 1

难疑归档

For-each在JavaScript中的数组？ 4448

如何使用JavaScript复制到剪贴板？ 3131

如何克隆特定的Git分支？ 2804

如何通过引用传递变量？ 2480

将文本垂直对齐到UILabel中的顶部 2141

JavaScript中的变量范围是什么？ 1952

用JavaScript比较两个日期 1791

在Bash中循环遍历一串字符串？ 1371

如果我已经开始使用rebase,如何将两个提交合并为一个？ 1111

字段和属性之间有什么区别？ 1032

Answer 1

您可以

设置整体字体

首先,根据系统,您需要检查哪些字体可用.当我在Windows上运行时,我使用以下内容:

install.packages("extrafont")
library(extrafont)
windowsFonts() # check which fonts are available

该theme_set功能允许您指定ggplot的整体主题.因此theme_set(theme_minimal(base_family = "Times New Roman")),您可以定义绘图的字体.

使标签继承字体

要使标签继承此文本,我们需要使用两件事:

1. update_geom_defaults允许您更新ggplot中未来绘图的几何对象样式:http://ggplot2.tidyverse.org/reference/update_defaults.html
2. theme_get()$text$family 提取当前全局ggplot主题的字体.

通过组合这两个,标签样式可以更新如下:

# Change the settings
update_geom_defaults("text", list(colour = "grey20", family = theme_get()$text$family))
update_geom_defaults("text_repel", list(colour = "grey20", family = theme_get()$text$family))

结果

theme_set(theme_minimal(base_family = "Times New Roman"))

# Change the settings
update_geom_defaults("text", list(colour = "grey20", family = theme_get()$text$family))

# Basic Plot
ggplot(mtcars, aes(x = mpg,
                   y = hp,
                   label = row.names(mtcars))) +
  geom_point() +
  geom_text()

# works with ggrepel
update_geom_defaults("text_repel", list(colour = "grey20", family = theme_get()$text$family))

library(ggrepel)

ggplot(mtcars, aes(x = mpg,
                   y = hp,
                   label = row.names(mtcars))) +
  geom_point() +
  geom_text_repel()