tests/testthat/test-line_clip.R

In EmilHvitfeldt/ggclipped: Add Special Case Geoms to 'ggplot2' Where Lines Overlap

context("test-line_clip")

library(ggplot2)
library(ggclipped)

data <- data.frame(rank = rep(0:1, 5),
                   time = rep(1:5, 2),
                   team = rep(0:1, each = 5))

base_zigzag_line_clip <- ggplot(data, aes(time, rank, color = factor(team))) +
  geom_line_clip()

vdiffr::expect_doppelganger("Base ZigZag Line Clip", base_zigzag_line_clip)

data <- structure(list(time = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
                                2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L,
                                3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L,
                                5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L,
                                6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L,
                                8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L,
                                10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L,
                                11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L,
                                12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L,
                                13L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 15L, 15L,
                                15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L),
                       team = c("V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V1", "V2",
                                "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10"),
                       rank = c(5,
                                1, 2, 3, 4, 6, 10, 8, 9, 7, 1, 2, 4, 5, 3, 6, 7, 9, 10, 8, 2,
                                1, 6, 5, 3, 4, 8, 7, 10, 9, 1, 2, 6, 5, 3, 4, 7, 9, 10, 8, 1,
                                2, 5, 6, 4, 3, 8, 7, 10, 9, 1, 2, 3, 6, 4, 5, 7, 8, 10, 9, 1,
                                2, 3, 5, 4, 6, 7, 8, 10, 9, 1, 2, 3, 5, 4, 6, 8, 7, 10, 9, 1,
                                2, 3, 6, 4, 5, 8, 7, 10, 9, 1, 2, 3, 6, 4, 5, 8, 7, 9, 10, 1,
                                2, 3, 6, 4, 5, 8, 7, 9, 10, 1, 2, 3, 6, 4, 5, 8, 7, 9, 10, 1,
                                2, 3, 6, 4, 5, 8, 7, 9, 10, 1, 2, 3, 5, 4, 6, 8, 7, 9, 10, 1,
                                2, 3, 5, 4, 6, 8, 7, 9, 10)),
                  row.names = c(NA, -150L), class = c("tbl_df", "tbl", "data.frame"))

extra_clipping <- ggplot(data, aes(time, rank, color = factor(team))) +
  geom_line_clip()

vdiffr::expect_doppelganger("Extra clipping plot", extra_clipping)