当我绘制图表时，它是不可读的，因为在数据中的所有日期都写在x轴上。我试图使只有一些日期（如90天间隔）写。数据集是从2012-11-07到2022-11-04，所以有很多数据。
密码：

ticker <- "AMAT"

price_data <- returns_long %>% filter(Ticker == ticker, Series == "Close")

price_chart <- ggplot(price_data) +
  geom_line(aes(x = Date, y = Value, group=1), color = "#66CC00") +
  xlab("Date") +
  ylab("Stock Price") +
  labs(
    title = paste0(price_data$Name[1], " (", ticker, ")"),
    subtitle = price_data$Sector[1],
    caption = "Source: Yahoo! Finance"
  )+
  scale_y_continuous(labels = scales::dollar) +
  theme(
    
    plot.background = element_rect(fill = "#17202A"),
    panel.background = element_rect(fill = "#17202A"),
    axis.text.x = element_text(color = "#ffffff", angle = 45, hjust = 1, vjust = 1),
    axis.text.y = element_text(color = "#ffffff"),
    axis.title.x = element_text(color = "#ffffff"),
    axis.title.y = element_text(color = "#ffffff"),
    plot.title = element_text(color = "#ffffff"),
    plot.subtitle = element_text(color = "#ffffff"),
    plot.caption = element_text(color = "#ffffff", face = "italic", size = 6),
    panel.grid.major.x = element_blank(),
    panel.grid.major.y = element_line(color = "#273746"),
    panel.grid.minor.x = element_blank(),
    panel.grid.minor.y = element_blank(),
    legend.position = "none",
    
  )
price_chart