如何在ggplot中調整x軸？

Question

隨着時間的推移，我有一個魚個體深度的 plot。 背景代表溫度，灰點是原始深度數據，黑線是原始數據的geom_smooth線（這里附上plot的圖片）。 我使用 ggplot 制作圖表，但我的 x 軸（= 日期/時間）略微向右移動。 我需要在中間調整軸（標准化）。 這是我很長的 plot 代碼：

tibble(y=c(-7:0)) %>% 
  expand_grid(TBRtemperature %>% select(`Date and Time (UTC)`, Temperature)) %>% 
  rename(dt="Date and Time (UTC)") %>% 
  filter(yday(dt)>136&yday(dt)<147) %>% 
  mutate(dt=with_tz(dt, "Europe/Oslo")) %>% 
  ggplot(aes(dt, y, fill=Temperature)) + 
  geom_tile() +
  scale_fill_gradientn(colours = c("lightblue", "white", "red")) +
  scale_x_datetime(expand = c(0,0)) +
  scale_y_continuous(expand = c(0,0)) +
  geom_point(data=fbd_TBR %>% filter(yday(dt)>136&yday(dt)<147, n()>100), aes(dt, -Data/10, group=paste0(ID, Trial)), colour="grey50", alpha=0.2) +
  geom_smooth(data=fbd_TBR %>% filter(yday(dt)>136&yday(dt)<147, n()>100), aes(dt, -Data/10, group=paste0(ID, Trial), colour=paste0(ID, sep=" - ", Weight)), colour="black") +
  labs(y="Depth (m)", x=("Time (days)"), title = "Trial 2") +
  facet_wrap(~paste(ID, sep = " - ", Weight)) + 
  theme_classic() +
  theme(plot.title = element_text(face="bold"), strip.text = element_text(face = "bold"))

誰知道如何調整軸？

Answer 1

我認為通過將此參數添加到 ggplot 部分來指定您想要的范圍應該可以解決它

+coord_cartesian(xlim = c(1, 10),ylim = c(10,40))