Color

class: left, top, inverse
background-image: url(https://images.unsplash.com/photo-1500964757637-c85e8a162699?ixlib=rb-1.2.1&ixid=eyJhcHBfaWQiOjI0MX0&auto=format&fit=crop&w=1078&q=80)
background-size: cover

# .right.Large[Color]
### Theory and Practice

#### .left[Gina Reynolds<br>Photo Credit: Simon Matzinger]

---

> *We need color maps/scale [as well as other aesthetic maps - x position, y position, size, shape] because they're an interface between your data and your brain* - Nathaniel Smith "A Better Default Colormap for Matplotlib"

---

## What do we want in a default colormap/colorscale? More from Nathaniel Smith

> Colorful

> Beautiful

> Sequential

> Accurately represents the data (change in values)

> Works in black and white

> Accessible to colorblind viewers

---

## Which is the good colormap from Matlab?

> Parula

> What's the old, problematic one?

> Jet (rainbow-y)

---

![Isaac Newton's Color Wheel - creative commons, via Wikipedia](https://upload.wikimedia.org/wikipedia/commons/0/0a/Newton%27s_colour_circle.png)

---

<div class="figure">
<img src="https://public-media.interaction-design.org/images/uploads/ecd8ffd0de8cb38865b4bfc247419e08.jpg" alt="Author/Copyright holder: Unknown. Copyright terms and licence: Unknown via https://www.interaction-design.org/" width="30%" />
<p class="caption">Author/Copyright holder: Unknown. Copyright terms and licence: Unknown via https://www.interaction-design.org/</p>
</div>

---
class: inverse, middle, center

# Duke Ellington:  "If it sounds good it is good."

### A matter of personal taste too

---
class: inverse, middle, center

# Getting colors

## Named colors

## RGB 0 to 1

## Hexidecimal RGB

## RGB 0 to 255

## Hue Saturation Value

---
class: inverse, middle, center

# Named Colors

---

```r
*colors()
```
]
 
.right-output-named_prep-auto[

```
  [1] "white"                "aliceblue"            "antiquewhite"        
  [4] "antiquewhite1"        "antiquewhite2"        "antiquewhite3"       
  [7] "antiquewhite4"        "aquamarine"           "aquamarine1"         
 [10] "aquamarine2"          "aquamarine3"          "aquamarine4"         
 [13] "azure"                "azure1"               "azure2"              
 [16] "azure3"               "azure4"               "beige"               
 [19] "bisque"               "bisque1"              "bisque2"             
 [22] "bisque3"              "bisque4"              "black"               
 [25] "blanchedalmond"       "blue"                 "blue1"               
 [28] "blue2"                "blue3"                "blue4"               
 [31] "blueviolet"           "brown"                "brown1"              
 [34] "brown2"               "brown3"               "brown4"              
 [37] "burlywood"            "burlywood1"           "burlywood2"          
 [40] "burlywood3"           "burlywood4"           "cadetblue"           
 [43] "cadetblue1"           "cadetblue2"           "cadetblue3"          
 [46] "cadetblue4"           "chartreuse"           "chartreuse1"         
 [49] "chartreuse2"          "chartreuse3"          "chartreuse4"         
 [52] "chocolate"            "chocolate1"           "chocolate2"          
 [55] "chocolate3"           "chocolate4"           "coral"               
 [58] "coral1"               "coral2"               "coral3"              
 [61] "coral4"               "cornflowerblue"       "cornsilk"            
 [64] "cornsilk1"            "cornsilk2"            "cornsilk3"           
 [67] "cornsilk4"            "cyan"                 "cyan1"               
 [70] "cyan2"                "cyan3"                "cyan4"               
 [73] "darkblue"             "darkcyan"             "darkgoldenrod"       
 [76] "darkgoldenrod1"       "darkgoldenrod2"       "darkgoldenrod3"      
 [79] "darkgoldenrod4"       "darkgray"             "darkgreen"           
 [82] "darkgrey"             "darkkhaki"            "darkmagenta"         
 [85] "darkolivegreen"       "darkolivegreen1"      "darkolivegreen2"     
 [88] "darkolivegreen3"      "darkolivegreen4"      "darkorange"          
 [91] "darkorange1"          "darkorange2"          "darkorange3"         
 [94] "darkorange4"          "darkorchid"           "darkorchid1"         
 [97] "darkorchid2"          "darkorchid3"          "darkorchid4"         
[100] "darkred"              "darksalmon"           "darkseagreen"        
[103] "darkseagreen1"        "darkseagreen2"        "darkseagreen3"       
[106] "darkseagreen4"        "darkslateblue"        "darkslategray"       
[109] "darkslategray1"       "darkslategray2"       "darkslategray3"      
[112] "darkslategray4"       "darkslategrey"        "darkturquoise"       
[115] "darkviolet"           "deeppink"             "deeppink1"           
[118] "deeppink2"            "deeppink3"            "deeppink4"           
[121] "deepskyblue"          "deepskyblue1"         "deepskyblue2"        
[124] "deepskyblue3"         "deepskyblue4"         "dimgray"             
[127] "dimgrey"              "dodgerblue"           "dodgerblue1"         
[130] "dodgerblue2"          "dodgerblue3"          "dodgerblue4"         
[133] "firebrick"            "firebrick1"           "firebrick2"          
[136] "firebrick3"           "firebrick4"           "floralwhite"         
[139] "forestgreen"          "gainsboro"            "ghostwhite"          
[142] "gold"                 "gold1"                "gold2"               
[145] "gold3"                "gold4"                "goldenrod"           
[148] "goldenrod1"           "goldenrod2"           "goldenrod3"          
[151] "goldenrod4"           "gray"                 "gray0"               
[154] "gray1"                "gray2"                "gray3"               
[157] "gray4"                "gray5"                "gray6"               
[160] "gray7"                "gray8"                "gray9"               
[163] "gray10"               "gray11"               "gray12"              
[166] "gray13"               "gray14"               "gray15"              
[169] "gray16"               "gray17"               "gray18"              
[172] "gray19"               "gray20"               "gray21"              
[175] "gray22"               "gray23"               "gray24"              
[178] "gray25"               "gray26"               "gray27"              
[181] "gray28"               "gray29"               "gray30"              
[184] "gray31"               "gray32"               "gray33"              
[187] "gray34"               "gray35"               "gray36"              
[190] "gray37"               "gray38"               "gray39"              
[193] "gray40"               "gray41"               "gray42"              
[196] "gray43"               "gray44"               "gray45"              
[199] "gray46"               "gray47"               "gray48"              
[202] "gray49"               "gray50"               "gray51"              
[205] "gray52"               "gray53"               "gray54"              
[208] "gray55"               "gray56"               "gray57"              
[211] "gray58"               "gray59"               "gray60"              
[214] "gray61"               "gray62"               "gray63"              
[217] "gray64"               "gray65"               "gray66"              
[220] "gray67"               "gray68"               "gray69"              
[223] "gray70"               "gray71"               "gray72"              
[226] "gray73"               "gray74"               "gray75"              
[229] "gray76"               "gray77"               "gray78"              
[232] "gray79"               "gray80"               "gray81"              
[235] "gray82"               "gray83"               "gray84"              
[238] "gray85"               "gray86"               "gray87"              
[241] "gray88"               "gray89"               "gray90"              
[244] "gray91"               "gray92"               "gray93"              
[247] "gray94"               "gray95"               "gray96"              
[250] "gray97"               "gray98"               "gray99"              
[253] "gray100"              "green"                "green1"              
[256] "green2"               "green3"               "green4"              
[259] "greenyellow"          "grey"                 "grey0"               
[262] "grey1"                "grey2"                "grey3"               
[265] "grey4"                "grey5"                "grey6"               
[268] "grey7"                "grey8"                "grey9"               
[271] "grey10"               "grey11"               "grey12"              
[274] "grey13"               "grey14"               "grey15"              
[277] "grey16"               "grey17"               "grey18"              
[280] "grey19"               "grey20"               "grey21"              
[283] "grey22"               "grey23"               "grey24"              
[286] "grey25"               "grey26"               "grey27"              
[289] "grey28"               "grey29"               "grey30"              
[292] "grey31"               "grey32"               "grey33"              
[295] "grey34"               "grey35"               "grey36"              
[298] "grey37"               "grey38"               "grey39"              
[301] "grey40"               "grey41"               "grey42"              
[304] "grey43"               "grey44"               "grey45"              
[307] "grey46"               "grey47"               "grey48"              
[310] "grey49"               "grey50"               "grey51"              
[313] "grey52"               "grey53"               "grey54"              
[316] "grey55"               "grey56"               "grey57"              
[319] "grey58"               "grey59"               "grey60"              
[322] "grey61"               "grey62"               "grey63"              
[325] "grey64"               "grey65"               "grey66"              
[328] "grey67"               "grey68"               "grey69"              
[331] "grey70"               "grey71"               "grey72"              
[334] "grey73"               "grey74"               "grey75"              
[337] "grey76"               "grey77"               "grey78"              
[340] "grey79"               "grey80"               "grey81"              
[343] "grey82"               "grey83"               "grey84"              
[346] "grey85"               "grey86"               "grey87"              
[349] "grey88"               "grey89"               "grey90"              
[352] "grey91"               "grey92"               "grey93"              
[355] "grey94"               "grey95"               "grey96"              
[358] "grey97"               "grey98"               "grey99"              
[361] "grey100"              "honeydew"             "honeydew1"           
[364] "honeydew2"            "honeydew3"            "honeydew4"           
[367] "hotpink"              "hotpink1"             "hotpink2"            
[370] "hotpink3"             "hotpink4"             "indianred"           
[373] "indianred1"           "indianred2"           "indianred3"          
[376] "indianred4"           "ivory"                "ivory1"              
[379] "ivory2"               "ivory3"               "ivory4"              
[382] "khaki"                "khaki1"               "khaki2"              
[385] "khaki3"               "khaki4"               "lavender"            
[388] "lavenderblush"        "lavenderblush1"       "lavenderblush2"      
[391] "lavenderblush3"       "lavenderblush4"       "lawngreen"           
[394] "lemonchiffon"         "lemonchiffon1"        "lemonchiffon2"       
[397] "lemonchiffon3"        "lemonchiffon4"        "lightblue"           
[400] "lightblue1"           "lightblue2"           "lightblue3"          
[403] "lightblue4"           "lightcoral"           "lightcyan"           
[406] "lightcyan1"           "lightcyan2"           "lightcyan3"          
[409] "lightcyan4"           "lightgoldenrod"       "lightgoldenrod1"     
[412] "lightgoldenrod2"      "lightgoldenrod3"      "lightgoldenrod4"     
[415] "lightgoldenrodyellow" "lightgray"            "lightgreen"          
[418] "lightgrey"            "lightpink"            "lightpink1"          
[421] "lightpink2"           "lightpink3"           "lightpink4"          
[424] "lightsalmon"          "lightsalmon1"         "lightsalmon2"        
[427] "lightsalmon3"         "lightsalmon4"         "lightseagreen"       
[430] "lightskyblue"         "lightskyblue1"        "lightskyblue2"       
[433] "lightskyblue3"        "lightskyblue4"        "lightslateblue"      
[436] "lightslategray"       "lightslategrey"       "lightsteelblue"      
[439] "lightsteelblue1"      "lightsteelblue2"      "lightsteelblue3"     
[442] "lightsteelblue4"      "lightyellow"          "lightyellow1"        
[445] "lightyellow2"         "lightyellow3"         "lightyellow4"        
[448] "limegreen"            "linen"                "magenta"             
[451] "magenta1"             "magenta2"             "magenta3"            
[454] "magenta4"             "maroon"               "maroon1"             
[457] "maroon2"              "maroon3"              "maroon4"             
[460] "mediumaquamarine"     "mediumblue"           "mediumorchid"        
[463] "mediumorchid1"        "mediumorchid2"        "mediumorchid3"       
[466] "mediumorchid4"        "mediumpurple"         "mediumpurple1"       
[469] "mediumpurple2"        "mediumpurple3"        "mediumpurple4"       
[472] "mediumseagreen"       "mediumslateblue"      "mediumspringgreen"   
[475] "mediumturquoise"      "mediumvioletred"      "midnightblue"        
[478] "mintcream"            "mistyrose"            "mistyrose1"          
[481] "mistyrose2"           "mistyrose3"           "mistyrose4"          
[484] "moccasin"             "navajowhite"          "navajowhite1"        
[487] "navajowhite2"         "navajowhite3"         "navajowhite4"        
[490] "navy"                 "navyblue"             "oldlace"             
[493] "olivedrab"            "olivedrab1"           "olivedrab2"          
[496] "olivedrab3"           "olivedrab4"           "orange"              
[499] "orange1"              "orange2"              "orange3"             
[502] "orange4"              "orangered"            "orangered1"          
[505] "orangered2"           "orangered3"           "orangered4"          
[508] "orchid"               "orchid1"              "orchid2"             
[511] "orchid3"              "orchid4"              "palegoldenrod"       
[514] "palegreen"            "palegreen1"           "palegreen2"          
[517] "palegreen3"           "palegreen4"           "paleturquoise"       
[520] "paleturquoise1"       "paleturquoise2"       "paleturquoise3"      
[523] "paleturquoise4"       "palevioletred"        "palevioletred1"      
[526] "palevioletred2"       "palevioletred3"       "palevioletred4"      
[529] "papayawhip"           "peachpuff"            "peachpuff1"          
[532] "peachpuff2"           "peachpuff3"           "peachpuff4"          
[535] "peru"                 "pink"                 "pink1"               
[538] "pink2"                "pink3"                "pink4"               
[541] "plum"                 "plum1"                "plum2"               
[544] "plum3"                "plum4"                "powderblue"          
[547] "purple"               "purple1"              "purple2"             
[550] "purple3"              "purple4"              "red"                 
[553] "red1"                 "red2"                 "red3"                
[556] "red4"                 "rosybrown"            "rosybrown1"          
[559] "rosybrown2"           "rosybrown3"           "rosybrown4"          
[562] "royalblue"            "royalblue1"           "royalblue2"          
[565] "royalblue3"           "royalblue4"           "saddlebrown"         
[568] "salmon"               "salmon1"              "salmon2"             
[571] "salmon3"              "salmon4"              "sandybrown"          
[574] "seagreen"             "seagreen1"            "seagreen2"           
[577] "seagreen3"            "seagreen4"            "seashell"            
[580] "seashell1"            "seashell2"            "seashell3"           
[583] "seashell4"            "sienna"               "sienna1"             
[586] "sienna2"              "sienna3"              "sienna4"             
[589] "skyblue"              "skyblue1"             "skyblue2"            
[592] "skyblue3"             "skyblue4"             "slateblue"           
[595] "slateblue1"           "slateblue2"           "slateblue3"          
[598] "slateblue4"           "slategray"            "slategray1"          
[601] "slategray2"           "slategray3"           "slategray4"          
[604] "slategrey"            "snow"                 "snow1"               
[607] "snow2"                "snow3"                "snow4"               
[610] "springgreen"          "springgreen1"         "springgreen2"        
[613] "springgreen3"         "springgreen4"         "steelblue"           
[616] "steelblue1"           "steelblue2"           "steelblue3"          
[619] "steelblue4"           "tan"                  "tan1"                
[622] "tan2"                 "tan3"                 "tan4"                
[625] "thistle"              "thistle1"             "thistle2"            
[628] "thistle3"             "thistle4"             "tomato"              
[631] "tomato1"              "tomato2"              "tomato3"             
[634] "tomato4"              "turquoise"            "turquoise1"          
[637] "turquoise2"           "turquoise3"           "turquoise4"          
[640] "violet"               "violetred"            "violetred1"          
[643] "violetred2"           "violetred3"           "violetred4"          
[646] "wheat"                "wheat1"               "wheat2"              
[649] "wheat3"               "wheat4"               "whitesmoke"          
[652] "yellow"               "yellow1"              "yellow2"             
[655] "yellow3"              "yellow4"              "yellowgreen"         
```
]

---
class: split-40
count: false

```r
colors() %>%  
* length()
```
]
 
