tests/testthat/test_geom-pointline.r

In lemon: Freshing Up your 'ggplot2' Plots

library(testthat)
library(ggplot2)
library(grid)
library(lemon)

expect_ggplot <- function(object, class='ggplot', ...) expect_s3_class(object, class=class, ...)

test_that('geom_pointpath works', {
  p <- ggplot(mtcars, aes(wt, mpg))
  expect_ggplot(p + geom_point())
  
  p + geom_point(position=position_jitter(0.3, 0.3)) + geom_line(position=position_jitter(0.3, 0.3))
  
  expect_ggplot(
    p + geom_pointpath()
  )
  
  p + geom_pointpath(position=position_jitter(width=0.7, height=0.7))
  p + geom_pointpath(aes(colour=as.factor(cyl)))
  p + geom_pointpath(aes(colour=cyl))
  p + geom_pointpath(aes(alpha=cyl))
  
  p + geom_pointpath(aes(colour=as.factor(cyl), size=drat), position=position_jitter(width=0.2, height=0.2))
  p + geom_pointpath(aes(size=drat), distance=unit(0, 'pt'))
  
  p + geom_pointpath(arrow=arrow())
})

test_that('geom_pointline works', {
  p <- ggplot(mtcars, aes(wt, mpg))
  expect_ggplot(p + geom_point() + geom_line())

  #expect_ggplot(
    p + geom_pointline()
  #  )
  
    # Jitter
  p + geom_point(position=position_jitter(0.2, 0.2)) + geom_line(position=position_jitter(0.2, 0.2))  
  p + geom_pointline(position=position_jitter(width=0.7, height=0.7))
  
  p + geom_pointline(aes(colour=as.factor(cyl)))
  
  p + geom_pointline(aes(colour=as.factor(cyl), size=drat), position=position_jitter(width=0.2, height=0.2))
  
  p + geom_pointline(aes(size=drat), distance=unit(-3, 'pt'))
})