Repository navigation
Expand file tree
/
Copy pathtest-ggplot-boxplot.R
More file actions
86 lines (71 loc) · 2.55 KB
/
Copy pathtest-ggplot-boxplot.R
File metadata and controls
86 lines (71 loc) · 2.55 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
context("Boxplot")
expect_traces <- function(gg, n.traces, name) {
stopifnot(is.numeric(n.traces))
expect_doppelganger_built(gg, paste0("boxplot-", name))
L <- gg2list(gg)
all.traces <- L$data
no.data <- sapply(all.traces, function(tr) {
is.null(tr[["x"]]) && is.null(tr[["y"]])
})
has.data <- all.traces[!no.data]
expect_equivalent(length(has.data), n.traces)
list(traces=has.data, layout=L$layout)
}
test_that("geom_boxplot gives a boxplot", {
gg <- ggplot(mtcars, aes(factor(cyl), mpg)) + geom_boxplot()
L <- expect_doppelganger_built(gg, "boxplot")
expect_length(L$data, 1)
expect_true(L$data[[1]]$type == "box")
expect_true(L$data[[1]]$orientation %||% "v" == "v")
})
test_that("geom_boxplot with coord_flip", {
p <- ggplot(diamonds, aes(cut, price)) +
geom_boxplot() +
coord_flip()
L <- plotly_build(p)$x
expect_length(L$data, 1)
expect_true(L$data[[1]]$orientation == "h")
expect_equivalent(sort(L$data[[1]]$x), sort(diamonds[["price"]]))
})
test_that("you can make a boxplot for a distribution of datetimes", {
dist <- c(10, 20, 33, 40, 11, 12, 11)
dist <- as.POSIXct(paste0("2014-09-19 10:00:", dist))
df <- data.frame(y=dist)
df$x <- 0
bp <- ggplot(df) + geom_boxplot(aes(x, y))
L <- expect_doppelganger_built(bp, "boxplot-datetime")
expect_equivalent(length(L$data), 1) # 1 trace
expect_equivalent(L$data[[1]]$type, "box")
expect_equivalent(L$data[[1]]$y, as.numeric(df$y))
})
# check legend shows up when each box-and-whiskers has a fill
# make ggplot2
m <- ggplot(mtcars, aes(factor(cyl), mpg))
p <- m + geom_boxplot(aes(fill = factor(cyl)))
# tests
test_that("legends for boxplot", {
info <- expect_traces(p, 3, "legends_for_fill")
tr <- info$traces
la <- info$layout
expect_identical(tr[[1]]$type, "box")
# check legend exists
expect_identical(la$showlegend, TRUE)
# check legend for each fill exists
for (i in 1:3) {
expect_identical(tr[[i]]$showlegend, TRUE)
}
})
dat <- data.frame(
cond = factor(rep(c("A", "B", "C", "D"), each = 200)),
col = factor(rep(c("C1", "C2"), each = 400)),
rating = c(rnorm(200), rnorm(200, mean=.8), rnorm(200, mean=.4), rnorm(200, mean=.2))
)
g <- ggplot(dat, aes(x = cond, y = rating)) +
geom_boxplot(outlier.shape = NA, aes(fill = col))
test_that("correct # of unique fillcolors", {
L <- expect_doppelganger_built(g, "boxplot-fillcolor")
expect_equivalent(length(L$data), 2)
expect_identical(L$data[[1]]$type, "box")
fills <- sapply(L$data, "[[", "fillcolor")
expect_equivalent(length(unique(fills)), length(unique(dat$col)))
})