ggplot ve dplyr'i bir işlevde nasıl birleştirilir?

Question

Ben dataframe ve girdi olarak gruplama değişken alır bir işlevi yazmak istiyorum İşte bu basit örnek

library(dplyr) 
library(ggplot2) 

dataframe <- data_frame(id = c(1,2,3,4), 
         group = c('a','b','c','c'), 
         value = c(200,400,120,300)) 

# A tibble: 4 x 3 
    id group value 
    <dbl> <chr> <dbl> 
1  1  a 200 
2  2  b 400 
3  3  c 120 
4  4  c 300 

düşünün. İdeal olarak, gruplandırıldıktan ve toplandıktan sonra ggpplot grafiğini yazdırmak istiyorum. Yukarıdaki işleve ggplot ekleyerek Maalesef

get_charts2 <- function(data, mygroup){ 

    quo_var <- enquo(mygroup) 

    df_agg <- data %>% 
    group_by(!!quo_var) %>% 
    summarize(mean = mean(value, na.rm = TRUE), 
       count = n()) %>% 
    ungroup() 

    df_agg 
} 



> get_charts2(dataframe, group) 
# A tibble: 3 x 3 
    group mean count 
    <chr> <dbl> <int> 
1  a 200  1 
2  b 400  1 
3  c 210  2 

Burada sorun nedir anlamıyorum

get_charts1 <- function(data, mygroup){ 

    quo_var <- enquo(mygroup) 

    df_agg <- data %>% 
    group_by(!!quo_var) %>% 
    summarize(mean = mean(value, na.rm = TRUE), 
       count = n()) %>% 
    ungroup() 

    ggplot(df_agg, aes(x = count, y = mean, color = !!quo_var, group = !!quo_var)) + 
    geom_point() + 
    geom_line() 
} 


> get_charts1(dataframe, group) 
Error in !quo_var : invalid argument type 

GETİRMEDİĞİ:

Bu çalışır. Herhangi bir fikir? Teşekkürler!

DÜZENLEME: Burada how to create factor variables from quosures in functions using ggplot and dplyr?

Answer 1

ggplot ilginç izlem henüz (eğer !! kullanamazsınız) düzenli eval sözdizimi desteklemez. Daha geleneksel standart değerlendirme çağrıları kullanmanız gerekir. Buna yardımcı olmak için ggplot'ta aes_q'u kullanabilirsiniz.

get_charts1 <- function(data, mygroup){ 

    quo_var <- enquo(mygroup) 

    df_agg <- data %>% 
    group_by(!!quo_var) %>% 
    summarize(mean = mean(value, na.rm = TRUE), 
       count = n()) %>% 
    ungroup() 

    ggplot(df_agg, aes_q(x = quote(count), y = quote(mean), color = quo_var, group = quo_var)) + 
    geom_point() + 
    geom_line() 
} 


get_charts1(dataframe, group)