Как сопоставить цвет geom_text с переменной
Для гистограммы я хочу расположить гистограммы вертикально в произвольном порядке. В приведенном ниже примере переменная, которая должна управлять порядком наложения, называется «механизм». Предполагаемый порядок укладки не является ни алфавитным порядком, ни порядком, в котором упорядочены строки фрейма данных. Не все бары имеют все механизмы. Я вручную устанавливаю последовательность и использую ее как уровни для фактора. Полностью отсутствующий факторный уровень не обрабатывается должным образом, для чего решение приветствуется, но я могу обойти это.
Чтобы добавить текстовые метки, указывающие величину каждого компонента, я вычисляю значения высоты y меток и добавляю geom_text. Я хочу, чтобы цвет текста постоянно контрастировал с цветом компонента полосы: белый текст на синих компонентах полосы и т. д. Поэтому я назначаю цвет geom_text той же переменной, что и заливка geom_bar. Но предполагаемые сочетания цветов для фона и текста не совпадают. Идеи пожалуйста?? (спасибо редактору, который вставил картинку испорченного графика.)
Желаемый результат состоит в том, что каждый компонент панели, чей механизм является «горячим», будет иметь красную заливку, аннотированную черным текстом. Каждый компонент, чей механизм является «городским», будет иметь заливку tan4, аннотированную текстом grey50.
Я также попытался назначить цвет, не превращая сопоставленную переменную в фактор (пример, вариант 1), как в geom_text() и цветовой градиент.
library(ggplot2)
m.data <- data.frame(m.model = factor(c(1, 1, 2, 2, 4)),
mechanism = c("urban", "hot", "hot", "urban", "urban"),
bar.height = 1:5,
y.for.text = c(.5, 2, 1.5, 5, 2.5))
mechanism.order <- c("hot", "dry", "urban")
mechanism.colors <- c("red", "blue", "tan4")
text.colors <- c("black", "white", "grey50")
m.map <- ggplot() +
geom_bar(data = m.data, aes(x = m.model, y = bar.height,
fill = factor(mechanism, levels = mechanism.order)),
stat = "identity") +
scale_fill_manual(values = mechanism.colors) +
scale_color_manual(values = text.colors)
# option 1:
m.map +
geom_text(data = m.data, aes(x = m.model, y = y.for.text,
color = mechanism, label = bar.height))
# option 2:
m.map +
geom_text(data = m.data, aes(x = m.model, y = y.for.text,
color = factor(mechanism, levels = mechanism.order),
label = bar.height))
Это ожидаемый сюжет? Является ли бар 2 правильными значениями 3 и 4?
Ответы 3
Я не уверен, что понимаю ваш желаемый результат, но, возможно, это поможет:
Я немного обновил ваш вызов ggplot: если вы укажете aes() в начальном вызове ggplot, вам не нужно повторять его впоследствии. Кроме того, нет необходимости добавлять factor() к оператору fill =. В geom_text поместите color = mechanism в aes(), чтобы впоследствии вы могли получить к нему доступ с помощью scale_color_manual, чтобы добавить свои собственные цвета. Наконец, вы можете добавить position = position_stack, чтобы получить текст посередине.
ggplot(m.data, aes(m.model, bar.height, fill = mechanism)) +
geom_bar(stat = "identity") +
scale_fill_manual(values = mechanism.colors) +
geom_text(aes(label = bar.height, color = mechanism), position = position_stack(.5)) +
scale_color_manual(values = c("black", "grey50 "))
Выход:
Однако, как видите, серый40 может быть не лучшим цветом на синем фоне, так как контрастность не очень хорошая. Возможно, вы захотите выбрать другой цвет.
Чтобы четко указать цвета, передайте их как вектор названный.
Еще пара моментов здесь:
geom_barсstat = "identity"— это просто длинное написаниеgeom_col- Вам не нужно передавать код y для текста. Просто используйте
position_stack(vjust = 0.5)внутриgeom_text, чтобы иметь метки центральной панели. - Если все ваши слои используют одни и те же данные и переменные x, y, передайте их через начальный вызов
ggplotи позвольте слоям наследовать их.
mechanism.colors <- c(hot = "red", dry = "blue", urban = "tan4")
text.colors <- c(hot = "black", dry = "white", urban = "gray50")
ggplot(data = m.data, aes(x = m.model, y = bar.height)) +
geom_col(aes( fill = factor(mechanism, levels = mechanism.order))) +
geom_text(aes(label = bar.height, color = mechanism),
position = position_stack(vjust = 0.5), size = 8) +
scale_fill_manual(values = mechanism.colors) +
scale_color_manual(values = text.colors) +
labs(fill = "mechanism") +
guides(color = guide_none())
Решает любую проблему; лаконичный; ясно; очень быстро! Решение @Gnueghoidune работает почти так же хорошо.
Предложение с измененные данные. Большая часть процедуры уже представлена уважаемым @Alan Cameron. Новым является преобразование в фактор перед ggplot:
m.data <- data.frame(m.model = factor(c(1, 1, 2, 2, 4)),
mechanism = c("urban", "hot", "dry", "urban", "urban"),
bar.height = 1:5,
y.for.text = c(.5, 2, 1.5, 5, 2.5))
mechanism.order <- c("hot", "dry", "urban")
mechanism.colors <- c("red", "blue", "tan4")
text.colors <- c("black", "white", "grey50")
library(tidyverse)
m.data %>%
mutate(mechanism = factor(mechanism, levels = mechanism.order)) %>%
ggplot(aes(x=m.model, y=bar.height, fill=mechanism))+
geom_col()+
geom_text(aes(label = bar.height, color = mechanism),
position = position_stack(vjust = 0.5)) +
scale_fill_manual(values = mechanism.colors) +
scale_color_manual(values = text.colors)
Не могли бы вы пересмотреть и добавить ожидаемый результат?