r - 使用 ggplot2、aes_string 和重新排序制作绘图功能

Question

我试图让将要使用的功能ggplot2中，aes_string并reorder但至今没有运气。

基本上，如果我们有一个如下所示的示例数据集：

library(ggplot2)
library(dplyr)

set.seed(123)
dt <- data.frame(
          id = c(1,1,1,2,2),
          a = c("b", "d", "c", "a", "b"),
          b = sample(1:10, 5, replace = F),
          cat = c(1,1,2,2,2)) %>%
    mutate(a = as.factor(a)) %>% 
    as_tibble()

我希望该函数接受以下参数：数据集、过滤变量和用于绘图的两个变量。

这就是我设法做的：

myplot <- function(df, filtval, var1, var2) {
    data <- df %>% filter(id == filtval)

    ggplot(data) + 
        geom_point(
            aes_string(
                x = reorder(var1, var2),
                y = var2)
    )
}

不幸的是，当运行它返回错误：

myplot(dt, 1, "a", "b")
Warning message:
    In mean.default(X[[i]], ...) :
    argument is not numeric or logical: returning NA

这就是我希望函数执行的操作：

data <- dt %>% filter(id == 1)
ggplot(data) + 
    geom_col(aes(x = reorder(a, - b), y = b))

Answer 1

使用最新版本的 ggplot，您应该使用aeswith!!和sym()将您的字符串转换为符号。

myplot <- function(df, filtval, var1, var2) {
  data <- df %>% filter(id == filtval)

  ggplot(data) + 
    geom_point(
      aes(
        x = reorder(!!sym(var1), !!sym(var2)),
        y = !!sym(var2))
    )
}