Как использовать NSE внутри fct_reorder () в ggplot2

Question

Я хотел бы знать, как использовать выражение NSE (нестандартная оценка) в fct_reorder() в ggplot2 для репликации диаграмм для разных фреймов данных.

Это пример фрейма данных, который я использую для построения диаграммы:

   travel_time_br30 travel_time_br30_int time_reduction shift not_shift total
1              0-30                    0             10  2780      3268  6048
2              0-30                    0             20  2779      3269  6048
3              0-30                    0             30  2984      3064  6048
4              0-30                    0             40  3211      2837  6048
5             30-60                   30             10  2139      2007  4146
6             30-60                   30             20  2159      1987  4146
7             30-60                   30             30  2363      1783  4146
8             30-60                   30             40  2478      1668  4146
9             60-90                   60             10   764       658  1422
10            60-90                   60             20   721       701  1422
11            60-90                   60             30   782       640  1422
12            60-90                   60             40   801       621  1422
13           90-120                   90             10   296       224   520
14           90-120                   90             20   302       218   520
15           90-120                   90             30   317       203   520
16           90-120                   90             40   314       206   520
17          120-150                  120             10    12        10    22
18          120-150                  120             20    10        12    22
19          120-150                  120             30    10        12    22
20          120-150                  120             40    13         9    22
21          150-180                  150             10    35        21    56
22          150-180                  150             20    40        16    56
23          150-180                  150             30    40        16    56
24          150-180                  150             40    35        21    56
      share
1  45.96561
2  45.94907
3  49.33862
4  53.09193
5  51.59190
6  52.07429
7  56.99469
8  59.76845
9  53.72714
10 50.70323
11 54.99297
12 56.32911
13 56.92308
14 58.07692
15 60.96154
16 60.38462
17 54.54545
18 45.45455
19 45.45455
20 59.09091
21 62.50000
22 71.42857
23 71.42857
24 62.50000

Это сценарии для рисования диаграммы сверху фрейма данных:

g.var <- "travel_time_br30"
go.var <- "travel_time_br30_int"

test %>% ggplot(.,aes_(x=as.name(x.var),y=as.name("share"),group=as.name(g.var))) +
    geom_line(size=1.4, aes(
                color=fct_reorder(travel_time_br30,order(travel_time_br30_int)))) 

Поскольку у меня есть несколько фреймов данных, которые имеют различные поля, такие как access_time_br30, access_time_br30_int вместо travel_time_br30 и travel_time_br30_int в фрейме данных, я установил две переменные (g.var и go.var) в легко копировать несколько символов в одном скрипте.

Поскольку мне нужно численно изменить порядок группы факторов, в частности, изменить порядок travel_time_br30 на travel_time_br30_int, я использую функцию fct_reorder в ggplot2(., aes_(...)). Тем не менее, если я использую aes_ с fct_reorder() в geom_line(), как показано в качестве примера в следующем сценарии, он возвращает сообщение об ошибке Error: f must be a factor (or character vector).

geom_line(size=1.4, aes_(color=fct_reorder(as.name(g.var),order(as.name(go.var)))))

Fct_reorder() не имеет версии NSE, такой как fct_reorder_(). Нельзя ли использовать aes_ и fct_reorder () в последовательности сценариев или есть другие решения?

Answer 1

Основываясь на моих новичках в работе над tidy-eval, вы можете преобразовать свой порядок факторов в mutate() перед передачей данных в ggplot() и получить свой результат.

Извините, я не мог легко прочитать в вашей таблице выше из-за возврата строки, поэтому я сделал новый пример из mtcars, который, я думаю, отражает ваши намерения. (дайте мне знать, если это не так)

mtcars2 <- mutate(mtcars,
                  gear_int = 6 - gear,
                  gear_intrev = rev(gear_int)) %>%
    mutate_at(vars(cyl, gear), as.factor)


library(rlang)

gg_reorder <- function(data, col_var, col_order) {

    eq_var <- sym(col_var) # sym is flexible and my novice preference
    eq_ord <- sym(col_order)

    data %>% mutate(!!quo_name(eq_var) := fct_reorder(!!eq_var, !!eq_ord) ) %>%
        ggplot(aes_(~mpg, ~hp, color = eq_var)) +
          geom_line()

}

А теперь используйте его для черчения ...

gg_reorder(mtcars2, "gear", "gear_int")

gg_reorder(mtcars2, "gear", "gear_intrev")

Я не указал все переменные aes_() в виде строк, но вы можете передать их в виде текста и использовать шаблон as.name(). Если вам нужно больше tidy-eval шаблонов Эдвин Тун написал несколько общих случаев .