Añadir función geom_legend #6

New Issue

2022-02-11T22:27:30+01:00

marcelcosta commented

2022-02-11 22:27:30 +01:00

Aquí está la función ya hecha!

function to print in the middle

geom_legend<-function(data, x, y, var, stat="median", color="black", ...){
  data<-data %>% group_by({{var}}) %>% summarise("{{x}}":=median({{x}}), "{{y}}":=median({{y}}))
  if (!is.null(color)){
    return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}), color=color, ...))
  }else{
    return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}),...))
    }
}

Aquí está la función ya hecha! #### function to print in the middle ```r geom_legend<-function(data, x, y, var, stat="median", color="black", ...){ data<-data %>% group_by({{var}}) %>% summarise("{{x}}":=median({{x}}), "{{y}}":=median({{y}})) if (!is.null(color)){ return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}), color=color, ...)) }else{ return(geom_label(data = data, aes({{x}},{{y}}, label={{var}}),...)) } } ```

marcelcosta added the Nueva label 2022-02-11 22:27:35 +01:00

marcelcosta commented

2022-02-12 12:29:03 +01:00

Hecha, aunque ahora se llama gglegend.

marcelcosta closed this issue

2022-02-12 12:29:05 +01:00

Sign in to join this conversation.

1 Participants

Notifications

Due Date

No due date set.

Dependencies

No dependencies set.

Reference: marcelcosta/CitFuns#6