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
|
one.line.df <- data.frame(
x = c(1, 2, 3, 4),
y = c(2, 1, 3, 4),
array = c(0.1, 0.2, 0.1, 0.1),
arrayminus = c(0.2, 0.4, 1, 0.2)
)
test_that("only asymmetric error bars", {
error.gg <- ggplot(one.line.df, aes(x, y)) +
geom_errorbar(aes(ymin = y - arrayminus, ymax = y + array))
L <- expect_doppelganger_built(error.gg, "error-simple")
})
test_that("asymmetric error bars, geom_errorbar last", {
one.line.gg <- ggplot(one.line.df, aes(x, y)) +
geom_line() +
geom_point() +
geom_errorbar(aes(ymin = y - arrayminus, ymax = y + array))
L <- expect_doppelganger_built(one.line.gg, "error-simple-line")
})
test_that("asymmetric error bars, geom_errorbar first", {
one.line.gg <- ggplot(one.line.df, aes(x, y)) +
geom_errorbar(aes(ymin = y - arrayminus, ymax = y + array)) +
geom_line() +
geom_point()
L <- expect_doppelganger_built(one.line.gg, "error-simple-line-point")
})
test_that("different colors for error bars, points, and lines", {
one.line.gg <- ggplot(one.line.df, aes(x, y)) +
geom_errorbar(aes(ymin = y - arrayminus, ymax = y + array), color = "red") +
geom_line(color = "violet") +
geom_point(color = "blue", size = 14)
L <- expect_doppelganger_built(one.line.gg, "error-simple-line-point-crazy")
})
# example from https://github.com/ropensci/plotly/issues/513
d <- data.frame(
x = 1:5,
y = 1:5,
label = letters[1:5],
group = factor(c('one', 'one', 'two', 'two', 'one'))
)
fig1 <- ggplot(d, aes(x = x, y = y, text = label, colour = group)) +
geom_rect(fill = 'lightgrey', colour = 'lightgrey',
xmin = 3, xmax = 4, ymin = -4, ymax = 7) +
geom_point() + geom_errorbarh(aes(xmin = x - 1, xmax = x + 2), alpha = 0.5) +
theme_bw()
test_that("error bars respect trace ordering", {
L <- expect_doppelganger_built(fig1, "error-rect-alpha")
})
|
