Я строю групповую гистограмму. Вот код, который я написал до сих пор:
p <- ggplot(data, aes(x = Word, y = Estimate, fill = Group)) +
geom_col(position = "dodge") +
geom_errorbar(
aes(ymin = Estimate - SE, ymax = Estimate + SE),
position = position_dodge(.9),
width = .2
) + labs(x = "Focal Word", y = "Norm of Beta Coefficients", title = "Figure 1: Results of Context Embedding Regression Model", caption = "p.")
p + theme(axis.text.x = element_text(angle = 90))
Меня это в целом устраивает, но я хочу, чтобы столбики в парах поменялись местами: докризисное должно предшествовать посткризисному. кто-нибудь знает, как решить эту проблему? Любая помощь будет оценена по достоинству. Вот данные для минимально воспроизводимого примера:
structure(list(Word = c("Economy", "Economy", "Civil Rights",
"Civil Rights", "Health", "Health"), Group = c("Pre-Crisis",
"Post-Crisis", "Pre-Crisis", "Post-Crisis", "Pre-Crisis", "Post-Crisis"
), Estimate = c(0.08197375, 0.07068641, 0.3041591, 0.4429921,
0.09703231, 0.1558241), SE = c(0.006251288, 0.003762346, 0.04490241,
0.06448664, 0.01176194, 0.01211825)), row.names = c(NA, 6L), class = "data.frame")
Одним из вариантов может быть преобразование в использование forcats::fct_rev
, которое преобразуется в коэффициент и обратный порядок вашего столбца Group
:
library(ggplot2)
p <- ggplot(data, aes(x = Word, y = Estimate, fill = forcats::fct_rev(Group))) +
geom_col(position = "dodge") +
geom_errorbar(
aes(ymin = Estimate - SE, ymax = Estimate + SE),
position = position_dodge(.9),
width = .2
) +
labs(x = "Focal Word", y = "Norm of Beta Coefficients", title = "Figure 1: Results of Context Embedding Regression Model", caption = "p.")
p + theme(axis.text.x = element_text(angle = 90))