还是只显示到2021年四月，可以调小横坐标间隔吗，这样可以多显示几个季度

好的，你可以尝试将 `scale_x_yearqtr` 函数中的 `n` 参数调小一些，例如改为 `n=4`，这样每隔 4 个季度就会显示一个刻度，可能就可以多显示几个季度了：

ggplot(data, aes(x=quarter, y=value, group=1)) +
  geom_line(aes(y=Actual, color="Actual"), size=1.2) +
  geom_line(aes(y=Pred, color="Predicted"), size=1.2) +
  scale_x_yearqtr(n=4) +
  xlab("Quarter") +
  ylab("Stock Price") +
  ggtitle("Actual vs. Predicted Stock Prices") +
  theme(plot.title = element_text(hjust = 0.5))

你可以根据实际情况适当调整 `n` 参数的值，以达到最佳的显示效果。