轴文本的奇数对齐

Question

我使用ggplot2绘制一个pointrange()图，奇怪的是，x和y标签都与它们各自的记号末尾分开。这并不适用于此特定脚本中的所有绘图，只有几个，包括这个(它基于可用数据的子集，但显示了问题)：

​

​

如您所见，y轴标签基本上向左偏移，而x轴标签基本上在刻度线下方偏移，直到它们重叠在轴标签之上。

在生成此绘图之前，我对theme_bw()所做的惟一修改是设置theme_set(theme_bw(base_size = 8)) --在绘图代码之前，没有故意更改文本对齐方式。

下面是下图所示的子集的dput()：

TestData:
structure(list(State = c("AL", "AZ", "CA", "CO", "CT", "DC", 
"DE", "FL", "GA", "IL"), Year = c(2008L, 2008L, 2008L, 2008L, 
2008L, 2008L, 2008L, 2008L, 2008L, 2008L), N = c(22L, 42L, 286L, 
99L, 30L, 14L, 20L, 173L, 78L, 29L), Polarization = c(0.352923743188869, 
0.505918664112271, 0.445768659699068, 0.555930347461176, -0.0133878043740006, 
-0.380342319255035, -0.450998867087007, 0.385507917713463, 0.368070478718073, 
0.23368733390603), PolarizationSE = c(0.16021790292877, 0.0650610761652209, 
0.0100695976668952, 0.0270310803233059, 0.127526745827604, 0.296328985544823, 
0.179653490097689, 0.0180113004747975, 0.0372516250664796, 0.112905812606479
), IDPol = c(0.198743353462518, 0.0416441096132583, 0.0551808637190376, 
0.110549247724351, 0.302497569072991, -0.0343523165297017, -0.00367975496702999, 
0.0520660142625065, 0.0762126127715774, 0.0936515057040723), 
IDPolSE = c(0.102763798140243, 0.0523842634480865, 0.00789292373693809, 
0.023425554880421, 0.0918856966184178, 0.184867986813743, 
0.122339223641891, 0.0137386656250425, 0.0285951418531372, 
0.0896433805255375), Estimate = c(0.00932965761458826, -0.000412018017715892, 
0.00315002626133457, 0.00823125148777124, 0.000741919819714724, 
-0.0211994171332907, -0.0218353390160545, 0.00290805283382581, 
0.00406489584624635, 0.00604261698709428), Std..Error = c(0.00398420082222495, 
0.00483343236746232, 0.00186579338568264, 0.0032167092866312, 
0.00379995092553099, 0.0128981988697743, 0.0122846784163747, 
0.00220581166165486, 0.00335683359383524, 0.00240425995025825
), StateN = structure(c(13L, 25L, 18L, 27L, 4L, 2L, 1L, 15L, 
14L, 7L), .Label = c("DE (20)", "DC (14)", "WA (23)", "CT (30)", 
"TX (365)", "NY (123)", "IL (29)", "PA (36)", "MI (114)", 
"KS (28)", "OK (36)", "NJ (23)", "AL (22)", "GA (78)", "FL (173)", 
"SC (69)", "MN (25)", "CA (286)", "OH (85)", "VA (34)", "IN (55)", 
"OR (27)", "WI (22)", "NM (64)", "AZ (42)", "TN (77)", "CO (99)", 
"LA (83)", "MA (22)", "NC (65)", "MS (63)"), class = "factor")), .Names = c("State", 
"Year", "N", "Polarization", "PolarizationSE", "IDPol", "IDPolSE", 
"Estimate", "Std..Error", "StateN"), row.names = c(1401L, 1403L, 
1404L, 1405L, 1406L, 1407L, 1408L, 1409L, 1410L, 1414L), class = "data.frame")

下面是用于生成该图的代码：

TestData$StateN <- paste(TestData$State, " (", TestData$N, ")", sep = "")
TestData$StateN <- factor(TestData$StateN, levels = TestData$StateN[order(TestData$Polarization)])

ZP17Test <- ggplot(TestData,
 aes(x = StateN, y = Polarization,
 ymin = Polarization - 1.96 * PolarizationSE, ymax = Polarization + 1.96 * PolarizationSE))
ZP17Test <- ZP17Test + geom_hline(yintercept = 0, colour = I(MyPalette(5)[3]), alpha = I(7/12), size = I(1/3))
ZP17Test <- ZP17Test + geom_pointrange(size = I(1/3))
ZP17Test <- ZP17Test + scale_x_discrete("State (Number of Respondents)")
ZP17Test <- ZP17Test + opts(title = "State Polarization Levels in 2008",
 axis.text.x = theme_text(angle=45, hjust=1, size = 7))
print(ZP17Test)
ggsave(plot = ZP17Test, "Analysis/Stack_Overflow.png", h = 4, w = 6)

提前感谢您所能提供的任何帮助。

Answer 1

有角度的轴文本标签总是让我头疼。你想要的是：

axis.text.x = theme_text(hjust = 1,vjust = 1,angle=45, size = 7)

在我的经验中，您指定它们的顺序会有所不同。我总是不得不摆弄它，直到我把它弄好为止。聪明的人可能会记住它的系统。