R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.3     v dplyr   1.0.7
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   2.0.1     v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(sf)
## Linking to GEOS 3.9.0, GDAL 3.2.1, PROJ 7.2.1
library(leaflet) # for interactive maps

countyboundries <- sf::read_sf("../classleaflet/County_Boundaries-_Census.shp") %>% sf::st_make_valid() %>% 
  mutate(Popdensity= Total/(ALAND10 + AWATER10))

glimpse(countyboundries)
## Rows: 93
## Columns: 175
## $ OBJECTID   <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, ~
## $ STATEFP10  <chr> "31", "31", "31", "31", "31", "31", "31", "31", "31", "31",~
## $ COUNTYFP10 <chr> "021", "047", "155", "171", "003", "071", "165", "049", "13~
## $ COUNTYNS10 <chr> "00835832", "00835845", "00835899", "00835907", "00835824",~
## $ GEOID10    <chr> "31021", "31047", "31155", "31171", "31003", "31071", "3116~
## $ NAME10     <chr> "Burt", "Dawson", "Saunders", "Thomas", "Antelope", "Garfie~
## $ NAMELSAD10 <chr> "Burt County", "Dawson County", "Saunders County", "Thomas ~
## $ LSAD10     <chr> "06", "06", "06", "06", "06", "06", "06", "06", "06", "06",~
## $ CLASSFP10  <chr> "H1", "H1", "H1", "H1", "H1", "H1", "H1", "H1", "H1", "H1",~
## $ MTFCC10    <chr> "G4020", "G4020", "G4020", "G4020", "G4020", "G4020", "G402~
## $ CSAFP10    <chr> NA, NA, "420", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ~
## $ CBSAFP10   <chr> NA, "30420", "36540", NA, NA, NA, NA, NA, NA, NA, NA, NA, "~
## $ METDIVFP10 <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,~
## $ FUNCSTAT10 <chr> "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",~
## $ ALAND10    <dbl> 1273189665, 2623905741, 1943096642, 1847272741, 2220183930,~
## $ AWATER10   <int> 14197836, 16413301, 24827703, 2028358, 3558463, 4125559, 18~
## $ INTPTLAT10 <chr> "+41.8541794", "+40.8673784", "+41.2231522", "+41.8486202",~
## $ INTPTLON10 <chr> "-096.3377462", "-099.8151537", "-096.6409225", "-100.50691~
## $ Shape_Leng <dbl> 553697.6, 714587.6, 622794.6, 567436.6, 633223.1, 505055.8,~
## $ GEOID10_1  <chr> "05000US31021", "05000US31047", "05000US31155", "05000US311~
## $ GEOID      <chr> "31021", "31047", "31155", "31171", "31003", "31071", "3116~
## $ SUMLEVEL   <int> 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,~
## $ ST         <int> 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31,~
## $ NAME       <chr> "Burt County, Nebraska", "Dawson County, Nebraska", "Saunde~
## $ COUNTY     <chr> "21", "47", "155", "171", "3", "71", "165", "49", "133", "1~
## $ TRACT      <chr> "null", "null", "null", "null", "null", "null", "null", "nu~
## $ BLKGRP     <chr> "null", "null", "null", "null", "null", "null", "null", "nu~
## $ Total      <int> 6964, 24245, 20543, 756, 6742, 2081, 1340, 1963, 2767, 2107~
## $ Male       <int> 3418, 12245, 10389, 355, 3369, 1053, 675, 940, 1370, 1116, ~
## $ MUn5Y      <int> 194, 1052, 746, 11, 227, 34, 17, 47, 68, 29, 149, 90, 24, 1~
## $ M5to9Y     <int> 198, 817, 705, 20, 228, 43, 44, 39, 78, 89, 130, 59, 16, 16~
## $ M10to14Y   <int> 249, 1076, 822, 29, 210, 120, 56, 48, 79, 90, 173, 102, 28,~
## $ M15to17Y   <int> 155, 594, 503, 27, 175, 77, 27, 40, 94, 49, 127, 66, 27, 12~
## $ M18and19Y  <int> 88, 347, 233, 0, 93, 27, 26, 6, 8, 21, 59, 17, 6, 41, 72, 1~
## $ M20Y       <int> 15, 162, 114, 0, 76, 0, 1, 15, 0, 14, 22, 12, 0, 19, 50, 67~
## $ M21Y       <int> 54, 120, 95, 0, 13, 8, 2, 2, 3, 18, 23, 27, 0, 3, 23, 17, 1~
## $ M22to24Y   <int> 50, 385, 282, 1, 71, 14, 9, 11, 62, 20, 37, 30, 8, 62, 107,~
## $ M25to29Y   <int> 150, 851, 473, 25, 155, 26, 17, 36, 51, 53, 116, 67, 24, 81~
## $ M30to34Y   <int> 137, 803, 538, 11, 155, 19, 37, 67, 38, 29, 130, 95, 7, 125~
## $ M35to39Y   <int> 185, 728, 576, 25, 153, 66, 37, 37, 82, 55, 122, 36, 13, 13~
## $ M40to44Y   <int> 220, 838, 763, 13, 182, 50, 46, 60, 81, 95, 142, 90, 14, 10~
## $ M45to49Y   <int> 270, 814, 952, 39, 277, 109, 68, 101, 96, 91, 196, 120, 58,~
## $ M50to54Y   <int> 281, 873, 801, 25, 278, 128, 56, 80, 113, 81, 217, 118, 29,~
## $ M55to59Y   <int> 308, 773, 697, 37, 271, 55, 59, 54, 103, 78, 186, 95, 28, 1~
## $ M60and61Y  <int> 89, 261, 251, 3, 78, 14, 27, 31, 63, 15, 125, 57, 20, 66, 7~
## $ M62to64Y   <int> 88, 353, 389, 26, 126, 43, 17, 33, 44, 43, 54, 68, 9, 142, ~
## $ M65and66Y  <int> 76, 245, 139, 4, 64, 8, 20, 44, 22, 42, 72, 41, 5, 32, 97, ~
## $ M67to69Y   <int> 122, 172, 230, 8, 95, 31, 11, 52, 47, 48, 93, 46, 3, 61, 78~
## $ M70to74Y   <int> 148, 299, 444, 19, 149, 71, 43, 46, 72, 53, 109, 79, 13, 14~
## $ M75to79Y   <int> 159, 328, 289, 10, 123, 51, 37, 50, 47, 50, 113, 65, 5, 83,~
## $ M80to84Y   <int> 88, 177, 176, 12, 75, 41, 10, 25, 74, 30, 98, 44, 19, 100, ~
## $ MOv85Y     <int> 94, 177, 171, 10, 95, 18, 8, 16, 45, 23, 94, 30, 5, 52, 85,~
## $ Female     <int> 3546, 12000, 10154, 401, 3373, 1028, 665, 1023, 1397, 991, ~
## $ FUn5Y      <int> 202, 925, 632, 33, 200, 24, 6, 56, 64, 65, 142, 73, 30, 124~
## $ F5to9Y     <int> 209, 935, 691, 21, 218, 97, 38, 56, 52, 54, 138, 71, 18, 16~
## $ F10to14Y   <int> 220, 944, 771, 20, 212, 71, 51, 52, 110, 57, 163, 106, 27, ~
## $ F15to17Y   <int> 151, 567, 490, 22, 148, 41, 20, 50, 28, 23, 118, 56, 13, 14~
## $ F18and19Y  <int> 69, 279, 228, 0, 57, 10, 9, 22, 9, 21, 49, 33, 0, 60, 63, 8~
## $ F20Y       <int> 6, 99, 52, 0, 27, 11, 1, 16, 11, 14, 8, 3, 0, 42, 19, 33, 0~
## $ F21Y       <int> 36, 127, 88, 12, 52, 0, 3, 12, 0, 17, 5, 0, 9, 10, 33, 11, ~
## $ F22to24Y   <int> 81, 370, 253, 6, 36, 0, 16, 20, 42, 15, 53, 34, 20, 28, 78,~
## $ F25to29Y   <int> 154, 745, 479, 16, 154, 30, 22, 28, 49, 55, 81, 61, 9, 80, ~
## $ F30to34Y   <int> 140, 688, 557, 9, 155, 42, 26, 29, 47, 26, 104, 63, 0, 101,~
## $ F35to39Y   <int> 145, 814, 570, 28, 185, 38, 33, 46, 71, 60, 99, 49, 14, 107~
## $ F40to44Y   <int> 253, 707, 730, 22, 169, 95, 31, 42, 92, 41, 190, 107, 36, 1~
## $ F45to49Y   <int> 246, 803, 865, 23, 269, 95, 62, 92, 126, 80, 190, 125, 18, ~
## $ F50to54Y   <int> 264, 750, 797, 37, 276, 99, 61, 82, 93, 70, 204, 110, 54, 2~
## $ F55to59Y   <int> 265, 635, 651, 35, 279, 65, 73, 96, 84, 84, 173, 128, 19, 2~
## $ F60and61Y  <int> 86, 288, 250, 13, 56, 6, 32, 48, 30, 3, 119, 42, 10, 64, 12~
## $ F62to64Y   <int> 99, 363, 326, 29, 101, 39, 31, 25, 74, 58, 69, 45, 13, 89, ~
## $ F65and66Y  <int> 89, 168, 183, 13, 35, 42, 8, 31, 38, 37, 46, 44, 3, 38, 58,~
## $ F67to69Y   <int> 100, 250, 227, 4, 105, 41, 18, 28, 50, 26, 91, 27, 15, 103,~
## $ F70to74Y   <int> 203, 547, 413, 3, 200, 57, 31, 52, 81, 49, 152, 99, 13, 128~
## $ F75to79Y   <int> 187, 406, 275, 17, 138, 47, 23, 46, 83, 52, 144, 67, 13, 14~
## $ F80to84Y   <int> 161, 264, 266, 17, 170, 48, 38, 46, 63, 34, 145, 70, 4, 121~
## $ FOv85Y     <int> 180, 326, 360, 21, 131, 30, 32, 48, 100, 50, 192, 58, 21, 1~
## $ MedianAge  <dbl> 45.9, 36.0, 41.6, 47.0, 45.2, 47.3, 48.9, 49.3, 48.6, 47.0,~
## $ MedianAgeM <dbl> 45.2, 34.3, 41.0, 46.3, 43.5, 47.0, 46.5, 48.2, 47.6, 44.4,~
## $ MedianAgeF <dbl> 47.0, 36.9, 42.1, 48.3, 46.5, 48.2, 51.2, 49.7, 49.8, 48.3,~
## $ TotalRace  <int> 6964, 24245, 20543, 756, 6742, 2081, 1340, 1963, 2767, 2107~
## $ White      <int> 6735, 18770, 20050, 731, 6642, 2014, 1299, 1907, 2724, 2026~
## $ BlackorAA  <int> 57, 624, 11, 1, 25, 0, 0, 1, 0, 0, 4, 12, 0, 0, 5, 36, 4, 1~
## $ AmIndAlNat <int> 74, 89, 47, 0, 3, 6, 2, 5, 22, 8, 2, 13, 0, 47, 82, 46, 3, ~
## $ Asian      <int> 18, 129, 42, 3, 5, 0, 25, 0, 0, 0, 2, 4, 0, 5, 0, 13, 5, 41~
## $ NHawOPacIs <int> 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 26, 0, 0, 10, 0, ~
## $ Other      <int> 18, 4204, 154, 0, 4, 59, 0, 15, 0, 73, 4, 0, 17, 8, 18, 69,~
## $ R2orMore   <int> 62, 429, 237, 21, 63, 2, 14, 35, 21, 0, 57, 37, 20, 26, 62,~
## $ R2orMInOth <int> 9, 213, 0, 1, 2, 0, 9, 5, 1, 0, 19, 2, 0, 5, 11, 5, 0, 72, ~
## $ R2orMNO3R  <int> 53, 216, 237, 20, 61, 2, 5, 30, 20, 0, 38, 35, 20, 21, 51, ~
## $ TotHispNoH <int> 6964, 24245, 20543, 756, 6742, 2081, 1340, 1963, 2767, 2107~
## $ NotHisp    <int> 6851, 16840, 20150, 755, 6595, 2022, 1331, 1880, 2733, 2034~
## $ Hisp       <int> 113, 7405, 393, 1, 147, 59, 9, 83, 34, 73, 94, 22, 37, 109,~
## $ TotalHouse <int> 2951, 8908, 7985, 332, 2792, 875, 598, 931, 1309, 932, 2247~
## $ FamHouse   <int> 2019, 6092, 5931, 214, 2008, 617, 395, 616, 843, 597, 1450,~
## $ FHMarrCoup <int> 1748, 4831, 5143, 204, 1698, 534, 346, 509, 714, 535, 1277,~
## $ FHOthFam   <int> 271, 1261, 788, 10, 310, 83, 49, 107, 129, 62, 173, 208, 21~
## $ FHMaleHous <int> 65, 451, 294, 2, 99, 20, 6, 33, 36, 18, 61, 74, 13, 22, 130~
## $ FHFemHous  <int> 206, 810, 494, 8, 211, 63, 43, 74, 93, 44, 112, 134, 8, 152~
## $ NonFamHous <int> 932, 2816, 2054, 118, 784, 258, 203, 315, 466, 335, 797, 39~
## $ NFHAlone   <int> 820, 2608, 1753, 106, 733, 245, 195, 296, 429, 302, 756, 38~
## $ NFHNotAln  <int> 112, 208, 301, 12, 51, 13, 8, 19, 37, 33, 41, 13, 10, 15, 8~
## $ MedHousInc <int> 43817, 41830, 57699, 48250, 37058, 38709, 42386, 37148, 419~
## $ MedFamInc  <int> 54770, 51674, 67549, 60278, 47463, 47056, 52750, 49375, 495~
## $ PerCapInc  <int> 23302, 19384, 26898, 31499, 20419, 19235, 25824, 23758, 218~
## $ TotalUnits <int> 3508, 10065, 9112, 405, 3291, 1103, 808, 1084, 1550, 1439, ~
## $ Occupied   <int> 2951, 8908, 7985, 332, 2792, 875, 598, 931, 1309, 932, 2247~
## $ Vacant     <int> 557, 1157, 1127, 73, 499, 228, 210, 153, 241, 507, 510, 468~
## $ GrpQrtPop  <int> 187, 270, 394, 0, 193, 56, 0, 10, 74, 10, 194, 10, 0, 10, 1~
## $ TotPop25Ov <int> 4987, 15446, 13838, 554, 4699, 1504, 1014, 1471, 2059, 1511~
## $ Male1      <int> 2415, 7692, 6889, 267, 2276, 730, 493, 732, 978, 786, 1867,~
## $ MNoSchool  <int> 10, 117, 19, 0, 15, 4, 0, 0, 5, 0, 17, 0, 0, 0, 4, 12, 0, 1~
## $ MNursto4Gr <int> 3, 234, 0, 3, 0, 3, 0, 3, 3, 0, 2, 0, 4, 21, 0, 17, 12, 131~
## $ M5and6Gr   <int> 17, 515, 53, 3, 6, 15, 0, 10, 0, 0, 16, 5, 5, 10, 34, 2, 0,~
## $ M7and8Gr   <int> 35, 301, 94, 7, 88, 42, 11, 22, 57, 52, 78, 28, 0, 50, 77, ~
## $ M9Gr       <int> 18, 358, 53, 3, 19, 2, 0, 4, 10, 11, 18, 22, 0, 53, 32, 27,~
## $ M10Gr      <int> 31, 225, 82, 0, 39, 12, 0, 10, 13, 13, 11, 6, 0, 33, 20, 59~
## $ M11Gr      <int> 63, 160, 50, 0, 37, 2, 6, 3, 16, 11, 74, 54, 0, 40, 22, 75,~
## $ M12GrNoDip <int> 73, 154, 91, 0, 43, 3, 16, 32, 25, 14, 12, 23, 0, 51, 36, 4~
## $ MHSGdorGED <int> 910, 2691, 2840, 90, 1021, 286, 160, 238, 486, 357, 802, 40~
## $ MColless1Y <int> 155, 374, 448, 63, 132, 57, 28, 69, 41, 47, 90, 97, 5, 119,~
## $ MColNoDeg  <int> 364, 1096, 873, 28, 290, 178, 88, 123, 109, 84, 251, 187, 4~
## $ MAsscDeg   <int> 252, 373, 751, 46, 254, 34, 63, 69, 53, 77, 236, 117, 32, 1~
## $ MBachDeg   <int> 349, 778, 1045, 20, 211, 66, 58, 113, 124, 98, 201, 76, 49,~
## $ MMastDeg   <int> 81, 187, 330, 4, 46, 11, 49, 24, 17, 13, 37, 25, 8, 38, 102~
## $ MProfDeg   <int> 31, 112, 128, 0, 67, 8, 11, 12, 19, 0, 4, 9, 0, 30, 15, 72,~
## $ MDocDeg    <int> 23, 17, 32, 0, 8, 7, 3, 0, 0, 9, 18, 0, 0, 22, 17, 1, 0, 8,~
## $ Female1    <int> 2572, 7754, 6949, 287, 2423, 774, 521, 739, 1081, 725, 1999~
## $ FNoSchool  <int> 19, 255, 47, 0, 10, 1, 0, 0, 10, 0, 43, 2, 0, 4, 11, 0, 0, ~
## $ FNursto4Gr <int> 1, 167, 0, 0, 0, 0, 0, 0, 16, 0, 0, 0, 3, 4, 0, 0, 0, 78, 4~
## $ F5and6Gr   <int> 0, 279, 6, 0, 2, 11, 0, 0, 0, 1, 3, 0, 0, 2, 5, 0, 0, 126, ~
## $ F7and8Gr   <int> 43, 237, 181, 1, 71, 43, 0, 3, 39, 19, 81, 26, 0, 45, 87, 3~
## $ F9Gr       <int> 7, 270, 72, 0, 26, 2, 9, 6, 5, 0, 24, 9, 0, 14, 23, 22, 8, ~
## $ F10Gr      <int> 58, 165, 85, 5, 43, 10, 4, 6, 26, 9, 22, 29, 4, 46, 30, 73,~
## $ F11Gr      <int> 75, 219, 78, 10, 56, 3, 3, 29, 6, 23, 39, 31, 3, 80, 44, 26~
## $ F12GrNoDip <int> 26, 128, 84, 5, 25, 8, 9, 13, 17, 2, 22, 23, 10, 19, 29, 31~
## $ FHSGdorGED <int> 1024, 2747, 2220, 87, 880, 303, 166, 279, 527, 272, 694, 29~
## $ FColless1Y <int> 269, 674, 620, 29, 179, 68, 36, 50, 63, 71, 220, 111, 26, 1~
## $ FColNoDeg  <int> 390, 1007, 1065, 40, 467, 145, 97, 150, 127, 162, 274, 201,~
## $ FAsscDeg   <int> 232, 437, 749, 44, 222, 65, 54, 85, 101, 86, 215, 186, 37, ~
## $ FBachDeg   <int> 317, 907, 1240, 57, 351, 79, 110, 81, 106, 68, 282, 150, 32~
## $ FMastDeg   <int> 77, 223, 420, 9, 73, 31, 26, 29, 38, 7, 61, 29, 29, 40, 94,~
## $ FProfDeg   <int> 31, 28, 50, 0, 12, 5, 7, 8, 0, 4, 12, 4, 6, 19, 4, 32, 7, 2~
## $ FDocDeg    <int> 3, 11, 32, 0, 6, 0, 0, 0, 0, 1, 7, 0, 0, 0, 3, 0, 9, 0, 0, ~
## $ OwnOccUnit <int> 2194, 6395, 6612, 256, 2011, 695, 429, 729, 1024, 700, 1856~
## $ OVLess10K  <int> 51, 313, 65, 25, 66, 23, 14, 17, 54, 55, 87, 35, 3, 49, 66,~
## $ OV10K14999 <int> 30, 94, 23, 0, 61, 13, 16, 12, 47, 62, 100, 35, 0, 47, 42, ~
## $ OV15K19999 <int> 54, 15, 57, 5, 72, 19, 7, 28, 68, 42, 60, 61, 0, 58, 63, 40~
## $ OV20K24999 <int> 61, 131, 64, 6, 77, 26, 30, 26, 59, 62, 93, 71, 9, 181, 38,~
## $ OV25K29999 <int> 24, 125, 54, 19, 119, 34, 13, 26, 41, 17, 96, 72, 30, 76, 9~
## $ OV30K34999 <int> 48, 134, 46, 7, 73, 67, 9, 44, 56, 40, 103, 88, 10, 82, 71,~
## $ OV35K39999 <int> 106, 151, 57, 7, 113, 33, 6, 47, 61, 4, 56, 45, 0, 77, 56, ~
## $ OV40K49999 <int> 162, 319, 119, 22, 123, 43, 37, 83, 74, 49, 142, 95, 3, 201~
## $ OV50K5999  <int> 157, 486, 144, 23, 167, 30, 14, 41, 101, 89, 160, 82, 25, 1~
## $ OV60K69999 <int> 195, 447, 293, 12, 192, 35, 21, 72, 48, 15, 162, 85, 17, 12~
## $ OV70K79999 <int> 142, 721, 300, 18, 100, 63, 26, 78, 57, 30, 120, 51, 13, 10~
## $ OV80K89999 <int> 215, 764, 345, 6, 172, 26, 5, 47, 53, 50, 142, 72, 6, 73, 1~
## $ OV90K99999 <int> 199, 576, 430, 5, 76, 11, 5, 30, 26, 24, 67, 43, 0, 58, 97,~
## $ OV100K1249 <int> 212, 667, 843, 10, 156, 51, 31, 42, 65, 49, 144, 43, 22, 10~
## $ OV125K1499 <int> 126, 429, 929, 19, 94, 76, 10, 16, 22, 14, 80, 44, 11, 58, ~
## $ OV150K1749 <int> 150, 398, 539, 3, 116, 19, 27, 36, 66, 22, 89, 22, 30, 80, ~
## $ OV175K1999 <int> 74, 201, 397, 0, 35, 20, 25, 20, 7, 3, 10, 10, 8, 13, 20, 1~
## $ OV200K2499 <int> 93, 205, 767, 17, 50, 51, 21, 36, 61, 26, 53, 20, 13, 35, 8~
## $ OV250K2999 <int> 15, 73, 450, 33, 53, 43, 39, 13, 32, 24, 63, 0, 0, 35, 3, 5~
## $ OV300K3999 <int> 40, 27, 414, 4, 49, 0, 6, 6, 23, 10, 24, 0, 3, 55, 42, 37, ~
## $ OV400K4999 <int> 19, 62, 118, 3, 34, 12, 24, 9, 0, 4, 0, 0, 0, 9, 5, 16, 2, ~
## $ OV500K7499 <int> 18, 29, 134, 8, 11, 0, 21, 0, 3, 5, 5, 5, 5, 41, 3, 7, 0, 8~
## $ OV750K9999 <int> 0, 26, 17, 0, 0, 0, 14, 0, 0, 4, 0, 0, 0, 3, 0, 22, 2, 0, 0~
## $ OV1MillUp  <int> 3, 2, 7, 4, 2, 0, 8, 0, 0, 0, 0, 0, 4, 0, 4, 0, 6, 0, 11, 0~
## $ MedValHous <int> 83100, 83400, 137500, 71100, 67000, 73900, 109300, 65600, 5~
## $ GlobalID   <chr> "{4EDC3A23-F380-4AE5-927A-5F1B1688153B}", "{BD7D0544-A999-4~
## $ GDB_GEOMAT <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,~
## $ Shape__Are <dbl> 13848348509, 28404208085, 21168597855, 19883037409, 2392317~
## $ Shape__Len <dbl> 553697.6, 714587.6, 622794.6, 567436.6, 633223.0, 505055.8,~
## $ geometry   <POLYGON [arc_degree]> POLYGON ((-96.27318 42.0472..., POLYGON ((~
## $ Popdensity <dbl> 5.409405e-06, 9.182602e-06, 1.043892e-05, 4.088031e-07, 3.0~
bins <- c(0, 0.00006,20 , 4.482e-06,5.976e-06 , 7.47e-06, Inf)
pal <- colorBin("YlOrRd", domain = countyboundries$Popdensity, bins = bins)

m <- leaflet(countyboundries) %>% 
  addProviderTiles("MapBox", options = providerTileOptions(
    id = "mapbox.light",
    accessToken = Sys.getenv('MAPBOX_ACCESS_TOKEN'))) %>% 
  addPolygons(
    fillColor = ~pal(Popdensity),
    weight = 2,
    opacity = 1,
    color = "white",
    dashArray = "3",
    fillOpacity = 0.7, highlightOptions = highlightOptions(
      weight = 5,
      color = "#666",
      dashArray = "",
      fillOpacity = 0.7,
      bringToFront = TRUE), 
    label = paste0(countyboundries$Popdensity, '\n', countyboundries$NAME10 )) %>% 
  addLegend(pal = pal, values = countyboundries$Popdensity, opacity = 0.7, title = NULL,
            position = "bottomright")


m %>% addTiles()%>% fitBounds(-100.76134, 40.675499, -100.0884, 40.33812) %>%
  addMeasure(
    position = "bottomleft",
    primaryLengthUnit = "meters",
    primaryAreaUnit = "sqmeters",
    activeColor = "#3D535D",
    completedColor = "#7D4479") %>% addTerminator()

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.