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
|
## based on some of the default themes and scales used in ggplot2 by Hadley Wickham.
ggplot2like.opts <- function()
{
list(default.args =
list(axis = axis.grid,
xscale.components = xscale.components.subticks,
yscale.components = yscale.components.subticks,
between = list(x = 0.4, y = 0.4))
)
}
ggplot2like <-
function(..., n = 6, h = c(0,360) + 15, l = 65, c = 100,
h.start = 0, direction = 1,
low = "#3B4FB8", high = "#B71B1A", space = "rgb")
{
## copied from ggplot2::scale_colour_hue
rotate <- function(x) (x + h.start) %% 360 * direction
if ((diff(h) %% 360) < 1) {
h[2] <- h[2] - 360 / n
}
colseq <-
hcl(h = rotate(seq(h[1], h[2], length = n)), c = c, l = l)
## copied from ggplot2::scale_colour_gradient
ramp <- colorRampPalette(c(low, high), space = space, interpolate = "linear")(100)
theme <- custom.theme(symbol = colseq,
fill = colseq,
region = ramp)
## based on ggplot2::theme_gray
theme <-
modifyList(theme,
list(axis.line = list(col = "transparent"),
axis.text = list(cex = 0.8, lineheight = 0.9, col = "grey50"),
panel.background = list(col = "grey90"),
reference.line = list(col = "white"),
strip.background = list(col = c("grey80", "grey70", "grey60")),
strip.shingle = list(col = c("grey60", "grey50", "grey40")),
strip.border = list(col = "transparent"),
add.text = list(cex = 0.8))
)
## misc
theme <-
modifyList(theme,
list(plot.symbol = list(col = "black", pch = 19, cex = 0.6),
superpose.symbol = list(pch = 19, cex = 0.6),
plot.line = list(col = "black"),
plot.polygon = list(col = "grey20", border = "transparent"),
superpose.polygon = list(border = "transparent"),
box.dot = list(col = "grey20", pch = "|"),
box.rectangle = list(fill = "white", col = "grey20"),
box.umbrella = list(col = "grey20", lty = 1),
dot.line = list(col = "white"),
dot.symbol = list(col = "black", pch = 19))
)
## custom over-rides
modifyList(theme, simpleTheme(...))
}
|