У меня есть легенда вверху графика. Я хочу, чтобы легенда была выровнена по левому краю и чтобы можно было установить интервал (1) между эстетическим символом (цветной квадрат) и текстом и (2) между текстом и следующим эстетическим символом.
library(tidyverse)
mtcars %>%
mutate(transmission = ifelse(am, "manual", "automatic")) %>%
ggplot() +
aes(x = transmission, fill = transmission) +
geom_bar() +
labs(fill = NULL) +
theme(
#legend.spacing.x = unit(.5, "char"), # adds spacing to the left too
legend.position = "top",
legend.justification = c(0,0),
legend.title=element_blank(),
legend.margin=margin(c(5,5,5,0)))
с. здесь: stackoverflow.com/questions/11366964/…
Добавление маржи к регулироватьelement_text
mtcars %>%
mutate(transmission = ifelse(am, "manual", "automatic")) %>%
ggplot() +
aes(x = transmission, fill = transmission) +
geom_bar() +
labs(fill = NULL) +
theme(
#legend.spacing.x = unit(.5, "char"), # adds spacing to the left too
legend.position = "top",
legend.justification = c(0, 0),
legend.title = element_blank(),
legend.margin = margin(c(5, 5, 5, 0)),
legend.text = element_text(margin = margin(r = 10, unit = "pt")))
контрпродуктивно для моего случая (вертикальная легенда): добавление поля к тексту смещает текст по отношению к клавишам ...
Возможный дубликат ggplot2 увеличить расстояние между клавишами легенды