R语言直方图修改字体大小触发gpar函数未找到错误求助

我来帮你理清这个问题的根源和解决办法：

为什么会报错？ #

gpar()是grid绘图系统（比如lattice、ggplot2这类包依赖的绘图框架）里的参数设置函数，但你当前使用的hist()是base R原生的绘图函数——这俩属于完全不同的绘图体系，base R根本不认识gpar()，也不支持sub_gp、main_gp这类参数，所以才会抛出找不到函数的错误。

至于你之前在马赛克图里能用相同代码，大概率是因为那个马赛克图用的是grid系统下的函数（比如lattice包的mosaic()），而非base R的mosaicplot()，所以能兼容gpar()。

两种解决办法 #

方法1：用base R原生方式设置副标题字体大小

base R绘图用par()函数或者title()来控制文字样式，不需要gpar()：

• 方式A：先全局设置参数，再绘图

# 设置副标题缩放倍数（cex.sub=0.7对应比默认小，你可以调整数值），主标题同理
par(cex.sub = 0.7, cex.main = 1.3)
# 绘制直方图
hist(data, breaks=18, col = "azure3", main = "你的主标题", sub = "你的副标题")
# 用完记得重置参数，避免影响后续绘图
par(cex.sub = 1, cex.main = 1)

• 方式B：单独用title()添加副标题，更灵活

# 先画直方图，不指定sub
hist(data, breaks=18, col = "azure3", main = "你的主标题")
# 单独添加副标题，控制大小、颜色等
title(sub = "你的副标题", cex.sub = 0.7, col.sub = "gray40")

方法2：切换到grid系统的直方图函数

如果你习惯用gpar()的方式，可以用lattice包的histogram()函数，它完全支持main_gp、sub_gp参数：

# 先加载lattice包
library(lattice)
# 绘制直方图，参数和你原来的写法一致
histogram(~data, breaks=18, col = "azure3", main = "你的主标题", sub = "你的副标题",
          main_gp = gpar(fontsize=13), sub_gp = gpar(fontsize=3))

内容的提问来源于stack exchange，提问作者Matt