Intro-to-seecolor-package

Warning: replacing previous import 'lifecycle::last_warnings' by
'rlang::last_warnings' when loading 'tibble'
Warning: replacing previous import 'ellipsis::check_dots_unnamed' by
'rlang::check_dots_unnamed' when loading 'tibble'
Warning: replacing previous import 'ellipsis::check_dots_used' by
'rlang::check_dots_used' when loading 'tibble'
Warning: replacing previous import 'ellipsis::check_dots_empty' by
'rlang::check_dots_empty' when loading 'tibble'
Warning: replacing previous import 'lifecycle::last_warnings' by
'rlang::last_warnings' when loading 'pillar'
Warning: replacing previous import 'ellipsis::check_dots_unnamed' by
'rlang::check_dots_unnamed' when loading 'pillar'
Warning: replacing previous import 'ellipsis::check_dots_used' by
'rlang::check_dots_used' when loading 'pillar'
Warning: replacing previous import 'ellipsis::check_dots_empty' by
'rlang::check_dots_empty' when loading 'pillar'

1. Use the cursor to select object to print in the console.

# Highlight objects by cursor to show the contained colors
pick_color()

# Change output styles, "ribbon" or "mosaic"
pick_color(type = "r")

# Change the length of the color blocks
pick_color(blank.len = 1)

Pick colors

2. Use print_color to print color literals, palettes and ggplot2 objects.

Note: the colors may appear not distingushable in the html version, but they always work fine in console.

print_color(c("red", "navy", "pink", "#E58700", "limegreen"))
#> 
#>  ------ c red navy pink #E58700 limegreen ------
#>                

print_color(c("red", "navy", "pink", "#E58700", "limegreen"), 
            type = "r")
#> 
#>  ------ c red navy pink #E58700 limegreen ------
#> red                 
#> navy                
#> pink                
#> #E58700             
#> limegreen           


print_color(palette(rainbow(6)), blank.len = 1)
#> 
#>  ------ palette rainbow(6) ------
#>         

print_color(palette(rainbow(6)), type = 'r')
#> 
#>  ------ palette rainbow(6) ------
#> red                 
#> yellow              
#> green               
#> cyan                
#> blue                
#> magenta             


p1 <- ggplot(mpg) +
  geom_point(aes(displ, cyl, color = manufacturer))
print_color(p1)
#> 
#>  ---ggplot object--- 
#>                                              

print_color(p1, type = 'r')
#> ---ggplot object---
#> #F8766D             
#> #E58700             
#> #C99800             
#> #A3A500             
#> #6BB100             
#> #00BA38             
#> #00BF7D             
#> #00C0AF             
#> #00BCD8             
#> #00B0F6             
#> #619CFF             
#> #B983FF             
#> #E76BF3             
#> #FD61D1             
#> #FF67A4

3. Use open_sample() to open a sample file to have an instant try.

# Open the pre-defined test file
open_sample()