.right-output-named_prep-auto[

```
[1] 657
```
]

---

[See the colors and names](named_colors.html)

---
class: inverse, middle, center

# RGB

---

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
      rgb(red =  0, green = 0, blue = 0, alpha = .8)  
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_1_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .1, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_2_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .2, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_3_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .3, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_4_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .4, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_5_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .5, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_6_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .6, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_7_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .7, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_8_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .8, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_9_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .9, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_10_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_11_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green =  0, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_12_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .1, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_13_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .2, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_14_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .3, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_15_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .4, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_16_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .5, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_17_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .6, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_18_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .7, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_19_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .8, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_20_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green = .9, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_21_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 1, green =  1, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_22_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_23_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .2, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_24_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .3, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_25_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .4, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_26_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .5, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_27_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .6, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_28_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .7, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_29_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .8, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_30_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue = .9, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_31_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 1, blue =  1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_32_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .9, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_33_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .8, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_34_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .7, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_35_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .6, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_36_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .5, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_37_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .4, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_38_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .3, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_39_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .2, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_40_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .1, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_41_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  0, green = 1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_42_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .9, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_43_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .8, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_44_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .7, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_45_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .6, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_46_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .5, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_47_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .4, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_48_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .3, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_49_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .2, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_50_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .1, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_51_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green =  0, blue = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_52_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .9, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_53_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .8, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_54_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .7, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_55_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .6, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_56_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .5, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_57_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .4, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_58_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .3, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_59_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .2, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_60_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue = .1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_61_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 0, blue =  0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_62_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .1, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_63_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .2, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_64_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .3, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_65_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .4, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_66_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .5, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_67_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .6, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_68_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .7, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_69_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .8, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_70_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .9, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_71_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green =  1, blue = 0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_72_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_73_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .2, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_74_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .3, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_75_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .4, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_76_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .5, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_77_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .6, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_78_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .7, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_79_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .8, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_80_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue = .9, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_81_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = 1, blue =  1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_82_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .9, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_83_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .8, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_84_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .7, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_85_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .6, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_86_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .5, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_87_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .4, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_88_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .3, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_89_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .2, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_90_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green = .1, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_91_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = 0, green =  0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_92_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .1, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_93_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .2, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_94_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .3, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_95_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .4, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_96_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .5, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_97_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .6, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_98_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .7, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_99_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .8, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_100_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red = .9, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_101_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     rgb(red =  1, green = 0, blue = 1, alpha = 1) #ROTATE
              )  
