trinker / plotflow Goto Github PK

os <- names(which(sapply(testme, system, 
                         ignore.stderr = TRUE, ignore.stdout = TRUE) == 0))

#' Nested Map
#' 
#' Generate a nested map that shows nested, hierarchical proportions of a whole.
#' 
#' @param x A vector of nested, decreasing values.
#' @param labels The labels atached to each element of \code{x}.
#' @param text_size The text size for the labels.
#' @export
#' @examples
#' nested_map(x = c(100, 94, 84, 55, 22, 14, 9))
nested_map <- function(x, labels = c(LETTERS[1:length(x)]), text_size = 2.25){

    if(any(diff(x) >= 0)) stop("Nested maps works for vectors of decreasing values.")

    dat <- get_measurements(x, labels)

    dat[['xmin']] <- dat[['s2']][1] - dat[['s2']]
    dat[['xmax']] <- dat[['s2']][1]

    dat[['ymin']] <- 0
    dat[['ymax']] <- dat[['s1']]
    dat[['text_x']] <- dat[['xmin']]
    dat[['text_y']] <- dat[['ymax']]

    ggplot2::ggplot(dat, ggplot2::aes_string(xmin = 'xmin', xmax = 'xmax', ymin = 'ymin', ymax = 'ymax')) +
        ggplot2::geom_rect(alpha=.05, size=.8, ggplot2::aes_string(fill='labels', color='labels')) +
        geom_text(aes_string(x='text_x', y='text_y', label='txt'), hjust=-.1, vjust=1.1, size = text_size) +
        ggplot2::theme_minimal() +
        ggplot2::theme(
            legend.position='none',
            axis.text = ggplot2::element_blank(),
            axis.title = ggplot2::element_blank(),
            panel.grid = ggplot2::element_blank()
        )
}


get_measurements <- function(x, labels){

    gr <- (1+sqrt(5))/2

    prop <- c(NA, x[-1]/x[-c(length(x))])
    of <- c("", paste0(" of ", x[-length(x)]))
    txt <- paste0(labels, ": ", x, of, c("", paste0(" (", pp(prop[-1]), ")")))
    s1 <- c(1, rep(NA, length(x) - 1))
    s2 <- c(1/gr, rep(NA, length(x) - 1))
    A <- c(x1[1]*x2[1], rep(NA, length(x) - 1))

    for (i in 2:length(x)){
        A[i] <- A[i-1]*prop[i]
        s2[i] <- sqrt(A[i]/gr)
        s1[i] <- A[i]/s2[i]  
    }

    data.frame(lablels=labels, x=x, s1=s1, s2=s2, A=A, txt=txt, prop=prop, stringsAsFactors = FALSE)
}

pp <- function(x){gsub("^0", "", paste0(round(100*x, 1), "%"))}

library(plotflow)
library(ggplot2)

dat = data.frame(x=1:10, y=rnorm(10))
p1=ggplot(dat, aes(x,y)) + geom_line()
p2=ggplot(dat, aes(x,y)) + geom_line()
p3=ggplot(dat, aes(x,y)) + geom_line()

## Plot heights, widths
widths = c(9, 8, 10)
heights = c(5, 11, 6)

merge_pdf(length(widths), file = "test.pdf", 
          widths = widths,
          heights = heights)

plot(p1)
plot(p2)
plot(p3)

> merge_pdf(length(widths), file = "test.pdf", 
+           widths = widths,
+           heights = heights)
Enter plot 1:

Enter plot 2:
plot(p1)
Enter plot 3:
plot(p2)
   **** Warning:  Invalid Page count.
   No pages will be processed (FirstPage > LastPage).
   **** Warning:  Invalid Page count.

   **** This file had errors that were repaired or ignored.
   **** The file was produced by: 
   **** >>>> R 3.1.3 <<<<
   **** Please notify the author of the software that produced this
   **** file that it does not conform to Adobe's published PDF
   **** specification.