From 30969ff81b8b783499e33833cb5956c73e3cf53d Mon Sep 17 00:00:00 2001
From: xiangpin <xshuangbin@163.com>
Date: Tue, 12 Dec 2023 17:44:51 +0800
Subject: [PATCH] as.symbol var in group_by

---
 R/geom_scatterpie.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/geom_scatterpie.R b/R/geom_scatterpie.R
index 4c94ab7..62e9cb2 100644
--- a/R/geom_scatterpie.R
+++ b/R/geom_scatterpie.R
@@ -69,7 +69,7 @@ geom_scatterpie <- function(mapping=NULL, data, cols, pie_scale = 1, sorted_by_r
     if (!"group" %in% names(mapping)){
       xvar <- get_aes_var(mapping, 'x0')
       yvar <- get_aes_var(mapping, 'y0')
-      df <- df |> dplyr::group_by(!!xvar, !!yvar) |>
+      df <- df |> dplyr::group_by(!!as.symbol(xvar), !! as.symbol(yvar)) |>
        dplyr::group_split() |> as.list()
       names(df) <- seq_len(length(df))
       df <- dplyr::bind_rows(df, .id=".group.id")