```
]
 
.right-output-rgb-rotate[
<img src="color_files/figure-html/rgb_rotate_102_output-1.png" width="432" />
]

---
class: inverse, middle, center

# Hexidecimal system

## Four bits is a "hex"

binary code...

1111 = F
0000 = 0

---

```r
rgb(red =  0, green = 0, blue = 0, alpha = 1)  
```
]
 
.right-output-hex-rotate[

```
[1] "#000000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .1, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#1A0000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .2, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#330000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .3, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#4D0000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .4, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#660000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .5, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#800000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .6, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#990000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .7, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#B30000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .8, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#CC0000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .9, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#E60000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF0000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green =  0, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF0000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .1, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF1A00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .2, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF3300FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .3, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF4D00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .4, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF6600FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .5, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF8000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .6, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF9900FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .7, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFB300FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .8, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFCC00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green = .9, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFE600FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 1, green =  1, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFF00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFF1AFF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .2, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFF33FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .3, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFF4DFF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .4, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFF66FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .5, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFF80FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .6, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFF99FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .7, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFFB3FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .8, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFFCCFF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue = .9, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFFE6FF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 1, blue =  1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FFFFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .9, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#E6FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .8, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#CCFFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .7, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#B3FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .6, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#99FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .5, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#80FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .4, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#66FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .3, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#4DFFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .2, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#33FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .1, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#1AFFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  0, green = 1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .9, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00E6FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .8, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00CCFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .7, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00B3FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .6, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0099FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .5, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0080FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .4, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0066FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .3, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#004DFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .2, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0033FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#001AFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green =  0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0000FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .9, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0000E6FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .8, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0000CCFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .7, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0000B3FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .6, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#000099FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .5, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#000080FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .4, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#000066FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .3, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00004DFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .2, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#000033FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue = .1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00001AFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 0, blue =  0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#000000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .1, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#001A00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .2, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#003300FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .3, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#004D00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .4, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#006600FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .5, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#008000FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .6, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#009900FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .7, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00B300FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .8, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00CC00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .9, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00E600FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green =  1, blue = 0, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FF00FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FF1AFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .2, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FF33FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .3, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FF4DFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .4, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FF66FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .5, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FF80FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .6, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FF99FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .7, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FFB3FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .8, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FFCCFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue = .9, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FFE6FF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = 1, blue =  1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00FFFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .9, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00E6FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .8, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00CCFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .7, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#00B3FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .6, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0099FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .5, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0080FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .4, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0066FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .3, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#004DFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .2, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0033FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green = .1, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#001AFFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = 0, green =  0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#0000FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .1, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#1A00FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .2, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#3300FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .3, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#4D00FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .4, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#6600FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .5, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#8000FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .6, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#9900FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .7, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#B300FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .8, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#CC00FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red = .9, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#E600FFFF"
```
]

---
class: split-40
count: false

```r
*rgb(red =  1, green = 0, blue = 1, alpha = 1)
```
]
 
.right-output-hex-rotate[

```
[1] "#FF00FFFF"
```
]

---
class: inverse, middle, center

# RGB Zero to 255

---

```r
col2rgb("#FFFFFF")  
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue   255
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFFFE")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue   254
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFFFD")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue   253
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFFFC")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue   252
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFFFB")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue   251
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFFFA")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue   250
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF00")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue     0
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF01")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue     1
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF02")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue     2
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF03")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue     3
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF04")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue     4
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF05")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue     5
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF09")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue     9
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF0A")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    10
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF0B")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    11
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF0C")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    12
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF0D")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    13
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF0E")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    14
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF0F")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    15
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF11")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    17
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF12")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    18
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF13")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    19
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF14")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    20
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF15")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    21
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF16")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    22
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF17")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    23
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF18")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    24
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF19")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    25
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF1A")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    26
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF1B")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    27
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF1C")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    28
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF1D")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    29
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF1E")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    30
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF1F")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    31
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF20")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    32
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF21")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    33
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF21")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    33
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF22")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    34
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF23")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    35
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF24")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    36
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF25")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    37
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF26")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    38
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF27")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    39
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF28")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    40
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF29")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    41
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF2A")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    42
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF2B")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    43
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF2C")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    44
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF2D")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    45
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF2E")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    46
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF2F")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    47
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF30")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    48
```
]

---
class: split-40
count: false

```r
*col2rgb("#FFFF31")
```
]
 
.right-output-hex_to_rgb-rotate[

```
      [,1]
