Awesome
<!-- README.md is generated from README.Rmd. Please edit that file -->svgpatternusgs <img src="man/figures/logo.svg" align="right" height=230/>
<!-- badges: start -->
svgpatternusgs provides SVG patterns from the United States
Geological Survey (USGS).
For online documentation, see the svgpatternusgs pkgdown website.
The USGS provides a large array of reference styles for geologic linework and map symbology.
- USGS website for Geological Map Symbols
- The raw data for this package was sourced from davenquinn’s github version
An example of the patterns provided
This is a screenshot of the original documentation which comes with these patterns from the USGS
<img src="man/figures/USGS-sample.png" />This list of all codes which have a pattern in this package:
svgpatternusgs::all_usgs_codes
#> [1] 101 102 103 104 105 106 114 116 117 118 119 120 121 122 123 124 132 134
#> [19] 135 136 137 201 202 204 206 207 214 215 216 217 218 219 226 228 229 230
#> [37] 231 232 233 301 302 303 304 305 306 313 314 315 316 317 318 319 327 328
#> [55] 330 331 401 402 403 405 406 411 412 416 417 418 419 420 423 424 427 428
#> [73] 429 430 431 432 433 434 435 436 521 522 523 524 591 592 593 594 595 601
#> [91] 602 603 605 606 607 608 609 610 611 612 613 614 616 617 618 619 620 621
#> [109] 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639
#> [127] 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657
#> [145] 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675
#> [163] 676 677 678 679 680 681 682 683 684 685 686 701 702 703 704 705 706 707
#> [181] 708 709 710 711 712 713 714 715 716 717 719 720 721 722 723 724 725 726
#> [199] 727 728 729 730 731 732 733
What’s in the box?
- Functions for accessing the SVG for all the provided USGS codes
- SVG pattern are supplied as
minisvg::SVGPatternobjects. - Functions for encoding/decoding a pattern specification from a hex colour.
To Do
The original SVG sources for this were OK but not perfect. I’ve patched some issues, but there are still quite a few occasions where gaps and tears appear in patterns.
These errors don’t appear to be systematic, so I think it will require some labour-intensive manual corrections to individual patterns.
Installation
You can install from github with:
# install.packages("devtools")
devtools::install_github("coolbutuseless/lofi") # Colour encoding
devtools::install_github("coolbutuseless/minisvg") # SVG support
devtools::install_github("coolbutuseless/svgpatternusgs") # This package
Create and show a pattern
pattern <- create_usgs_pattern(usgs_code = 605, spacing = 50)
# pattern$show()
pattern$save_full_svg("man/figures/usgs-605.svg", width=400, height = 100)
Multiple patterns
pattern_list <- svgpatternusgs::all_usgs_codes[41:72] %>%
purrr::map(create_usgs_pattern, spacing = 200)
patterns <- minisvg::SVGPatternList_to_svg(pattern_list, width=200, height=100, ncol = 4)
patterns$save("man/figures/usgs-sample.svg")
Using the pattern in a minisvg SVG document
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Building an SVG logo with an animated stripe
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
library(minisvg)
doc <- minisvg::svg_doc(width = 400, height = 200)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Create a simple pattern using the `svgpatternsimple` package
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
geopattern1 <- svgpatternusgs::create_usgs_pattern(usgs_code = 601, spacing = 200)
geopattern2 <- svgpatternusgs::create_usgs_pattern(usgs_code = 655, spacing = 200)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Add the pattern to the documents list of definitions
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
doc$defs(geopattern1, geopattern2)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Create shapes filled with the patterns and add to doc
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
rect <- stag$rect(x='10%', y='10%', width='50%', height='50%', stroke = 'black',
fill=geopattern1)
circle <- stag$circle(cx = "75%", cy="60%", r="45%", stroke = 'black',
fill=geopattern2)
doc$append(rect, circle)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# output
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# doc$show()
doc$save("man/figures/README-example-rect.svg")
Creating the logo for this package
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Building an SVG logo with an animated stripe
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
library(minisvg)
logo <- minisvg::svg_doc(width = 200, height = 200)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Create a simple pattern using the `svgpatternsimple` package
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
geopattern <- svgpatternusgs::create_usgs_pattern(usgs_code = 655, spacing = 200)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Add the pattern to the documents list of definitions
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
logo$defs(geopattern)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Create a hexagon filled with this pattern, and add it to the document
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
len <- 100
angles <- (seq(0, 360, 60) + 90) * pi/180
xs <- round(len * cos(angles) + 100, 2)
ys <- round(len * sin(angles) + 100, 2)
hex <- stag$polygon(id = 'hex', xs = xs, ys = ys)
hex$update(stroke = '#c0c0c0', fill = geopattern)
logo$append(hex)
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# output
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# logo$show()
logo$save("man/figures/logo.svg")