如何调整ggplot鱼类出现时间图的24小时制Y轴显示顺序？

问题背景 #

你需要用ggplot绘制鱼类出现时间的散点图，鱼类仅在18:00至次日6:00之间活动，希望Y轴按18、19、20、21、22、23、0、1、2、3、4、5、6的顺序排列，但原代码和尝试的调整都未达到预期效果。

原可正常生成图表的代码：

ggplot(individu, aes(x = Date, y = HRS)) +     
geom_point(alpha = 0.6, color = "black") +     
scale_y_continuous(breaks = 0:23, labels = paste0(0:23, "h")) +     
labs( x = "Date", y = "Emergence time (24h)", title = "Emergence time") +     
theme_minimal() +     
theme(axis.text.x = element_text(angle = 45, hjust = 1))

尝试后无效的代码：

ggplot(individu, aes(x = Date, y = HRS)) +
geom_point(alpha = 0.6, color = "black") +
scale_y_continuous(
breaks = c(19:23, 0:7),
labels = c(19:23, 0:7) %% 24) +
labs( x = "Date", y = "Emergence time (24h)", title = "Emergence time") +
theme_minimal() +
theme(axis.text.x =  element_text(angle = 45, hjust = 1))

解决方案 #

方法1：调整连续轴范围与刻度（推荐，保留数值型Y轴）

通过scale_y_continuous的limits参数指定轴范围为c(18, 6)，利用数值大小反转轴方向，同时配合breaks和labels设置所需刻度顺序：

ggplot(individu, aes(x = Date, y = HRS)) +     
  geom_point(alpha = 0.6, color = "black") +     
  scale_y_continuous(
    limits = c(18, 6),  # 设定轴范围从18到6，实现顺序翻转
    breaks = c(18:23, 0:6),  # 按需求指定刻度点顺序
    labels = paste0(c(18:23, 0:6), "h")  # 为刻度添加"h"后缀
  ) +     
  labs(x = "日期", y = "出现时间（24小时制）", title = "鱼类出现时间分布") +     
  theme_minimal() +     
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方法2：将时间转换为有序因子

把HRS列转换为指定顺序的有序因子，让Y轴直接按因子顺序排列：

# 先转换HRS为有序因子
individu$HRS_fct <- factor(individu$HRS, 
                           levels = c(18:23, 0:6),
                           ordered = TRUE)

# 使用转换后的因子绘图
ggplot(individu, aes(x = Date, y = HRS_fct)) +     
  geom_point(alpha = 0.6, color = "black") +     
  labs(x = "日期", y = "出现时间（24小时制）", title = "鱼类出现时间分布") +     
  theme_minimal() +     
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

说明 #

你之前的代码仅设置了breaks，但未改变轴的数值范围，ggplot仍会按0-23的数值顺序渲染轴，因此没有达到预期效果。上述两种方法分别通过调整连续轴范围或转换为有序因子，实现了Y轴的自定义排序。

内容的提问来源于stack exchange，提问作者Retno Ningrum