Видео

Did you solve it? Cuz, I have the same.

Guys tell me the solution I have the same problem

I face the same problem,,,, Have solved this same colour problem, please help me

Sorry for delayed response. I don't whether you've solved it or not. However, providing another way to plot like from the SPEI/SPI object. If anyone else is facing this problem follow the code below. # Creating plot for one object # Extracting the time series data from the SPEI object spei3 spei_values <- spei3$fitted dates <- time(spei3$fitted) # Convert to data frame spei_df <- data.frame(Date = as.Date(dates), SPEI = spei_values) # Extract year and month for plotting purposes spei_df$Year <- as.numeric(format(spei_df$Date, "%Y")) spei_df$Month <- as.numeric(format(spei_df$Date, "%m")) # Create the plot ggplot(spei_df, aes(x = Date, y = SPEI)) + geom_bar(stat = "identity", aes(fill = SPEI > 0)) + scale_fill_manual(values = c("TRUE" = "blue", "FALSE" = "red")) + #change true false according to your need labs(title = "SPEI Over Time", #change title according to your need x = "Date", y = "SPEI") + theme_minimal() #for multiple plots you can create combine plots using ggarrange() function in ggpubr package