./ AppGallery.vue?vue&type = style&index = 0&id = 0cb54319&lang = scss&scoped = true&./components/sub-page/AppGallery.vue
AppGalery.vue不导入任何内容
library(dplyr)
dt %>%
mutate(group = case_when(v1 < 5 ~ 1,
v1 >=5 & v1 <10 ~ 2,
v1 >= 10 ~3),
row = row_number()) %>%
group_by(group) %>%
mutate(change = if (n() < 3) {
c(dt$v1[first(row) - 1L], dt$v1[last(row) + 1L])[
which.min(c(abs(mean(v1) - dt$v1[first(row) - 1L]),
abs(mean(v1) - dt$v1[last(row) + 1L])))]
} else group)
# v1 group row change
# <dbl> <dbl> <int> <dbl>
# 1 3 1 1 1
# 2 1 1 2 1
# 3 1 1 3 1
# 4 5 2 4 1
# 5 6 2 5 1
# 6 12 3 6 3
# 7 13 3 7 3
# 8 11 3 8 3
# 9 10 3 9 3
#10 0 1 10 1
#11 2 1 11 1
#12 1 1 12 1
#13 3 1 13 1
保存时错误更改为其他文件。