r - 移动轴标签ggplot

我在ggplot2中生成了一个事实图，并且x轴标签(底部)稍微触及了比例值(当我绘制到.pdf设备时，情况更糟)。如何将轴标签向下移动？

DF<-structure(list(race = structure(c(3L, 1L, 3L, 2L, 3L, 1L, 2L,
2L, 2L, 3L, 2L, 1L, 3L, 3L, 3L, 3L, 2L, 1L, 2L, 3L), .Label = c("asian",
"black", "white"), class = "factor"), gender = structure(c(1L,
1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 1L,
2L, 2L, 2L), .Label = c("female", "male"), class = "factor"),
    score = c(0.0360497844302483, 0.149771418578119, 0.703017688328021,
    1.32540102136392, 0.627084455719946, -0.320051801571444,
    0.852281028633536, -0.440056896755573, 0.621765489966213,
    0.58981396944136, 1.95257757882381, 0.127301498272644, -0.0906338578670778,
    -0.637727808028146, -0.449607617033673, 1.03162398117388,
    0.334259623567608, 0.0912327543652576, -0.0789977852804991,
    0.511696466039959), time1 = c(75.9849658266583, 38.7148843859919,
    54.3512613852158, 37.3210772390582, 83.8061071736856, 14.3853324033061,
    79.2285735003004, 31.1324602891428, 22.2294730114138, 26.427263191766,
    40.5529893144888, 19.2463281412667, 8.45085646487301, 97.6770352620696,
    61.1874163107771, 31.3727683430548, 99.4155144857594, 79.0996849438957,
    21.2504885323517, 94.1079332400361)), .Names = c("race",
"gender", "score", "time1"), class = "data.frame", row.names = c(NA,
-20L))


require(ggplot2)
p <- ggplot(DF, aes(score, time1, group=gender))
p + geom_point(aes(shape=19)) + facet_grid(race~gender) + scale_x_continuous('BLAH BLAH') +
scale_y_continuous('Some MOre Of theat Good Blahing')

BLAH在我的数据中触及数字。我需要它向下移动。怎么样？

最佳答案

您可以使用以下方法调整x轴标题的位置:

+ opts(axis.title.x = theme_text(vjust=-0.5))

使用-0.5“垂直对齐”参数，直到它适合您/您的显示设备为止。