fix vertical justification for rotated text

Author: Kirill Müller

NEWS

@@ -7,6 +7,8 @@ ggplot2 0.9.3.1.99
 * `ggpcp()`, `ggfluctuation()`, `ggmissing()`, `ggstructure()`, and
   `ggorder()` are now defunct and have been removed.
 
+* Fix vertical justification for rotated text. (@krlmlr, #883)
+
 
 ggplot2 0.9.3.1
 ----------------------------------------------------------------

R/theme-elements.r

@@ -196,15 +196,15 @@ element_grob.element_text <- function(element, label = "", x = NULL, y = NULL,
   angle <- angle %% 360
 
   if (angle == 90) {
-    xp <- vj
+    xp <- 1 - vj
     yp <- hj
   } else if (angle == 180) {
     xp <- 1 - hj
-    yp <- vj
+    yp <- 1 - vj
   } else if (angle == 270) {
     xp <- vj
     yp <- 1 - hj
-  }else {
+  } else {
     xp <- hj
     yp <- vj
   }