如何使用R语言按自定义特定顺序对表格行进行排序

方法1：基础R实现 #

首先可以用以下代码构造你提供的原始数据集：

df <- data.frame(
  x = c(0.6,0.8,0.2,0.4,0.6,0.8,0.2,0.4,0.6,0.8,0.2,0.4,0.6,0.8,0.2,0.4),
  y = c(0.2,0.2,0.2,0.2,0.4,0.4,0.4,0.4,0.8,0.8,0.8,0.8,0.6,0.6,0.6,0.6)
)

你需要先筛选符合规则的行，再进行排序：

# 筛选y取值在[x-0.2, x+0.2]区间内的行，匹配你提供的目标结果行数
df_filter <- df[df$y >= df$x - 0.2 & df$y <= df$x + 0.2, ]
# 按x升序、y升序排序
df_sorted <- df_filter[order(df_filter$x, df_filter$y), ]

输出df_sorted即可得到你需要的表格格式。

方法2：dplyr包实现（代码可读性更高） #

如果你习惯使用tidyverse生态的工具，可以用以下代码实现：

library(dplyr)

df_sorted <- df %>%
  filter(y >= x - 0.2, y <= x + 0.2) %>%
  arrange(x, y)

自定义排序规则通用方案 #

如果你不需要过滤行，只是要实现非默认的排序逻辑（比如某列不按数值/字母自然顺序排列），可以将对应列转为因子，手动指定顺序后再排序：

# 示例：指定x按0.2→0.4→0.6→0.8排序，y按0.2→0.4→0.6→0.8排序
df$x <- factor(df$x, levels = c(0.2, 0.4, 0.6, 0.8))
df$y <- factor(df$y, levels = c(0.2, 0.4, 0.6, 0.8))
# 排序
df_sorted <- df[order(df$x, df$y), ]
# 排序后如果需要转回数值型，可执行：as.numeric(as.character(df_sorted$x))

内容的提问来源于stack exchange，提问作者A H