我正在研究各种特征对法院对特定罪行的判决的影响。数据集非常大（28928 个观测值，86 个 2 级单位）。我正在考虑使用级别 1 和级别 2 特征作为控制（级别 1 为大写）来决定是否监禁某人（=二元结果变量）。
这是我的代码：
MLmodel196a_2 <- glmer(NEPO_ANO_NE ~
OZNACENY_RECIDIVISTA_REG + POCET_DRIV_ODSOUZENI_REG +
ROK_ODSOUZENI_REG + OMEZENI_A_POVINNOST_REG +
POCET_HLAVNICH_LICENI + DRUH_ZAHAJENI_RIZENI_REG +
NOVELA_REG + ODSTAVEC_REG +
EU_OBCANSTVI + POHLAVI_REG + VEK_SPACHANI_REG +
objasnenost_procenta + kriminalita_relativni_REG +
venkov_mesto + socialni + nezamestani_celkem +
vzdelani_zakladni_procenta +
prumerny_vek + podil_15az24_muzu_procenta +
zenati_vsichni_procenta +
verici_procenta + volby_ucast +
(1 | Nazev_soudu), family = binomial, data = vyber196)
当我运行它时，我收到此错误：
Error: (maxstephalfit) PIRLS step-halvings failed to reduce deviance in pwrssUpdate …我正在尝试缩短x轴标签和图形之间的距离，以便更清楚地看到哪个条形对标签的响应。这是代码和图形：
graph196 <- ggplot(serazene196a, aes(x = okres2, y = (NEPO_ANO_NE.mean/100), ordered=TRUE)) +
geom_bar(stat = "Identity", colour="white")
graph196 + theme_stata() + theme(axis.text.x = element_text(angle = 90, hjust = 1, size = 10, vjust=0.5),
axis.text.y = element_text(angle = 0),
axis.title.x = element_blank(), axis.title.y = element_blank(),
axis.text.y = element_text(size = 10), axis.ticks.x = element_blank(),
axis.ticks.y = element_blank(),
panel.border = element_blank(),
plot.background = element_rect(fill = 'white')) +
scale_y_continuous(labels=percent)
看起来像这样：[1]：http：//i.stack.imgur.com/bBjdn.jpg
如果我将hjust增加到1.2，则标签看起来与图形足够接近，但同时它们没有对齐，因此图形根本看起来不好：[1]：http：//i.stack.imgur。 com / C7Boc.jpg。
是否可以选择如何以更高的对齐方式对齐标签，或者如何使整个标签更接近图形？
问题类似于此问题：调整R绘图中x轴与文本之间的距离，但我使用的是ggplot2。
