aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKen Kellner <ken@kenkellner.com>2017-09-12 19:46:50 (GMT)
committerKen Kellner <ken@kenkellner.com>2017-09-12 19:46:50 (GMT)
commit11e1b74e43edbcf645d819a5da0d29e307c13690 (patch)
tree0735f600cd89905e0994840d3aa0257ca942967c
parent69a774ac3da85d92fd9e5368855f5c5880dacd6c (diff)
Add some additional options for figures to help build presentationsHEADmaster
-rw-r--r--figures/figure_resp_summary.R6
-rw-r--r--figures/figure_richness.R8
-rw-r--r--presentations/compress_pdf.bat2
-rw-r--r--presentations/talk_dnr2017.tex6
4 files changed, 9 insertions, 13 deletions
diff --git a/figures/figure_resp_summary.R b/figures/figure_resp_summary.R
index 1719d1b..71a0b74 100644
--- a/figures/figure_resp_summary.R
+++ b/figures/figure_resp_summary.R
@@ -6,7 +6,7 @@
# scale: 'mu' for management-unit level, 'hl' for harvest level
# figmin & figmax: y-limits for figure
-resp.summary.figure <- function(scale,ylims,cols,text.cex=1,highlight.shrubland=FALSE){
+resp.summary.figure <- function(scale,ylims,cols,text.cex=1,highlight.shrubland=FALSE,lab.cex=1){
#Define shrubland species
shrubland <- c('INBU','EATO','CARW','HOWA','BAWW','WEVI',
@@ -57,9 +57,9 @@ resp.summary.figure <- function(scale,ylims,cols,text.cex=1,highlight.shrubland=
barplot.vals <- matrix(sum.counts,ncol=ntreat/2,byrow=F)
#Set up plot
- par(mar = c(3,3.5,0.5,1) + 0.1, oma=c(0,0,0,0),mgp=c(2.5,1,0))
+ par(mar = c(3,4,0.5,1) + 0.1, oma=c(0,0,0,0),mgp=c(2.5,1,0))
x <- barplot(barplot.vals,beside=T,ylim=ylims,col=rep(cols,each=2),
- names=legendtext,
+ names=legendtext,cex.names=lab.cex,cex.lab=lab.cex,
ylab='Number of Species')
abline(h=0,lwd=2)
box()
diff --git a/figures/figure_richness.R b/figures/figure_richness.R
index 15ffb65..866ac04 100644
--- a/figures/figure_richness.R
+++ b/figures/figure_richness.R
@@ -6,7 +6,7 @@
# scale: 'mu' for management-unit level, 'hl' for harvest level
# figmin & figmax: y-limits for figure
-richness.figure <- function(scale,figmin,figmax,cols,pchs,ltys,xlab="Year"){
+richness.figure <- function(scale,figmin,figmax,cols,pchs,ltys,xlab="Year",lab.cex=1,leg.cex=1){
#Options specific to scale
if(scale=='mu'){
@@ -33,12 +33,12 @@ richness.figure <- function(scale,figmin,figmax,cols,pchs,ltys,xlab="Year"){
}
#Set up plot
- par(mar = c(4,3.5,0.5,1) + 0.1, oma=c(0,0,0,0),mgp=c(2.5,1,0))
+ par(mar = c(4,4,0.5,1) + 0.1, oma=c(0,0,0,0),mgp=c(2.5,1,0))
plot(1:10,rich.means[1,],ylim=c(figmin,figmax),
main="",type='o',cex=2,lty=ltys[1],col=cols[1],
lwd=2,pch=pchs[1],xaxt='n',xlab=xlab,ylab='Richness Index',
- xlim=c(0.5,10.5))
+ xlim=c(0.5,10.5),cex.lab=lab.cex)
axis(side=1,at=c(1,3,5,7,9), labels=c('2006', '2008', '2010','2012','2014'),tck=0)
#Error bars
@@ -62,7 +62,7 @@ richness.figure <- function(scale,figmin,figmax,cols,pchs,ltys,xlab="Year"){
abline(v=3.5,lty=2)
#Add legend
- legend('topleft',legendtext,cex=1,
+ legend('topleft',legendtext,cex=leg.cex,
pch=pchs,lwd=2,col=cols,bg="white",lty=ltys)
} \ No newline at end of file
diff --git a/presentations/compress_pdf.bat b/presentations/compress_pdf.bat
index 7007132..c1d9fec 100644
--- a/presentations/compress_pdf.bat
+++ b/presentations/compress_pdf.bat
@@ -1 +1 @@
-"C:\Program Files\gs\gs9.19\bin\gswin64c.exe" -sDEVICE=pdfwrite -dMaxSubsetPct=100 -dPDFSETTINGS=/prepress -dEmbedAllFonts=true -dAutoFilterColorImages=false -dColorImageFilter=/FlateEncode -sOutputFile="../../../documents/research/hee_bird_abundance/presentations/talk_tws2016.pdf" -dNOPAUSE -dBATCH "talk_tws2016.pdf" \ No newline at end of file
+"C:\Program Files\gs\gs9.19\bin\gswin64c.exe" -sDEVICE=pdfwrite -dMaxSubsetPct=100 -dPDFSETTINGS=/prepress -dEmbedAllFonts=true -dAutoFilterColorImages=false -dColorImageFilter=/FlateEncode -sOutputFile="talk_dnr2017_small.pdf" -dNOPAUSE -dBATCH "talk_dnr2017.pdf" \ No newline at end of file
diff --git a/presentations/talk_dnr2017.tex b/presentations/talk_dnr2017.tex
index 0830808..6380af6 100644
--- a/presentations/talk_dnr2017.tex
+++ b/presentations/talk_dnr2017.tex
@@ -72,7 +72,7 @@
\end{column}
\begin{column}{0.48\textwidth}
\begin{center}
- \textbf{Silviculture}
+ \textbf{Approaches}
\bigskip
\includegraphics[width=0.4\paperwidth]{clearcut.png}
@@ -370,10 +370,6 @@
\begin{frame}{Analysis: Scales}
\begin{center}
\includegraphics[width=0.85\paperwidth]{hee_scales.png}
-
- \bigskip
-
- Separate multispecies $N$-mixture models fit for each scale
\end{center}
\end{frame}