Skip to content

Instantly share code, notes, and snippets.

@asadharis

asadharis/lineMaker.R

Last active September 3, 2020 18:50
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save asadharis/87890c9fd0627a4987d84a682f04a4db to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save asadharis/87890c9fd0627a4987d84a682f04a4db to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. asadharis revised this gist Sep 3, 2020. 1 changed file with 4 additions and 3 deletions.
    7 changes: 4 additions & 3 deletions lineMaker.R
    View file
    Original file line number Diff line number Diff line change
    @@ -51,9 +51,10 @@ myf2 <- function(pch = 15, col = "red", col.label = NA) {
    name <- paste0(pch,"_", col)
    }

    png(paste0(name, ".png"), width = 1.4, height = 0.22, units = "in", res = 6000)
    png(paste0(name, ".png"), width = 0.5, height = 0.5, units = "in", res = 6000)
    par(mar = c(0,0,0,0))
    plot(0:1,c(0.4,0.6), type = "n", axes = FALSE, ann = FALSE)
    points(0.5, 0.5, pch = pch, col = col, cex = 3.5)
    plot(c(0.4,.6),c(0.4,0.6), type = "n", axes = FALSE, ann = FALSE)
    points(0.5, 0.48, pch = pch, col = col, cex = 4.5)
    dev.off()
    }

  2. asadharis revised this gist Feb 19, 2020. 1 changed file with 16 additions and 0 deletions.
    16 changes: 16 additions & 0 deletions lineMaker.R
    View file
    Original file line number Diff line number Diff line change
    @@ -41,3 +41,19 @@ myf <- function(pch = NA, col = "red", lty = 2,
    }
    dev.off()
    }

    # Same as above, but instead of plotting a line, this
    # makes an image of a symbol alone.
    myf2 <- function(pch = 15, col = "red", col.label = NA) {
    if(!is.na(col.label)) {
    name <- paste0(pch,"_", col.label)
    } else {
    name <- paste0(pch,"_", col)
    }

    png(paste0(name, ".png"), width = 1.4, height = 0.22, units = "in", res = 6000)
    par(mar = c(0,0,0,0))
    plot(0:1,c(0.4,0.6), type = "n", axes = FALSE, ann = FALSE)
    points(0.5, 0.5, pch = pch, col = col, cex = 3.5)
    dev.off()
    }
  3. asadharis created this gist Feb 19, 2020.
    43 changes: 43 additions & 0 deletions lineMaker.R
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,43 @@

    # A function to create the default colors of ggplot.
    #
    # n: Number of different colors to generate. E.g. if you have
    # 4 different colors then ggplot uses ggplot_cols(4).
    ggplot_cols <- function(n) {
    hues <- seq(15, 375, length = n + 1)
    hcl(h = hues, l = 65, c = 100)[1:n]
    }


    # This function creates a line with symbol which can be used in
    # plot captions in Latex.
    #
    #
    # pch: pch of symbol, no symbol drawn if NA.
    # col: color passed on to `col` argument, can be string, integer or
    # color code as in output of ggplot_cols function.
    # lty: type of line.
    # col.label: (Optional) character can relabel color names to
    # be more informative. e.g. col.label = c("Experiment 1", "Experiment 2")
    #
    # Example: myf(NA, "red", 1) creates a solid red line.
    # Latex code to include figure:
    # \protect\includegraphics[scale=0.4]{NA_red_1.png}
    #
    myf <- function(pch = NA, col = "red", lty = 2,
    col.label = NA) {
    if(!is.na(col.label)) {
    name <- paste0(pch,"_", col.label, "_", lty)
    } else {
    name <- paste0(pch,"_", col, "_", lty)
    }

    png(paste0(name, ".png"), width = 1.4, height = 0.22, units = "in", res = 6000)
    par(mar = c(0,0,0,0))
    plot(0:1,c(0.4,0.6), type = "n", axes = FALSE, ann = FALSE)
    lines(0:1, rep(0.5,2), lwd = 3.5, col = col, lty = lty)
    if(!is.na(pch)) {
    points(c(0.33, 0.67), c(0.5,0.5), pch = pch, col = col, cex = 2.5)
    }
    dev.off()
    }