R语言之可视化（21）令人眼前一亮的颜色包

install.packages("wesanderson")

devtools::install_github("karthik/wesanderson")

library("wesanderson")

# See all palettes
names(wes_palettes)
#>  [1] "BottleRocket1"  "BottleRocket2"  "Rushmore1"      "Rushmore"      
#>  [5] "Royal1"         "Royal2"         "Zissou1"        "Darjeeling1"   
#>  [9] "Darjeeling2"    "Chevalier1"     "FantasticFox1"  "Moonrise1"     
#> [13] "Moonrise2"      "Moonrise3"      "Cavalcanti1"    "GrandBudapest1"
#> [17] "GrandBudapest2" "IsleofDogs1"    "IsleofDogs2"

wes_palette("BottleRocket1")

wes_palette("BottleRocket2")

wes_palette("Rushmore1")

wes_palette("Royal1")

wes_palette("Royal2")

library("ggplot2")
ggplot(mtcars, aes(factor(cyl), fill=factor(vs))) +  geom_bar() +
  scale_fill_manual(values = wes_palette("Royal1"))

wes_palette("Zissou1")

pal <- wes_palette("Zissou1", 21, type = "continuous")
image(volcano, col = pal)

pal <- wes_palette("Zissou1", 100, type = "continuous")
# heatmap is a local dataset
ggplot(heatmap, aes(x = X2, y = X1, fill = value)) +
  geom_tile() + 
  scale_fill_gradientn(colours = pal) + 
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0)) + 
  coord_equal() 

wes_palette("Darjeeling1")

wes_palette("Darjeeling2")

wes_palette("Chevalier1")

wes_palette("FantasticFox1")

wes_palette("Moonrise1")

wes_palette("Moonrise2")

wes_palette("Moonrise3")

wes_palette("Cavalcanti1")

wes_palette("GrandBudapest1")

wes_palette("GrandBudapest2")

wes_palette("IsleofDogs1")

wes_palette("IsleofDogs2")