每周一次的订购时间
每周一次的订购时间
提问于 2022-07-11 09:58:46
我想订购年度周数数据格式。
我有一个数据框架如下：
df =c(
2022 W12,
. .
. .
. .
2026 W52) %>% data.frame()我使用了下面的代码，但是它没有正确地排列它
df <- df %>% arrange((date))现在的结果显示最后一行为2026年w9，这是没有意义的，必须是2026年w52。
回答 3
Stack Overflow用户
发布于 2022-07-11 10:17:01
您可以使用gtools::mixedorder() + dplyr::slice()。
df %>%
slice(gtools::mixedorder(date))
# date
# 1 2022 W9
# 2 2022 W52
# 3 2026 W9
# 4 2026 W52数据
df <- data.frame(date = c("2022 W52", "2026 W52", "2022 W9", "2026 W9"))Stack Overflow用户
发布于 2022-07-11 10:25:06
我们可以gsub的字符离开，as.numeric和order。
dat[order(dat$date, as.numeric(gsub('\\D', '', dat$week))), ]
# date week
# 1 2022 W22
# 5 2022 W23
# 12 2022 W24
# 19 2022 W25
# 26 2022 W26
# 33 2022 W27
# 40 2022 W28
# 47 2022 W29
# 54 2022 W30
# 61 2022 W31
# 68 2022 W32
# 75 2022 W33
# 82 2022 W34
# 89 2022 W35
# 96 2022 W36
# 103 2022 W37
# 110 2022 W38
# 117 2022 W39
# 124 2022 W40
# 131 2022 W41
# 138 2022 W42
# 145 2022 W43
# 152 2022 W44
# 159 2022 W45
# 166 2022 W46
# 173 2022 W47
# 180 2022 W48
# 187 2022 W49
# 194 2022 W50
# 201 2022 W51
# 208 2022 W52
# 215 2023 W1
# 222 2023 W2
# 229 2023 W3
# 236 2023 W4
# 243 2023 W5
# 250 2023 W6
# 257 2023 W7
# 264 2023 W8
# 271 2023 W9
# 278 2023 W10
# 285 2023 W11
# 292 2023 W12
# 299 2023 W13
# 306 2023 W14
# 313 2023 W15
# 320 2023 W16
# 327 2023 W17
# 334 2023 W18
# 341 2023 W19
# 348 2023 W20
# 355 2023 W21
# 362 2023 W22数据：
dat <- structure(list(date = c("2022", "2023", "2022", "2022", "2022",
"2022", "2023", "2022", "2023", "2023", "2023", "2022", "2022",
"2022", "2023", "2023", "2023", "2023", "2023", "2023", "2022",
"2023", "2022", "2023", "2023", "2022", "2023", "2022", "2022",
"2022", "2022", "2022", "2022", "2023", "2022", "2022", "2022",
"2023", "2022", "2023", "2022", "2022", "2022", "2022", "2022",
"2023", "2022", "2023", "2022", "2022", "2022", "2023", "2023"
), week = c("W30", "W6", "W27", "W49", "W48", "W43", "W9", "W22",
"W20", "W5", "W2", "W44", "W45", "W28", "W11", "W21", "W13",
"W4", "W18", "W15", "W29", "W19", "W25", "W22", "W17", "W51",
"W7", "W47", "W31", "W24", "W50", "W23", "W36", "W3", "W39",
"W42", "W52", "W1", "W35", "W10", "W33", "W46", "W26", "W34",
"W40", "W16", "W41", "W12", "W38", "W32", "W37", "W14", "W8")), row.names = c(54L,
250L, 33L, 187L, 180L, 145L, 271L, 1L, 348L, 243L, 222L, 152L,
159L, 40L, 285L, 355L, 299L, 236L, 334L, 313L, 47L, 341L, 19L,
362L, 327L, 201L, 257L, 173L, 61L, 12L, 194L, 5L, 96L, 229L,
117L, 138L, 208L, 215L, 89L, 278L, 75L, 166L, 26L, 82L, 124L,
320L, 131L, 292L, 110L, 68L, 103L, 306L, 264L), class = "data.frame")Stack Overflow用户
发布于 2022-07-11 10:03:28
一种基于gtools::mixedsort的可能解决方案
library(dplyr)
df =c(
"2022 W12",
"2022 W1",
"2022 W9",
"2026 W52",
"2026 W9") %>% data.frame(x = .)
df %>%
mutate(x = gtools::mixedsort(x))
#> x
#> 1 2022 W1
#> 2 2022 W9
#> 3 2022 W12
#> 4 2026 W9
#> 5 2026 W52页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/72936733
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号