Skip to content

Commit

Permalink
Bold extended figure labels
Browse files Browse the repository at this point in the history
  • Loading branch information
noamross committed Mar 21, 2017
1 parent 97a1b0d commit 0ba6e57
Show file tree
Hide file tree
Showing 10 changed files with 4 additions and 2 deletions.
1 change: 1 addition & 0 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -86,6 +86,7 @@ This repository contains code and data to replicate analyses in Olival et. al.
│   ├── calc-bat-special.R | Calculates significance of bat order effect in GAM
│   ├── gen_host_spatial_data.R | Used for generating host zoogeographies shapefile
│   ├── phylo-primates.Rmd | Examination of phylogenetic effects specific to primates
│   ├── calc-pred-obs-correlation.R | Alternative measures of model fit
│   └── zoonotic_dev_explained_w_offset.R | For calculating deviance explained in models with offsets
├── R/ | Functions used in scripts and R markdown documents
Expand Down
1 change: 1 addition & 0 deletions README.txt
Original file line number Diff line number Diff line change
Expand Up @@ -86,6 +86,7 @@ This repository contains code and data to replicate analyses in Olival et. al.
│   ├── calc-bat-special.R | Calculates significance of bat order effect in GAM
│   ├── gen_host_spatial_data.R | Used for generating host zoogeographies shapefile
│   ├── phylo-primates.Rmd | Examination of phylogenetic effects specific to primates
│   ├── calc-pred-obs-correlation.R | Alternative measures of model fit
│   └── zoonotic_dev_explained_w_offset.R | For calculating deviance explained in models with offsets
├── R/ | Functions used in scripts and R markdown documents
Expand Down
Binary file modified figures/ExtendedFigure03-ALL.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified figures/ExtendedFigure04-CARNIVORA.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified figures/ExtendedFigure05-CETARTIODACTYLA.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified figures/ExtendedFigure06-CHIROPTERA.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified figures/ExtendedFigure07-PRIMATES.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified figures/ExtendedFigure08-RODENTIA.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified figures/Figure03-missing-zoo-maps.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
4 changes: 2 additions & 2 deletions scripts/08-make-Figure03-ExtendedFigs-stitch-maps.R
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ for(ORDER in hp3_orders) {
".png"))

my_images <- lapply(image_files, image_read)
labeled_images <- mapply(image_annotate, image=my_images, text=letters[1:9], MoreArgs = list(font="Helvetica", location="+200+770", size=175), SIMPLIFY = FALSE)
labeled_images <- mapply(image_annotate, image=my_images, text=letters[1:9], MoreArgs = list(font="Helvetica-Bold", location="+200+770", size=175), SIMPLIFY = FALSE)

comb_image <- image_append(stack=TRUE, image = c(
image_append(c(labeled_images[[1]], labeled_images[[2]], labeled_images[[3]])),
Expand All @@ -21,7 +21,7 @@ for(ORDER in hp3_orders) {
}

missing_images <- lapply(list.files(P("figures", "maps/"), pattern =paste0("zoonoses_missing.png"), full.names = TRUE), image_read)
labeled_images <- mapply(image_annotate, image=missing_images, text=letters[1:6], MoreArgs = list(font="Helvetica", location="+200+770", size=175), SIMPLIFY = FALSE)
labeled_images <- mapply(image_annotate, image=missing_images, text=letters[1:6], MoreArgs = list(font="Helvetica-Bold", location="+200+770", size=175), SIMPLIFY = FALSE)
comb_image2 <- image_append(stack=TRUE, image = c(
image_append(c(labeled_images[[1]], labeled_images[[2]])),
image_append(c(labeled_images[[3]], labeled_images[[4]])),
Expand Down

0 comments on commit 0ba6e57

Please sign in to comment.