Function says a column is not found

Question

I make this function in R to make a bar graph but it gives me an error every time I try it on a dataset, saying that columname is not found. Can you help me find where the bug is please.

Thanks in advance for your help on how to fix this.

Here is the code:

plot_dist <-
  function(data, column_name, title = "Please provide a title") {
    ## This function computes a barplot of a given column_name for a given dataset with the title
    data %>%
      group_by(column_name) %>%
      summarise(Nombre = n()) %>%
      ggplot(aes(column_name, Nombre)) +
      geom_bar(stat = "identity", fill = 'steelblue') +
      geom_text(
        aes(label = Nombre),
        vjust = -0.5,
        color = 'steelblue',
        size = 3.5
      ) +
      theme_minimal() +
      ggtitle(title) +
      theme(plot.title = element_text(hjust = 0.5))
}

For example running:

plot_dist(pps, gender, "Distribution de genre")

returns

Error: Column column_name is unknown

Look up `ggplot2` and non-standard evaluation (NSE). – r2evans Sep 04 '19 at 04:32 — r2evans, Sep 04 '19 at 04:32
Try this https://stackoverflow.com/a/49648729/786542 – Tung Sep 04 '19 at 05:23 — Tung, Sep 04 '19 at 05:23

score 0 · Answer 1 · answered Sep 04 '19 at 06:28

0

I think the simplest way to make this work with tidyeval is:

...
group_by({{ column_name}} ) %>%
      summarise(Nombre = n()) %>%
      ggplot(aes({{ column_name }}, Nombre)) +
...

plot_dist(mtcars, cyl, "Distribution de cilindros")

answered Sep 04 '19 at 06:28

Jon Spring

55,165
4
35
53

Function says a column is not found

1 Answers1