adjust plot label angles

git-svn-id: svn+ssh://hemlock.ucr.edu/srv/svn/misc/trunk/origins_of_life@495 25fa0111-c432-4dab-af88-9f31a2f6ac42

diff --git a/kinetic_formalism.Rnw b/kinetic_formalism.Rnw
index 5c6dd27719569226daa3885f5d795cc0761ff960..018c44ee596c859699800a23997db37a72fb68bf 100644 (file)
--- a/kinetic_formalism.Rnw
+++ b/kinetic_formalism.Rnw
@@ -100,7 +100,7 @@ curve(2^x,from=0,to=sd(c(0,4)),
   \label{eq:charge_forward}
 \end{equation}
 
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
 x <- seq(-1,0,length.out=20)
 y <- seq(-1,0,length.out=20)
 grid <- expand.grid(x=x,y=y)
@@ -108,9 +108,9 @@ grid$z <- as.vector(60^(-outer(x,y)))
 print(wireframe(z~x*y,grid,cuts=50,
           drape=TRUE,
           scales=list(arrows=FALSE),
-          xlab="Average Vesicle Charge",
-          ylab="Component Charge",
-          zlab="Charge Forward"))
+          xlab=list("Average Vesicle Charge",rot=30),
+          ylab=list("Component Charge",rot=-35),
+          zlab=list("Charge Forward",rot=93)))
 rm(x,y,grid)
 @ 
 
@@ -164,16 +164,16 @@ curve(3^x,from=0,to=sd(c(12,24)),
   \label{eq:unsaturation_backward}
 \end{equation}
 
-<<fig=TRUE,echo=FALSE,results=hide,width=5,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
 grid <- expand.grid(x=seq(0,4,length.out=20),
                     y=seq(0,4,length.out=20))
 grid$z <- 10^(abs(3.5^-grid$x-3.5^-grid$y))
 print(wireframe(z~x*y,grid,cuts=50,
           drape=TRUE,
           scales=list(arrows=FALSE),
-          xlab="Average Vesicle Unsaturation",
-          ylab="Monomer Unsaturation",
-          zlab="Unsaturation Backward"))
+          xlab=list("Average Vesicle Unsaturation",rot=30),
+          ylab=list("Monomer Unsaturation",rot=-35),
+          zlab=list("Unsaturation Backward",rot=93)))
 rm(grid)
 @ 
 
@@ -184,7 +184,7 @@ rm(grid)
   \label{eq:charge_backwards}
 \end{equation}
 
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
 x <- seq(-1,0,length.out=20)
 y <- seq(-1,0,length.out=20)
 grid <- expand.grid(x=x,y=y)
@@ -192,9 +192,9 @@ grid$z <- as.vector(20^(outer(x,y)))
 print(wireframe(z~x*y,grid,cuts=50,
           drape=TRUE,
           scales=list(arrows=FALSE),
-          xlab="Average Vesicle Charge",
-          ylab="Component Charge",
-          zlab="Charge Backwards"))
+          xlab=list("Average Vesicle Charge",rot=30),
+          ylab=list("Component Charge",rot=-35),
+          zlab=list("Charge Backwards",rot=93)))
 rm(x,y,grid)
 @ 
 
@@ -205,16 +205,16 @@ rm(x,y,grid)
   \label{eq:curvature_backwards}
 \end{equation}
 
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
 grid <- expand.grid(x=seq(0.8,1.33,length.out=20),
                     y=seq(0.8,1.33,length.out=20))
 grid$z <- 7^(1-1/(20*(log(grid$x)-log(grid$y))^2+1))
 print(wireframe(z~x*y,grid,cuts=50,
           drape=TRUE,
           scales=list(arrows=FALSE),
-          xlab="Vesicle Curvature",
-          ylab="Monomer Curvature",
-          zlab="Curvature Backward"))
+          xlab=list("Vesicle Curvature",rot=30),
+          ylab=list("Monomer Curvature",rot=-35),
+          zlab=list("Curvature Backward",rot=93)))
 rm(grid)
 @ 
 
@@ -225,16 +225,16 @@ rm(grid)
   \label{eq:length_backward}
 \end{equation}
 
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
 grid <- expand.grid(x=seq(12,24,length.out=20),
                     y=seq(12,24,length.out=20))
 grid$z <- 3.2^(abs(grid$x-grid$y))
 print(wireframe(z~x*y,grid,cuts=50,
           drape=TRUE,
           scales=list(arrows=FALSE),
-          xlab="Average Vesicle Length",
-          ylab="Monomer Length",
-          zlab="Length Backward"))
+          xlab=list("Average Vesicle Length",rot=30),
+          ylab=list("Monomer Length",rot=-35),
+          zlab=list("Length Backward",rot=93)))
 rm(grid)
 @ 
 
@@ -245,16 +245,16 @@ rm(grid)
   \label{eq:complex_formation_backward}
 \end{equation}
 
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
 grid <- expand.grid(x=seq(-1,3,length.out=20),
                     y=seq(-1,3,length.out=20))
 grid$z <- 3.2^(grid$x*grid$y-abs(grid$x*grid$y))
 print(wireframe(z~x*y,grid,cuts=50,
           drape=TRUE,
           scales=list(arrows=FALSE),
-          xlab="Vesicle Complex Formation",
-          ylab="Monomer Complex Formation",
-          zlab="Complex Formation Backward"))
+          xlab=list("Vesicle Complex Formation",rot=30),
+          ylab=list("Monomer Complex Formation",rot=-35),
+          zlab=list("Complex Formation Backward",rot=93)))
 rm(grid)
 @