tests/testthat/test-bar_chart.R

In ggcharts: Shorten the Distance from Data Visualization Idea to Actual Plot

context("Bar Chart")
library(dplyr)
data("biomedicalrevenue")

revenue_2018 <- biomedicalrevenue[biomedicalrevenue$year == 2018, ]
revenue_roche <- biomedicalrevenue[biomedicalrevenue$company == "Roche", ]

vdiffr::expect_doppelganger(
  "Horizontal Sorted Bar Chart",
  bar_chart(revenue_2018, company, revenue)
)

vdiffr::expect_doppelganger(
  "Horizontal Non-Sorted Bar Chart",
  bar_chart(revenue_2018[c(3, 9, 2, 20, 13), ], company, revenue, sort = FALSE)
)

vdiffr::expect_doppelganger(
  "Vertical Non-Sorted Bar Chart",
  bar_chart(revenue_roche, year, revenue, sort = FALSE, horizontal = FALSE)
)

vdiffr::expect_doppelganger(
  "Vertical Sorted Bar Chart",
  bar_chart(revenue_2018, company, revenue, horizontal = FALSE)
)

vdiffr::expect_doppelganger(
  "Horizontal Sorted Bar Chart With Facets",
  bar_chart(biomedicalrevenue, company, revenue, facet = year)
)

vdiffr::expect_doppelganger(
  "Horizontal Non-Sorted Bar Chart With Facets",
  bar_chart(biomedicalrevenue, year, revenue, facet = company, sort = FALSE)
)

vdiffr::expect_doppelganger(
  "Vertical Non-Sorted Bar Chart With Facets",
  bar_chart(
    biomedicalrevenue,
    year,
    revenue,
    facet = company,
    sort = FALSE,
    horizontal = FALSE
  )
)

vdiffr::expect_doppelganger(
  "Horizontal Sorted Bar Chart With One Highlight",
  bar_chart(revenue_2018, company, revenue, limit = 12, highlight = "Sanofi")
)

vdiffr::expect_doppelganger(
  "Horizontal Sorted Bar Chart With Two Highlights in The Same Color",
  bar_chart(
    revenue_2018,
    company,
    revenue,
    limit = 12,
    highlight = c("Sanofi", "Novartis")
  )
)

vdiffr::expect_doppelganger(
  "Horizontal Sorted Bar Chart: 2 Highlights, Different Colors",
  bar_chart(
    revenue_2018,
    company,
    revenue,
    limit = 12,
    highlight = highlight_spec(c("Sanofi", "Novartis"), c("yellow", "darkorange"))
  )
)