我有這個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))) scale_x_continuous(breaks = seq(1,10,2))
geom_line(color = "#F2AA4CFF") geom_point(color = "#101820FF") xlab('Time') ylab('Series') ggtitle(expression("(a)\nsd = 1\n"~phi~"=.8"))
theme(axis.text = element_text(size = 10, angle = 0, vjust = 0.0, hjust = 0.0), axis.title = element_text(size = 10), axis.title.x = element_text(angle = 0, hjust = 0.5, vjust = 0.5, size = 10), axis.title.y = element_text(angle = 90, hjust = 0.5, vjust = 0.5, size = 14), plot.title = element_text(size = 14, margin = margin(t = 25, b = -20, l = 0, r = 0)))
scale_y_continuous(expand = c(0.0, 0.00))
gplot
uj5u.com熱心網友回復：
這是一個示例，它看起來是半自動的。具體取決于您的實際時間序列資料有多大不同，但這可能有助于啟發。確切的位置和文本樣式當然可以根據您的喜好進行調整。
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(axis.text = element_text(size = 10, angle = 0, vjust = 0.0, hjust = 0.0),
axis.title = element_text(size = 10),
axis.title.x = element_text(angle = 0, hjust = 0.5, vjust = 0.5, size = 10),
axis.title.y = element_text(angle = 90, hjust = 0.5, vjust = 0.5, size = 14),
plot.title = element_text(size = 14, 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))
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/345866.html