处理字母和数字时arrange()不起作用

jk9hmnmh 于 2022-12-30 发布在其他

关注(0)|答案(3)|浏览(158)

我看过很多关于arrange()问题的帖子，但是没有一个能解决我的问题，希望这不是重复的。我有一些名为**“Q1”，“Q2”，“Q3”**等等的列。在计算了rstatix::get_summary_stats()的一些基本描述性统计数据之后，我需要将新列variable按 * 升序 * 排列（例如，Q1在Q2之前，Q3之前，等等）。我敢肯定这是一个愚蠢的问题，但我看不出我做错了什么。

原始数据如下所示：

ID Q1 Q2 Q3 Q4 Q5 Q6 Q7 Q8 Q9 Q10 Q11 Q12 Q13 Q14 Q15
1 PART1  4  1  1  5  5  5  1  5  1   1   3   5   5   1   5
2 PART2  5  4  1  5  5  4  1  5  2   1   3   5   4   1   5
3 PART3  2  4  3  5  5  4  1  5  2   1   3   5   4   1   5
so on...

我的尝试：

descriptive <-  data %>% 
  rstatix::get_summary_stats(show = c("mean", "sd", "median", "iqr", "min", "max"))  %>% 
  mutate_if(is.numeric, round, 2) %>% 
  dplyr::arrange(variable)

前10行：

A tibble: 15 x 8
   variable     n  mean    sd median   iqr   min   max
   <chr>    <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl>
 1 Q1          63  3.94  1.03      4   2       2     5
 2 Q10         63  1.84  0.88      2   2       1     3
 3 Q11         63  2.62  1.31      3   3       1     5
 4 Q12         63  3.98  1.01      4   2       2     5
 5 Q13         63  4.33  0.8       5   1       2     5
 6 Q14         63  1.91  0.88      2   2       1     4
 7 Q15         63  4.25  0.95      5   1       2     5
 8 Q2          63  2.86  1.58      3   3       1     5
 9 Q3          63  1.97  1.06      2   2       1     4
10 Q4          63  3.98  1.04      4   2       2     5

注：我已经尝试了ungroup()和across(starts_with("Q*")))，但没有工作。任何想法将不胜感激，谢谢在adv.

数据：

> dput(descriptive)[1:10, ]
structure(list(variable = c("Q1", "Q10", "Q11", "Q12", "Q13", 
"Q14", "Q15", "Q2", "Q3", "Q4", "Q5", "Q6", "Q7", "Q8", "Q9"), 
    n = c(63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 
    63, 63), mean = c(3.94, 1.84, 2.62, 3.98, 4.33, 1.91, 4.25, 
    2.86, 1.97, 3.98, 4.21, 4.05, 2.38, 4.03, 2.25), sd = c(1.03, 
    0.88, 1.31, 1.01, 0.8, 0.88, 0.95, 1.58, 1.06, 1.04, 0.94, 
    1.04, 1.36, 1.05, 1.12), median = c(4, 2, 3, 4, 5, 2, 5, 
    3, 2, 4, 4, 4, 2, 4, 2), iqr = c(2, 2, 3, 2, 1, 2, 1, 3, 
    2, 2, 1, 2, 2.5, 2, 2), min = c(2, 1, 1, 2, 2, 1, 2, 1, 1, 
    2, 2, 1, 1, 2, 1), max = c(5, 3, 5, 5, 5, 4, 5, 5, 4, 5, 
    5, 5, 5, 5, 5)), row.names = c(NA, -15L), class = c("tbl_df", 
"tbl", "data.frame"))

来源：https://stackoverflow.com/questions/74933605/arrange-not-working-when-dealing-with-letters-and-numbers

3条答案

按热度按时间

kwvwclae1#

只在variable的整数部分使用arrange()怎么样？

descriptive %>% arrange(as.integer(gsub("Q","",variable)))

输出：

