Вот как выглядит сюжет, текст, который я хочу добавить, должен находиться за пределами  панель слева Образцы данных:

df <- data.frame("SL" = runif(50, 2.2, 5.8), "LMX" = runif(50, 1.8, 5.5))

У меня есть много разных переменных, для каждой из которых я хочу создать коробчатую диаграмму с приведенным ниже кодом. Чтобы все панели имели одинаковый размер, я определил поле графика, чтобы на него не влияла длина имени переменной. Поэтому теперь я хочу добавить имя переменной вне панели слева. Однако это оказалось сложнее, чем ожидалось. Я знаю, что эта проблема поднималась раньше, но ни одно из решений не работает со мной (rnorm или geom_text). Любая помощь очень ценится, спасибо :)

df %>%
select("Servant Leadership" = SL) %>%
gather(key = "variable", value = "value") -> n
n$variable <- factor(n$variable, levels = c("Servant Leadership"))


ggplot(data = n, aes(y = value, x = as.numeric(variable))) +
stat_summary(fun.data = min.mean.sd.max, geom = "boxplot", col = "#323232", fill = "#EFC76C") + 
scale_fill_identity() + 
scale_x_continuous(breaks = as.numeric(unique(n$variable)), minor_breaks = NULL,
                 labels = "", expand = c(0.12, 0.12)) + 
scale_y_continuous(breaks = c(1, 2, 3, 4, 5, 6, 7)) +
expand_limits(y = c(1, 7)) + coord_flip() + labs(x = "", y = "") +
theme(text = element_text(size = 15), panel.background = element_rect(fill = "#EAEDED"), 
    panel.border = element_rect(fill=NA, color = "grey", size = 0.5, linetype = "solid")) +
theme(plot.margin=unit(c(0.2, 0.2, 0, 4),"cm"))

Я забыл этот код, который запускал раньше:

min.mean.sd.max <- function(x) {
r <- c(min(x), mean(x) - sd(x), mean(x), mean(x) + sd(x), max(x))
names(r) <- c("ymin", "lower", "middle", "upper", "ymax")
r
}

И это пакеты, которые я использую (возможно, не все в этом коде):

library(reshape)
library(scales)
library(ggplot2)
library(dplyr)
library(tidyr)
0
Andreas G. 9 Ноя 2018 в 21:22

1 ответ

Лучший ответ

Основываясь на ответе Тунга, я изменил код коробчатой ​​диаграммы следующим образом:

ggplot(data = n, aes(y = value, x = as.numeric(variable))) +
stat_summary(fun.data = min.mean.sd.max, geom = "boxplot", col = "#323232", fill = "#EFC76C") + 
scale_fill_identity() + 
scale_x_continuous(breaks = as.numeric(unique(n$variable)), minor_breaks = NULL,
                 labels = "", expand = c(0.12, 0.12)) + 
scale_y_continuous(breaks = c(1, 2, 3, 4, 5, 6, 7)) +
expand_limits(y = c(1, 7)) + coord_flip(clip = "off") + labs(x = "", y = "") +
theme(text = element_text(size = 18), panel.background = element_rect(fill = "#EAEDED"), 
    panel.border = element_rect(fill=NA, color = "grey", size = 0.5, linetype = "solid")) +
geom_text(x = 1, y = 0.5, inherit.aes = FALSE, label = "Servant Leadership", check_overlap = TRUE, hjust = 1, 
        fontface = 'plain', size = 6, color = "#4E4E4E") +
theme(plot.margin=unit(c(0.05, 4.5, 0, 9.5),"cm"))

Variable name is added and the plot area stays the same, does not change with the length of the name

0
Andreas G. 11 Ноя 2018 в 19:41