我有這個ggplot2我滿足這些條件：
- 洗掉散列顏色的默認背景為純色。
- 使 (a) 成為位于不靠近線的繪圖區域內的繪圖示題（自動）。
- 使 $\phi = .8$ 自動位于行首（仍在繪圖區域內）。
- 并且 sd = 1 將自動位于行尾。
- 將出現的四 (4) 條邊界線。
- 網格線為灰色。
.
## 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，但字體標題拒絕增加。這個問題是從
您可能還想調整其他注釋的大小。
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)
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/345864.html