# A tibble: 15 × 8
   variable     n  mean    sd median   iqr   min   max
   <chr>    <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl>
 1 Q1          63  3.94  1.03      4   2       2     5
 2 Q2          63  2.86  1.58      3   3       1     5
 3 Q3          63  1.97  1.06      2   2       1     4
 4 Q4          63  3.98  1.04      4   2       2     5
 5 Q5          63  4.21  0.94      4   1       2     5
 6 Q6          63  4.05  1.04      4   2       1     5
 7 Q7          63  2.38  1.36      2   2.5     1     5
 8 Q8          63  4.03  1.05      4   2       2     5
 9 Q9          63  2.25  1.12      2   2       1     5
10 Q10         63  1.84  0.88      2   2       1     3
11 Q11         63  2.62  1.31      3   3       1     5
12 Q12         63  3.98  1.01      4   2       2     5
13 Q13         63  4.33  0.8       5   1       2     5
14 Q14         63  1.91  0.88      2   2       1     4
15 Q15         63  4.25  0.95      5   1       2     5

赞(0）回复(0）举报 2022-12-30

vltsax252#

我们可以使用mixedorder，即使值具有不同的前缀，它也可以工作

library(dplyr)
descriptive %>% 
   arrange(order(gtools::mixedorder(variable)))

输出

# A tibble: 15 × 8
   variable     n  mean    sd median   iqr   min   max
   <chr>    <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl>
 1 Q1          63  3.94  1.03      4   2       2     5
 2 Q2          63  2.86  1.58      3   3       1     5
 3 Q3          63  1.97  1.06      2   2       1     4
 4 Q4          63  3.98  1.04      4   2       2     5
 5 Q5          63  4.21  0.94      4   1       2     5
 6 Q6          63  4.05  1.04      4   2       1     5
 7 Q7          63  2.38  1.36      2   2.5     1     5
 8 Q8          63  4.03  1.05      4   2       2     5
 9 Q9          63  2.25  1.12      2   2       1     5
10 Q10         63  1.84  0.88      2   2       1     3
11 Q11         63  2.62  1.31      3   3       1     5
12 Q12         63  3.98  1.01      4   2       2     5
13 Q13         63  4.33  0.8       5   1       2     5
14 Q14         63  1.91  0.88      2   2       1     4
15 Q15         63  4.25  0.95      5   1       2     5

或使用parse_number

descriptive %>%
   arrange(readr::parse_number(variable))

赞(0）回复(0）举报 2022-12-30

ktecyv1j3#

已经有更好的灵魂了。只是为了好玩：
我们可以用正则表达式(?<=[A-Za-z])(?=[0-9])拆分variable列，然后排列：

library(tidyr)
library(dplyr)

df %>% 
  separate(variable, c("quarter", "number"), sep = "(?<=[A-Za-z])(?=[0-9])", remove = FALSE) %>% 
  arrange(quarter, as.numeric(number)) %>% 
  select(-c(quarter, number))

variable     n  mean    sd median   iqr   min   max
   <chr>    <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl>
 1 Q1          63  3.94  1.03      4   2       2     5
 2 Q2          63  2.86  1.58      3   3       1     5
 3 Q3          63  1.97  1.06      2   2       1     4
 4 Q4          63  3.98  1.04      4   2       2     5
 5 Q5          63  4.21  0.94      4   1       2     5
 6 Q6          63  4.05  1.04      4   2       1     5
 7 Q7          63  2.38  1.36      2   2.5     1     5
 8 Q8          63  4.03  1.05      4   2       2     5
 9 Q9          63  2.25  1.12      2   2       1     5
10 Q10         63  1.84  0.88      2   2       1     3
11 Q11         63  2.62  1.31      3   3       1     5
12 Q12         63  3.98  1.01      4   2       2     5
13 Q13         63  4.33  0.8       5   1       2     5
14 Q14         63  1.91  0.88      2   2       1     4
15 Q15         63  4.25  0.95      5   1       2     5

赞(0）回复(0）举报 2022-12-30

我来回答

处理字母和数字时arrange()不起作用

3条答案

相关问题

热门标签

最新问答