2

我想知道如何使用 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_br30by 的顺序travel_time_br30_int，因此我正在使用fct_reorderin 中的函数ggplot2(., aes_(...))。但是，如果我使用aes_with fct_reorder()in 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()似乎没有像fct_reorder_(). 在一系列脚本中同时使用 aes_ 和 fct_reorder() 是不可能的，还是有其他解决方案？

4

1 回答 1

2

根据我对 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模式，Edwin Thoen 写了一堆常见的案例。

于 2018-05-04T10:04:14.843 回答