我想知道如何在ggplot2中的fct_reorder()中使用NSE(非标准评估)表达式来复制不同数据帧的图表。
这是我用来绘制图表的数据框示例:
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_int 更改 travel_time_br30 的顺序，因此我在中使用 fct_reorder 函数ggplot2(., aes_(...))。但是，如果我在 geom_line() 中使用 aes_ 和 fct_reorder() (如以下脚本中的示例所示)，它会返回一个错误，指出错误:f必须是一个因子(或字符向量)。
geom_line(size=1.4, aes_(color=fct_reorder(as.name(g.var),order(as.name(go.var)))))
Fct_reorder() 似乎没有像 fct_reorder_() 这样的 NSE 版本。
是否不可能在脚本序列中同时使用 aes_ 和 fct_reorder() 或者是否有其他解决方案？
最佳答案
根据我对 tidy-eval 的新手工作知识，您可以在将数据传递到 ggplot() 之前在 mutate() 中转换因子顺序并获得结果.
抱歉，由于行返回，我无法轻松阅读您上面的表格，因此我用 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 wrote up a bunch of common cases .
关于r - 如何在ggplot2中的fct_reorder()中使用NSE，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/50170713/