Hello,

I have data over one year (one observation each day) and i want to represent il a plot this time serie by each day of the month.

I do a time serie with a frequency 30.417 with this code

anneetsmois <- ts(JOURS2022TS$Note.Jour, start=c(2022,01,01), freq=30.417)

I do a season plot by day of the month but there are diffrent number of days in months (31 in january, 28 in feburary...) and i have a lag in my season plot.

ggseasonplot(anneetsmois,season.labels = c(1:30),

continuous = FALSE, polar=TRUE) +

xlab("Jour du mois") +

ylab("Notes")+

ggtitle("Notes par mois")+

scale_color_discrete(name= "Mois", labels=c(1:13))+

theme_clean()

**And i have a lag because the data is shifted. For example, the purple line (month 12) should reach a value of 10 for the day n°18 but it's not the case here **

I have calculated the coefficients

decompose(anneetsmois, type = c("additive"))

And i have this coefficients

$figure

[1] 0.49194689 0.43902045 1.85471203 0.39057714 -0.71527575 -1.12075474 -0.50680680 -0.45624596

[9] -1.23582197 -0.88142536 -0.61320663 -0.88593390 -1.15866117 -0.88889725 -1.19945873 0.24928566

[17] -0.79335858 -0.82835246 -1.38875081 0.02245764 0.20278144 -0.16085492 0.15732690 0.93005417

[25] 0.96205930 0.53142392 1.41623086 1.40427582 3.86355368 -0.08190087

But i think is not good because the difference, the gap between days in the time

Can you help me ?