red    255
green  255
blue    49
```
]

---

## How many options within RGB?

```r
16 * 16
```

```
[1] 256
```

## How many possible combinations?  How many unique colors?

```r
256 * 256 * 256
```

```
[1] 16777216
```

---
class: center, middle, inverse

# [DU visual signature](https://www.du.edu/marcomm/assets/documents/du_visid_guidelines.pdf)

### How DU stays on brand

### What is a Hexidecimal color of DU? Same color in RGB?  Name the color in your own words?

### https://www.du.edu/marcomm/assets/documents/du_visid_guidelines.pdf

---
class: inverse

What's black in:

- hexidecimal "speak"?
- RGB 0 to 1
- RGB 0 to 255

What's white:

- hexidecimal "speak"?
- RGB 0 to 1
- RGB 0 to 255

What's green:

- hexidecimal "speak"?
- RGB 0 to 1
- RGB 0 to 255

---
class:  center, middle, inverse

# Hue, Saturation, Value

---

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
      hsv(h =  0, s = 1, v = 1, alpha = .8)  
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_1_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .1, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_2_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .2, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_3_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .3, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_4_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .4, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_5_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .5, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_6_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .6, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_7_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .7, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_8_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .8, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_9_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .9, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_10_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h =  1, s = 1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_11_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s =  1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_12_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1,  v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_13_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .9, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_14_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .8, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_15_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .7, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_16_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .6, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_17_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .5, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_18_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .4, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_19_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .3, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_20_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .2, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_21_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = .1, v = 1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_22_output-1.png" width="432" />
]

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .9, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_33_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .8, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_34_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .7, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_35_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .6, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_36_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .5, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_37_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .4, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_38_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .3, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_39_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .2, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_40_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v = .1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_41_output-1.png" width="432" />
]

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v =  0, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_42_output-1.png" width="432" />
]

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

---
class: split-40
count: false

```r
ggplot() +  
  aes(x = 1) +  
  aes(y = 1) +  
  geom_tile(  
    fill =  
*     hsv(h = .33, s = 1, v =  1, alpha = .8) #ROTATE
              )  
```
]
 
.right-output-hsv-rotate[
<img src="color_files/figure-html/hsv_rotate_52_output-1.png" width="432" />
]