河流流量图日期时间格式处理及可视化优化技术问询

一、修复X轴时间显示异常问题 #

你的核心问题是日期时间列被识别为字符类型，ggplot会把离散的字符值当成分类变量处理，所以X轴显示成条形而非连续时间轴。只需两步即可解决：

1. 转换日期时间格式：
   用lubridate包处理带时区的时间字符串，将其转为R可识别的datetime类型：

install.packages("lubridate")
library(lubridate)
CHEM_RESULTS$`Date and Time` <- ymd_hms(CHEM_RESULTS$`Date and Time`)

2. 自定义X轴刻度：
   通过scale_x_datetime设置显示格式和间隔，不用强制显示全部时间点，避免拥挤：

library(ggplot2)
ggplot(CHEM_RESULTS, aes(x= `Date and Time`, y=`Discharge (cumec)`, group = 1)) +
  geom_line(color="powderblue", size=1, alpha=0.9, linetype=1) +
  scale_x_datetime(date_labels = "%Y-%m-%d %H:%M",  # 自定义显示格式
                   date_breaks = "1 day") +  # 按天间隔显示刻度，可按需改为"6 hours"
  theme(axis.text.x = element_text(angle=45, hjust=1))  # 旋转标签避免重叠

二、叠加并高亮pH数据 #

假设你的pH数据包含Date and Time（已转成datetime类型）、Site（站点）、pH列，直接用geom_point叠加即可实现高亮，同时区分不同站点：

# 假设pH数据框名为pH_data
ggplot() +
  # 先绘制流量折线
  geom_line(data=CHEM_RESULTS, aes(x= `Date and Time`, y=`Discharge (cumec)`),
            color="powderblue", size=1, alpha=0.9, linetype=1) +
  # 叠加pH数据点，按站点分颜色、放大尺寸实现高亮
  geom_point(data=pH_data, aes(x= `Date and Time`, y=pH, color=Site), 
             size=3, alpha=0.8) +
  scale_x_datetime(date_labels = "%Y-%m-%d %H:%M", date_breaks = "1 day") +
  theme(axis.text.x = element_text(angle=45, hjust=1)) +
  labs(y="流量 (cumec) / pH值", color="监测站点")

如果只想保留pH对应的时间点作为X轴刻度，可手动指定：

target_times <- unique(pH_data$`Date and Time`)
scale_x_datetime(breaks = target_times, date_labels = "%Y-%m-%d %H:%M")

内容的提问来源于stack exchange，提问作者Rosie Lomas