如何更改 R 包中所有不同文本的文本字体、大小和颜色，李克特？答案

【问题标题】：How do I change the text font, size and colour of all the different texts in the R package, Likert?如何更改 R 包中所有不同文本的文本字体、大小和颜色，李克特？
【发布时间】：2015-02-03 01:52:03
【问题描述】：

目前，只有更改百分比字体的功能，但我想更改 Likert 包条形图中所有文本的字体、大小和颜色。我该怎么做呢？

【问题讨论】：

标签： r text fonts colors

【解决方案1】：

通过添加theme() 选项，您几乎可以像任何ggplot 一样做到这一点。（至少，无论如何你会如何微调。）

使用来自?likert的示例数据

library("likert")
data(pisaitems)
items29 <- pisaitems[,substr(names(pisaitems), 1,5) == 'ST25Q']
names(items29) <- c("Magazines", "Comic books", "Fiction",
                    "Non-fiction books", "Newspapers")
l29 <- likert(items29)
summary(l29)

p1 <- plot(l29) # assign the plot to an object

# modify some stuff
p1 + theme(text = element_text(size = rel(6), colour = "red"),
           axis.text.y = element_text(colour = "blue",
                                      family = "Courier"))

通常，您可以查看主题调用的返回，例如theme_bw() 查看所有可以通过这种方式修改的内容。 plot.likert 代码中设置的任何内容（例如 y 轴文本颜色）都需要显式修改，它不会从更通用的 text 继承。如果您要修改的主要是文本，?element_text 可能会有所帮助。

另请注意，如果您使用 RStudio 设置字体系列可能不会更改绘图窗口中的绘图，但如果您将绘图导出为 PDF，它将起作用。（至少对我来说，在 Windows 上。）

如果您想更改作为绘图一部分的文本（由geom_text 设置），您可能需要实际破解该函数。它是all on github，所以只需制作你自己的包的分支。

【讨论】：

太快了，谢谢。我的工作有点截止日期，所以不用太长时间来弄清楚这一切是如何运作的。将插值颜色从中性颜色渐变更改为单独设置所有 5 种颜色怎么样。知道这将如何工作吗？再次感谢
Nvm，想通了。 + scale_fill_manual(values = c("blue", "blue", "blue", "blue", "blue"))