为何无法对Sample列升序排列？R语言数据处理求助

从你提供的dput结果来看，Sample列的值带有末尾空格（如"1 "），即使尝试过去除空格，可能存在处理不彻底的情况。以下是可行的解决步骤：

1. 彻底清理Sample列并转换为数值型后排序 #

针对单个数据框：

library(dplyr)

cleaned_df <- data[[1]] %>%
  mutate(Sample = trimws(Sample)) %>% # 移除字符串前后所有空格
  mutate(Sample = as.numeric(Sample)) %>% # 转换为数值型
  arrange(Sample) # 按Sample升序排序

head(cleaned_df)

如果需要批量处理列表中所有数据框：

library(purrr)
library(dplyr)

data_cleaned <- map(data, function(df) {
  df %>%
    mutate(Sample = trimws(Sample)) %>%
    mutate(Sample = as.numeric(Sample)) %>%
    arrange(Sample)
})

2. 检查并取消分组（若存在） #

先确认数据框是否处于分组状态，若有分组需取消后再排序：

# 检查当前分组变量
group_vars(data[[1]])

# 取消分组后执行排序
data[[1]] %>%
  ungroup() %>%
  mutate(Sample = trimws(Sample) %>% as.numeric()) %>%
  arrange(Sample)

3. 处理可能存在的非数字字符 #

如果Sample列中除了空格还有其他非数字字符，可提取数字部分后转换：

library(stringr)
library(dplyr)

data[[1]] %>%
  mutate(Sample = str_extract(Sample, "\\d+") %>% as.numeric()) %>%
  arrange(Sample)

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