Analysis in R: 44 color palettes “colormap” package

#Install Package
install.packages("colormap")
install.packages("tidyverse")
install.packages("flexdashboard")
install.packages("DT")

---
title: "colormap package"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
runtime: shiny
---

```{r global, include=FALSE}
#Loading Libraries
library("colormap")
library("tidyverse")
library("flexdashboard")
library("DT")

###Create Data#####
n <- 100
TestData <- data.frame("Group" = sample(paste0("Group", 1:5), n, replace = TRUE),
                       "Data1" = sample(1:10, n, replace = TRUE),
                       "Data2" = sample(LETTERS[1:24], n, replace = TRUE))
########
#「colormap」package:Color palette Name：
GgSColName <- c("jet","hsv","hot","cool","spring","summer",
                "autumn","winter","bone","copper","greys",
                "YIGnBu","greens","YIOrRd","bluered","RdBu",
                "picnic","rainbow","portland","blackbody","earth",
                "electric","viridis","inferno","magma","plasma",
                "warm","cool","rainbow-soft","bathymetry","cdom",
                "chlorophyll","density","freesurface-blue","freesurface-red",
                "oxygen","par","phase","salinity","temperature","turbidity",
                "velocity-blue","velocity-green","cubehelix")
```

Column {data-width=500}
-------------------------------------
```{r}
selectInput('Colpal', 'Select Color Palette Name', GgSColName)
sliderInput('ColNo', 'Select No：', value = 5, min = 5, max = 20)

```

###Contains 44 color palettes:

```{r}
renderDataTable({
 ColCodeData <- data.frame("Color_Code" = as.character(colormap_pal(colormap = input$Colpal)(input$ColNo)),
                           "Color" = "")
  datatable(ColCodeData, rownames = FALSE,
            options = list(pageLength = 10, lengthMenu = c(20, 40, 100))) %>%
    formatStyle("Color", valueColumns = "Color_Code",
                backgroundColor = styleEqual(ColCodeData[, 1], ColCodeData[, 1]))
})
```

Column {data-width=500}
-------------------------------------

###ggplot2:color
```{r}
renderPlot({
  ggplot(TestData,
         aes(x = Data1, y = Data2, col = Group)) +
    geom_point(size = 10) +
    theme_bw() +
    scale_color_manual(values = colormap_pal(colormap = input$Colpal)(input$ColNo)) +
    labs(title = paste0("Palette Name：", input$Colpal))
})
```

###ggplot2:fill
```{r}
renderPlot({
  ggplot(TestData,
         aes(x = Data2, fill = Group)) +
    geom_bar(stat = "count") + theme_bw() +
    scale_fill_manual(values = colormap_pal(colormap = input$Colpal)(input$ColNo)) +
    labs(title = paste0("Palette Name：", input$Colpal))
})
```

#Show color palettes:colormap command
par(mfrow = c(44,1))
par(mar = rep(0.01, 4))
for(i in seq(colormaps)) {
  barplot(rep(1, 72), yaxt = "n", space = c(0, 0), border = NA,
          col = colormap(colormap = colormaps[[i]]), main = sprintf("\n%s", names(colormaps[i])))
}