次のようなプロットがあります。
直接ラベルを切り取らずに、線のラフトエッジと y 軸の間のスペースを削除するにはどうすればよいですか?
コード:
library(ggplot2)
library(scales)
labs <- c("Special Ed., Charter School",
"Gen. Ed., Charter School",
"Special Ed., Public School",
"Gen. Ed., Public School")
pot <- data.frame(Engagement = c(643, 793, 590, 724, 735, 928, 863, 662),
Classroom = rep(rep(c("Special Ed.", "Gen. Ed."), each = 2), 2),
Gender = factor(rep(c("Male", "Female"), 4), levels = c("Male", "Female")),
School = rep(c("Charter", "Public"), each = 4),
ID = factor(rep(1:4, each = 2)),
labs = factor(rep(labs, each=2), levels=labs)
)
library(directlabels)
xout <- ggplot(pot, aes(y = Engagement, x = Gender, group = ID)) +
geom_line(aes(color=labs), size=2) + theme_classic() +
scale_x_discrete(expand = c(.1, .3)) +
scale_color_hue(l=40) +
theme(text = element_text(size=22))
direct.label(xout, list('last.qp', cex=1.35))