Grid line placement issue with bar plot and coord_flip

[tungttnguyen]

I found a problem with geom_col() and coord_flip

I expected the grid lines to show up differently

Here is the code to reproduce the bug:

# Load the ggplot2 library
library(ggplot2)

# Create sample data
data <- data.frame(
  category = c("A", "B", "C", "D", "E", "F", "G"),
  value = c(15, -5, 8, -10, 20, 12, -8)
)

ggplot(data, aes(x = category, y = value, fill = value > 0)) +
  geom_col() +
  coord_flip() +
  scale_fill_manual(values = c("firebrick", "steelblue"), 
                    guide = "none") +  
  labs(
    title = "Bar Plot with grid line issue",
    x = "Category",
    y = "Value"
  ) +
  theme_minimal() +
  geom_hline(yintercept = 0, linetype = "dashed", color = "gray50") +
  scale_y_continuous(limits = c(-15, 25), breaks = seq(-15, 25, 5))

^{Created on 2025-02-27 with reprex v2.1.1}

Session info

sessioninfo::session_info()
#> Warning in system2("quarto", "-V", stdout = TRUE, env = paste0("TMPDIR=", :
#> running command '"quarto"
#> TMPDIR=C:/Users/user007/AppData/Local/Temp/RtmpIF6DrK/fileb07464c62025 -V' had
#> status 1
#> ─ Session info ───────────────────────────────────────────────────────────────
#>  setting  value
#>  version  R version 4.4.2 (2024-10-31 ucrt)
#>  os       Windows 11 x64 (build 22631)
#>  system   x86_64, mingw32
#>  ui       RTerm
#>  language (EN)
#>  collate  English_United States.utf8
#>  ctype    English_United States.utf8
#>  tz       America/Los_Angeles
#>  date     2025-02-27
#>  pandoc   3.2 @ C:/Program Files/RStudio/resources/app/bin/quarto/bin/tools/ (via rmarkdown)
#>  quarto   NA @ C:\\PROGRA~1\\RStudio\\RESOUR~1\\app\\bin\\quarto\\bin\\quarto.exe
#> 
#> ─ Packages ───────────────────────────────────────────────────────────────────
#>  package     * version    date (UTC) lib source
#>  cli           3.6.4      2025-02-13 [1] CRAN (R 4.4.2)
#>  colorspace    2.1-1      2024-07-26 [1] CRAN (R 4.4.1)
#>  curl          6.2.1      2025-02-19 [1] CRAN (R 4.4.2)
#>  digest        0.6.37     2024-08-19 [1] CRAN (R 4.4.1)
#>  dplyr         1.1.4.9000 2025-02-24 [1] Github (tidyverse/dplyr@893dbac)
#>  evaluate      1.0.3      2025-01-10 [1] CRAN (R 4.4.2)
#>  farver        2.1.2      2024-05-13 [1] CRAN (R 4.4.0)
#>  fastmap       1.2.0      2024-05-15 [1] CRAN (R 4.4.0)
#>  fs            1.6.5      2024-10-30 [1] CRAN (R 4.4.1)
#>  generics      0.1.3      2022-07-05 [1] CRAN (R 4.4.0)
#>  ggplot2     * 3.5.1.9000 2025-02-27 [1] Github (tidyverse/ggplot2@e727e2b)
#>  glue          1.8.0      2024-09-30 [1] CRAN (R 4.4.1)
#>  gtable        0.3.6      2024-10-25 [1] CRAN (R 4.4.1)
#>  htmltools     0.5.8.1    2024-04-04 [1] CRAN (R 4.4.0)
#>  knitr         1.49       2024-11-08 [1] CRAN (R 4.4.2)
#>  lifecycle     1.0.4      2023-11-07 [1] CRAN (R 4.4.0)
#>  magrittr      2.0.3      2022-03-30 [1] CRAN (R 4.4.0)
#>  munsell       0.5.1      2024-04-01 [1] CRAN (R 4.4.0)
#>  pillar        1.10.1     2025-01-07 [1] CRAN (R 4.4.2)
#>  pkgconfig     2.0.3      2019-09-22 [1] CRAN (R 4.4.0)
#>  R6            2.6.1      2025-02-15 [1] CRAN (R 4.4.2)
#>  reprex        2.1.1      2024-07-06 [1] CRAN (R 4.4.1)
#>  rlang         1.1.5      2025-01-17 [1] CRAN (R 4.4.2)
#>  rmarkdown     2.29       2024-11-04 [1] CRAN (R 4.4.2)
#>  rstudioapi    0.17.1     2024-10-22 [1] CRAN (R 4.4.1)
#>  scales        1.3.0      2023-11-28 [1] CRAN (R 4.4.0)
#>  sessioninfo   1.2.3      2025-02-05 [1] CRAN (R 4.4.2)
#>  tibble        3.2.1      2023-03-20 [1] CRAN (R 4.4.0)
#>  tidyselect    1.2.1      2024-03-11 [1] CRAN (R 4.4.0)
#>  vctrs         0.6.5      2023-12-01 [1] CRAN (R 4.4.0)
#>  withr         3.0.2      2024-10-28 [1] CRAN (R 4.4.1)
#>  xfun          0.51       2025-02-19 [1] CRAN (R 4.4.2)
#>  xml2          1.3.6      2023-12-04 [1] CRAN (R 4.4.0)
#>  yaml          2.3.10     2024-07-26 [1] CRAN (R 4.4.1)
#> 
#>  * ── Packages attached to the search path.
#> 
#> ──────────────────────────────────────────────────────────────────────────────

[teunbrand]

Hi there, thanks for the report! Is this a duplicate of #6293?

[clauswilke]

This certainly looks broken and should be fixed. But just to make sure: You know you can make this plot without coord_flip(), right?

# Load the ggplot2 library
library(ggplot2)

# Create sample data
data <- data.frame(
  category = c("A", "B", "C", "D", "E", "F", "G"),
  value = c(15, -5, 8, -10, 20, 12, -8)
)

ggplot(data, aes(y = category, x = value, fill = value > 0)) +
  geom_col() +
  scale_fill_manual(values = c("firebrick", "steelblue"), 
                    guide = "none") +  
  labs(
    title = "Bar Plot with grid line issue",
    x = "Category",
    y = "Value"
  ) +
  theme_minimal() +
  geom_hline(yintercept = 0, linetype = "dashed", color = "gray50") +
  scale_x_continuous(limits = c(-15, 25), breaks = seq(-15, 25, 5))

^{Created on 2025-02-27 with reprex v2.1.1}

[teunbrand]

I've #6319 pending review to fix #6293, but we shouldn't track the same problem twice so I'm closing this one in favour of the other.

[tungttnguyen]

Thanks @clauswilke & @teunbrand !