Unable to see x axis labels completely

Unable to show all the months , Its skipping one month after the other, the months are present but not visible until you zoom in.
What needs to be done here

` output$TP1 <- renderPlotly({
df_plot <- filtered_data()

# Ensure the 'date' column is of Date type
df_plot$date <- as.Date(df_plot$date)

# Set font size
base_size <- 15

# Custom label function to split month and year onto separate lines
library(scales)
custom_date_label <- function(x) {
  format(x, "%b\n%Y")
}

# Plot 1: Month vs Interest Coverage Ratio
plot1 <- ggplot(df_plot, aes(x = date, y = interest_coverage_ratio_ttm, group = 1)) +
  geom_line(color = "red", size = 1) +
  labs(title = "Month vs Interest Coverage Ratio", x = "Date", y = "Interest Coverage Ratio") +
  theme_minimal(base_size = base_size) +
  theme(
    axis.text.x = element_text(size = 8, angle = 0, hjust = 0.5),  # Reduce size of x-axis labels
    panel.spacing = unit(2, "lines")
  ) +
  scale_x_date(labels = custom_date_label, date_breaks = "1 month")  # Custom label formatting

# Convert ggplot objects to plotly objects for interactive tooltips
ggplotly(plot1, dynamicTicks = TRUE) %>%
  layout(
    xaxis = list(
      tickformat = "%b\n%Y"  # Format the tooltips as month and year on separate lines
    )
  )

})`

Reproduziere den Bericht anhand des bereitgestellten renderPlotly-Beispiels und konzentriere dich dabei auf ggplotly(plot1) und die xaxis-Einstellungen von layout. Überprüfe, wie scale_x_date(date_breaks = "1 month") und dynamicTicks die gerenderten Beschriftungen der x-Achse beeinflussen. Als erledigt gilt die Aufgabe, wenn die vorgesehenen Monatsbeschriftungen bei normaler Zoomstufe sichtbar sind und das interaktive Diagramm weiterhin nutzbar ist.