Смещение данных по оси X при использовании facet_wrap

Question

Я создаю распределение освещенности в каждом месяце за 2014–2018 годы. График для первых трех месяцев выглядит нормально, поскольку точки лежат в каждом году, затем точки данных медленно начинают двигаться вправо от оси и к декабрю данные 2018 года отображаются в столбце 2019.

Я относительно новый пользователь в R и не очень понимаю, что происходит под ним. Здесь я прилагаю свой код и графики. Название месяца было создано с помощью простой команды Месяц <- месяцы (а) из базовой библиотеки. Пожалуйста, помогите мне с этим. </p>

ggplot(data = Weather_new, aes(x=DateAndTime, y= KP_sensor), na.rm=TRUE) + 
 geom_point(color = "darkblue", alpha=0.2)+
  facet_wrap(.~Monthnames, ncol=4, strip.position = "top")+
  labs(title = "Irradiance distribution over the years")+ xlab('Years')+ 
  ylab(expression("Irradiance"~"["*W / m^2*"]"))+
  theme(plot.title = element_text(face = "bold"))+
  theme(plot.title = element_text(hjust = 0.5))

Answer 1

Попробуйте добавить столбец года и заменить поле даты и времени значением x в aes:

Weather_new <- transform(Weather_new, Year = factor(format(DateAndTime, "%Y")))

ggplot(data = Weather_new, aes(x=Year, y= KP_sensor), na.rm=TRUE) + 
  geom_point(color = "darkblue", alpha=0.2) +
  facet_wrap(.~Monthnames, ncol=4, strip.position = "top") +
  labs(title = "Irradiance distribution over the years") +
  xlab('Years') + ylab(expression("Irradiance"~"["*W / m^2*"]")) +
  theme(plot.title = element_text(face = "bold")) +
  theme(plot.title = element_text(hjust = 0.5))