data <-read.csv("./sorted_temp_and_rain_dataset.csv",header=T,sep=",")
data$Month <- factor(data$Month)
data$tem <- as.numeric(data$tem)
data$rain <- as.numeric(data$rain)

Dataset extret de: https://www.kaggle.com/datasets/yakinrubaiat/bangladesh-weather-dataset?select=sorted_temp_and_rain_dataset.csv

if(!require('ggridges')) {
  install.packages('ggridges')
  library('ggridges')
}
## Loading required package: ggridges
## Warning: package 'ggridges' was built under R version 4.3.3
library(ggplot2)
library(ggridges)

ggplot(data, aes(x=tem,y=Month,fill=Month))+
  geom_density_ridges(alpha = 0.5,jittered_points = TRUE, point_alpha=0.3,point_shape=21) + 
  labs(x="Average temperature (ºC)",y='Mes', title="Temperatures a Bangladesh (1901-2023)")+ 
  guides(fill=FALSE,color=FALSE)
## Warning: The `<scale>` argument of `guides()` cannot be `FALSE`. Use "none" instead as
## of ggplot2 3.3.4.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
## Picking joint bandwidth of 0.216