Koshke写了一段时间,在ggplot2邮件列表上写了一半的笑话:http://groups.google.com/group/ggplot2/browse_thread/thread/5c4658aceea9daf1
d <- data.frame(expand.grid(a=1:2,b=1:2,c=1:2),x=rnorm(8), y=rnorm(8))
p <- ggplot(d, aes(x, y)) + facet_grid(a~b) + geom_point() +
coord_trans(x="reverse", y="reverse") +
opts(strip.text.x=theme_text(angle=180),
strip.text.y=theme_text(angle=90),
axis.text.x=theme_text(angle=180),
axis.text.y=theme_text(angle=180),
axis.title.x=theme_text(angle=180),
axis.title.y=theme_text(angle=180))
print(p, vp=viewport(angle=180))
Run Code Online (Sandbox Code Playgroud)
你显然必须镜像或"垂直翻转"以获得所需的效果,但我不确定你是如何使用现代图像软件那样做的.
还有... + coord_flip()将y轴置于底部,将x轴置于左侧.