ggplot ve dplyr kullanarak fonksiyonlardaki pozlamalardan faktör değişkenleri nasıl oluşturulur?

Question

Bu, how to combine ggplot and dplyr into a function? numaralı telefondan bir takiptir.

Sorun, dplyr, ggplot ve muhtemelen quosures arasındaki faktör değişkenlerini belirleyen bir işlevi nasıl yazılır? Burada

gruplama değişken için sürekli bir skala ile

get_charts1 <- function(data, mygroup, myoutput){ 

    quo_var <- enquo(mygroup) 
    quo_output <- enquo(myoutput) 

    df_agg <- data %>% 
    group_by(!!quo_var) %>% 
    summarize(mean = mean(!!quo_output, 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, 
      mygroup = group, 
      myoutput = value) 

çıktısı bir grafik, yani, bir örnek

dataframe <- data_frame(id = c(1,2,3,4,5,6), 
         group = c(1,1,0,0,3,4), 
         value = c(200,400,120,300,100,100)) 

# A tibble: 6 x 3 
    id group value 
    <dbl> <dbl> <dbl> 
1  1  1 200 
2  2  1 400 
3  3  0 120 
4  4  0 300 
5  5  3 100 
6  6  4 100 

Görüldüğü gibi, gruplama değişken group burada sayısal olan arzu edilmez.

İdeal olarak, ben on-the-fly faktör değişkenleri tanımlamak istiyorum.

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

elbette çalışmaz: Bu işlevde böyle bir şey olması vardır.

Soru şudur: Burada ne yapılabilir?

Teşekkürler!

Answer 1

Diğer rlang işlevlerini kullanma olasılığı vardır.

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() 

    cc <- rlang::expr(factor(!!(rlang::get_expr(quo_var)))) 
    # or just cc <- expr(factor(!!get_expr(quo_var))) if you include library(rlang) 

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

Biz expr() işlevini kullanarak ifadeyi factor(group) kurmak. quo_var işaretinden "grup" sembol ismini çıkarmak için get_expr() kullanıyoruz. İfadeyi oluşturduktan sonra, aes_q'a iletebiliriz. Umarım ggplot yakında düzenli değerlendirme yapacaktır ve bu artık gerekli olmayacaktır.