Running the example for geom_waffle() shows that the

<a class="user-mention notranslate" data-hovercard-type="user" data-hovercard-url="/us

Hi! I just encountered the same problem. It gives an error in <code class="notranslate

`na.rm = NA` default for `geom_waffle()` gives an error,about hrbrmstr/waffle

Comments (5)

mine-cetinkaya-rundel commented on May 23, 2024 2

@linshhhhh you can set geom_waffle(na.rm = TRUE) or geom_waffle(na.rm = FALSE) explicitly and it should work.

from waffle.

hrbrmstr commented on May 23, 2024 2

fixed in latest GH and now CRAN release. #ty

from waffle.

linshhhhh commented on May 23, 2024

Hi! I just encountered the same problem. It gives an error in remove_missing(): because "na.rm must be TRUE or FALSE, not NA". Have you figured out the solution to this error? Thank you in advance!

from waffle.

linshhhhh commented on May 23, 2024

Thank you so much for your help. It works finally!

from waffle.

AnttiRask commented on May 23, 2024

To recreate the exact sample plot, this is the complete code. If someone would like to update the documentation with these.

library(dplyr)
library(waffle)

storms_df <- storms %>% 
    filter(
        status %in% c("tropical storm", "tropical depression", "hurricane"),
        between(year, 2010, 2015)
    ) %>% 
    count(year, status)

storms_df %>% 
    ggplot(aes(fill = status, values = n)) +
    geom_waffle(
        color  = "white",
        size   = .25,
        n_rows = 10,
        flip   = TRUE,
        na.rm  = TRUE
    ) +
    facet_wrap(~year, nrow = 1, strip.position = "bottom") +
    scale_x_discrete() + 
    scale_y_continuous(labels = function(x) x * 10, # make this multiplyer the same as n_rows
                       expand = c(0,0)) +
    ggthemes::scale_fill_tableau(name=NULL) +
    coord_equal() +
    labs(
        title = "Faceted Waffle Bar Chart",
        subtitle = "{dplyr} storms data",
        x = "Year",
        y = "Count"
    ) +
    theme_minimal(base_family = "Roboto Condensed") +
    theme(panel.grid = element_blank(), axis.ticks.y = element_line()) +
    guides(fill = guide_legend(reverse = TRUE))

from waffle.

Recommend Projects