Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/thiyangt/nic
https://github.com/thiyangt/nic
Last synced: 8 days ago
JSON representation
- Host: GitHub
- URL: https://github.com/thiyangt/nic
- Owner: thiyangt
- Created: 2021-01-03T01:41:57.000Z (almost 4 years ago)
- Default Branch: main
- Last Pushed: 2023-03-12T09:58:47.000Z (over 1 year ago)
- Last Synced: 2024-09-25T19:41:28.171Z (about 1 month ago)
- Language: R
- Size: 43.5 MB
- Stars: 2
- Watchers: 3
- Forks: 1
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
Awesome Lists containing this project
README
---
output: github_document
---
# nic 
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
## Sri Lanka Nature Inspired Colour Palettes
## Installation
You can install the released version of nic from [Github](https://github.com/thiyangt/nic) with:
```{r, warning=FALSE, message=FALSE}
#devtools::install_github("thiyangt/nic")
library(nic)
library(ggplot2)
library(tidyr)
```
## Example
This is a basic example which shows you how to solve a common problem:
```{r}
library(patchwork)
library(here)
orchid_image <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","orchid.jpeg")),
width=unit(1,"npc"),
height=unit(1,"npc")),
-Inf, Inf, -Inf, Inf)
orchid_pal = nic_palette("orchid_12",12)
ixora_pal = nic_palette("ixora_12",12)
ixora_image <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","ixora.jpeg")),
width=unit(1,"npc"),
height=unit(1,"npc")),
-Inf, Inf, -Inf, Inf)
orchid_plot <- ggplot(data.frame(x = rnorm(1e4), y = rnorm(1e4)), aes(x = x, y = y)) +
geom_hex() +
coord_fixed() +
scale_fill_gradientn(colours = orchid_pal) +
ggtitle("Orchid flower") +
theme_minimal()+
theme(legend.position = "bottom")
ixora_plot <- ggplot(data.frame(x = rnorm(1e4), y = rnorm(1e4)), aes(x = x, y = y)) +
geom_hex() +
coord_fixed() +
scale_fill_gradientn(colours = ixora_pal) +
ggtitle("Ixora flower") +
theme_minimal()+
theme(legend.position = "bottom")
orchid_image + ixora_image + orchid_plot + ixora_plot
```
```{r}
moss_rose_1_image <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","moss_rose_1.jpeg")),
width=unit(1,"npc"),
height=unit(1,"npc")),
-Inf, Inf, -Inf, Inf)
moss_rose_2_image <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","moss_rose_2.jpeg")),
width=unit(1,"npc"),
height=unit(1,"npc")),
-Inf, Inf, -Inf, Inf)
moss_rose_3_image <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","moss_rose_3.jpeg")),
width=unit(1,"npc"),
height=unit(1,"npc")),
-Inf, Inf, -Inf, Inf)
mean_vecs <- sample(seq(5))
sd_vecs <- sample(seq(5))
moss_rose_plot <- ggplot(data.frame(y = c(rnorm(1000,mean=mean_vecs,sd=sd_vecs)),x = sample(LETTERS[1:5],1000,replace=TRUE)),aes(x = x,y = y,fill = x)) +
geom_boxplot() +
theme_minimal() +
scale_fill_manual(values = nic_palette("moss_rose_5")) +
theme(legend.position = "none")
(moss_rose_1_image + moss_rose_2_image + moss_rose_3_image) / moss_rose_plot
```
```{r}
library(palmerpenguins)
coleus_density_img <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","coleus_density.PNG")),
width=unit(1,"npc"),
height=unit(2,"npc")),
-Inf, Inf, -Inf, Inf)
coleus_density = nic_palette("coleus_density_7",7)
coleus_density_plot <- ggplot(data.frame(x = rnorm(1e4), y = rnorm(1e4)), aes(x = x, y = y)) + geom_hex() +
coord_fixed() +
scale_fill_gradientn(colours = coleus_density) + ggtitle("coleus_density_7")
coleus1a <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","coleus1a.jpg")),
width=unit(1,"npc"),
height=unit(2,"npc")),
-Inf, Inf, -Inf, Inf)
pal <- nic_palette("coleusa_2",2)
penguins2 <- penguins %>% drop_na()
penguinplot <- ggplot(data = penguins2,
aes(y = flipper_length_mm,
x = sex,
fill=sex)) +
geom_boxplot() +
scale_fill_manual(values = pal) + ggtitle("colleasa_2")
(coleus_density_img + coleus_density_plot + coleus1a + penguinplot)
```
```{r, fig.width=12}
#devtools::install_github("edwinth/paletti")
library(paletti)
statesMap = map_data("state")
statesMap$num = rnorm(nrow(statesMap))
kandyan <- knitr::include_graphics(here("data-raw","kandyan_dancer.png"))
kandyan <- ggplot() + annotation_custom(grid::rasterGrob(
magick::image_read(here("data-raw","kandyan_dancer.png")),
width=unit(1,"npc"),
height=unit(1,"npc")),
-Inf, Inf, -Inf, Inf)
pal_kandyan <- nic_palette("kandyan_dancer_6",6)
scale_fill_my_palette <- get_pal(pal_kandyan) %>%
get_scale_fill()
g2 <- ggplot(statesMap, aes(x = long, y = lat, group = group, fill = num)) +
geom_polygon(color = "black") + scale_fill_my_palette(discrete = FALSE)
(kandyan + g2)
```