首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >GGPLOT2:调整情节标题的字体大小

GGPLOT2:调整情节标题的字体大小
EN

Stack Overflow用户
提问于 2021-11-02 23:21:50
回答 1查看 107关注 0票数 0

我用这个ggplot2来满足以下条件:

(automatically).

  • Make

  • 删除默认背景,即散列颜色为纯色。

  • 使(a)成为位于不接近于行 $\phi = .8$的绘图区域内的情节标题,使其自动位于直线的顶端(仍在绘图区域内)。
  1. 和sd =1将自动位于行尾。
  2. 的四(4)边线为灰色。

G 214

代码语言:javascript
运行
复制
## simulate ARIMA(1, 0, 0)
set.seed(799837)
ts <- arima.sim(n = 10, model = list(ar = 0.95, order = c(1, 0, 0)), sd = 10)

gplot <- ggplot(NULL, aes(y = ts, x = seq_along(ts))) + 
  geom_line(color = "#F2AA4CFF") + 
  geom_point(color = "#101820FF") + 
  annotate("text", x = mean(seq_along(ts)), y = max(ts) * 1.1, label = "(a)")+
  annotate("text", x = min(seq_along(ts)), y = max(ts) * 1.1, label = 'paste(~phi~"=.8")', parse = TRUE )+ 
  annotate("text", x= max(seq_along(ts)), y = ts[[max(seq_along(ts))]] * 1.1, label = "sd=1") +
  xlab('Time') + 
  ylab('Series') + 
  theme_bw() +
  theme(axis.text = element_text(size = 40, angle = 0, vjust = 0.0, hjust = 0.0), #y-axis label size
        axis.title = element_text(size = 40), #x-axis label size
        axis.title.x = element_text(angle = 0, hjust = 0.5, vjust = 0.5, size = 40), # x-axis title
        axis.title.y = element_text(angle = 90, hjust = 0.5, vjust = 0.5, size = 40), # y-axis title
        plot.title = element_text(size = 40, margin = margin(t = 25, b = -20, l = 0, r = 0)),
        panel.background = element_blank()) + 
  scale_x_continuous(breaks = seq(1,10,2)) +
  scale_y_continuous(expand = c(0.0, 0.00))
gplot

我要增加情节标题的字体。正如您所看到的,尽管将绘图标题的字体设置为40,但字体标题拒绝增加。这个问题是Remove Default Background Color and Make Title in Plot Zone的后续问题。

EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2021-11-02 23:38:42

丹尼尔

如果(a)是“标题”--它不是真正的标题,而是一个注释。

因此,要改变它的大小,在添加注释时执行它。

代码语言:javascript
运行
复制
annotate("text", x = mean(seq_along(ts)), y = max(ts) * 1.5, label = "(a)", size = 40)

您还可能希望调整其他注释的大小。

代码语言:javascript
运行
复制
  annotate("text", x = mean(seq_along(ts)), y = max(ts) * 1.5, label = "(a)", size = 40) +
  annotate("text", x = min(seq_along(ts)), y = max(ts) * 1.5, label = 'paste(~phi~"=.8")', parse = TRUE, size = 10)+ 
  annotate("text", x= max(seq_along(ts)), y = ts[[max(seq_along(ts))]] * 1.5, label = "sd=1", size = 10)

票数 2
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/69817985

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档