Я пытаюсь сделать сюжет без информации за пределами данных. Нет осей; нет сетки; без заголовка; просто сюжет.
Но я получаю дополнительные поля и дополнения, которые я не могу удалить.
library(ggplot2)
library(grid)
theme_bare <- theme(
axis.line = element_blank(),
axis.text.x = element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
#axis.ticks.length = unit(0, "lines"), # Error
axis.ticks.margin = unit(c(0,0,0,0), "lines"),
legend.position = "none",
panel.background = element_rect(fill = "gray"),
panel.border = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.margin = unit(c(0,0,0,0), "lines"),
plot.background = element_rect(fill = "blue"),
plot.margin = unit(c(0,0,0,0), "lines")
)
ggplot() +
geom_area (data=economics, aes(x = date, y = unemploy), linetype=0) +
theme_bare
Создает это изображение:
Я хочу это:
Я не могу понять, как избавиться от синего и сделать темно-серый флеш с краями.
Может ли кто-нибудь предложить какой-нибудь совет?