Missing points and axis in map() scatterplots

[sgrplm]

Hi, This is a new error that resulted from a previous help request suggestion.

I would like to automatically render the same plot for different "names" in html Rmarkdown.

library(ggrepel)

example <- data.frame(
  number = as.numeric(c("1", "6", "12", "2", "3", "5", "53")),
  variable = c("Low", "Low", "Low", "Normal", "Exaggerated", "Exaggerated", "NA"),
  date = as.Date(c("1991-01-08", "1991-02-05", "1991-03-05", "1991-01-13", "1991-01-15", "1991-01-29", "NA")),
  words = rep("NA", 7),
  second_number = c("20", "10", "5", "100", "20", "5", "NA"),
  third_number = c("20", "10", "5", "99", "20", "5", "NA"),
  name = c("Aname", "Aname", "Aname", "Cname", "Cname", "Cname", "IGNORE"),
  fourth_number = c("20", "7", "5", "97", "19", "5", "NA"),
  fifth_number = c("0", "0", "0", "0", "0", "0", "NA"),
  sixth_number = c("0", "3", "0", "2", "1", "0", "NA"),
  seventh_number = c("0", "0", "0", "0", "0", "0", "NA"),
  more_words = rep("NA", 7),
  eighth_number = as.numeric(c("1.0", "0.7", "0.1", "0.979", "0.950", "1.000", "NA")),
  stringsAsFactors = FALSE
)

map(
  # for each variable in .x
  .x = unique(example$name), 
  # do .f 
  .f = ~ filter(example, name == .x) %>% # filter by .x
    ggplot( # plot 
    mapping = aes(
      x = date,
      y = eighth_number,
      group = variable,
      color = variable
    )
  ) +
    geom_point(size = 1) +
    labs(
      title = str_c(.x),
      x = "date",
      y = "eighth number"
    ) +
    geom_line() +
    theme_bw() +
    scale_x_date(date_labels = "%b %Y", date_breaks = "month", 
                 limits = as.Date("1991-12-01", "1992-02-01"))+
    geom_label_repel(aes(label = format(date, format = "%b %d")),
                   size = 3,
                   hjust=0.5, 
                   vjust=1,
                   angle=90,
                   box.padding   = 0.25, 
                   point.padding = 0.5,
                   segment.color = 'grey50') 
)

However, the axis scales are not consistent, and not all points are displayed for each plot.

My plots (that have data) look like this:

An ideal plot would look more or less like this, a legend, axis labels, and title:

[mduvekot]

I'd create a function to plot the charts. The function should take one argument, title. Test that it works with my_function that_makes_plot("this is the title"). Then you can use map(unique(example$name), my_function that_makes_plot). Also, have a look at your limits for scale_x_date(), they don't match what's in the data. And filter out the last row of your dataframe.