У меня есть ряд связанных графиков, которые я хотел бы представить как фасеты, но значения по оси x не будут выровнены, даже если фактические значения x идентичны для обоих фасетов.
Как 2 аспекта, R производит это:
Когда я использую один и тот же код с раздельным использованием фреймов данных только с одним узлом, каждый график выглядит так, как ожидаетсяидентичные диапазоны по оси x
Если я использую scale = "free_x", то две грани выглядят хорошо, но их оси X помеченыиначе (смещение на 12 часов)
Вот код R для всех графиков.Единственное различие между первыми 3 примерами заключалось в том, чтобы поднабор кадров данных включал оба или только одно из значений ноденума, используемых для выбора фасета.Последний использовал закомментированные весы = "аргумент free_x
nn00$pikaday <- "2018-09-12" # One explicit date
nn01<-subset(nn00,nn00$Day_LOC == pikaday )
# Using or omitting tz= in the next line has no effect on graphs
ToD<-as.POSIXct(nn01$Xint_UTC,tz=Local_TZ) # Time-Of Day
g3<-ggplot(nn01,aes(ToD)) + geom_point(aes(y=v.temp.m04),color="blue") +
labs(y="Temps")
# g3 + facet_wrap(~ nodenum,nrow=2,scales="free_x") +
g3 + facet_wrap(~ nodenum,nrow=2) +
scale_x_datetime(breaks = date_breaks("6 hours"),
labels = date_format("%H:%M")) +
theme(panel.background =element_rect(fill="white"))
Как получить все грани для повторения одинаковых базовых диапазонов и форматов?
Вот значения заголовка и хвоста, которыекажись ничем не примечательным.
> head(nn01[,c(55,5,3,16)])
nodenum Day_LOC Xint_LOC v.temp.m04
5148 08D 2018-09-11 2018-09-11 19:00:00 25.10
5150 04D 2018-09-11 2018-09-11 19:00:00 25.30
5203 08D 2018-09-11 2018-09-11 19:30:00 24.80
5205 04D 2018-09-11 2018-09-11 19:30:00 25.29
5258 08D 2018-09-11 2018-09-11 20:00:00 24.30
5260 04D 2018-09-11 2018-09-11 20:00:00 24.90
> tail(nn01[,c(55,5,3,16)])
nodenum Day_LOC Xint_LOC v.temp.m04
7613 08D 2018-09-12 2018-09-12 17:30:00 28.60
7615 04D 2018-09-12 2018-09-12 17:30:00 27.00
7663 08D 2018-09-12 2018-09-12 18:00:00 27.50
7665 04D 2018-09-12 2018-09-12 18:00:00 27.40
7712 08D 2018-09-12 2018-09-12 18:30:00 27.70
7714 04D 2018-09-12 2018-09-12 18:30:00 26.61