CODEWITHSUNDEEP
rggplot2geom-textggallyggpairs
serwaah
serwaah

Reputation: 3

ggpairs what is the name of the column with the facets?

I am trying to add text to a ggpairs plot. I have created my own data frame with columns for the x and y positions and the labels. However, I do not know what to name the column that contains the facet labels.

In the context of the example below: I want each label to show up on only one facet. To achieve this, what should I call GROUP_VAR?

plot_my_bars <-  function(data,
                          mapping,
                          ...){

    bars_plot <- ggally_barDiag(data,
                                mapping) +
        geom_text(data = my_text_df,
                  aes(x = my_x,
                      y = my_y,
                      label = my_label))
    return(bars_plot)
}

my_df <- data.frame(var_1 = runif(10, 1, 2),
                    var_2 = runif(10, 1, 3))

my_text_df <- data.frame(my_x = c(0.5, 1),
                         my_y = c(2, 3),
                         my_label = c("lab1", "lab2"),
                         GROUP_VAR = c("var_1", "var_2"))

my_plot <- ggpairs(my_df,
                   upper = list(continuous = "blank"),
                   lower = list(continuous = "blank"),
                   diag = list(continuous = GGally::wrap(
                                                        plot_my_bars))
)

Upvotes: 0

Views: 153

Answers (1)

stefan
stefan

Reputation: 124473

One option to achieve your desired result would be to filter the dataset passed to geom_text for the variable mapped on the x aes like so:

library(GGally)

set.seed(123)

plot_my_bars <- function(data,
                         mapping,
                         ...) {
  bars_plot <- ggally_barDiag(
    data,
    mapping
  )
  
  bars_plot <- bars_plot +
    geom_text(
      data = subset(my_text_df, GROUP_VAR %in% quo_name(bars_plot$mapping$x)),
      aes(
        x = my_x,
        y = my_y,
        label = my_label
      )
    )
  
  return(bars_plot)
}

ggpairs(my_df,
  upper = list(continuous = "blank"),
  lower = list(continuous = "blank"),
  diag = list(continuous = GGally::wrap(
    plot_my_bars
  ))
) 
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Upvotes: 0

Related Questions