R Notebook

str(mymap)

Classes ‘sf’ and 'data.frame':  77 obs. of  15 variables:
 $ COUNTY_FIP: num  35 45 49 51 59 61 27 29 31 9 ...
 $ COUNTY_NO : num  18 23 25 26 30 31 14 15 16 5 ...
 $ MAINTENANC: num  8 6 3 7 6 1 3 3 7 5 ...
 $ COUNTY_NAM: chr  "CRAIG" "ELLIS" "GARVIN" "GRADY" ...
 $ ADT_FACTOR: num  1.02 1.01 1.01 1.02 1.01 1.01 1.03 1.02 1.02 1.01 ...
 $ MAIN_DISTR: num  2520 2190 1875 485 310 ...
 $ PHONE_NO_B: chr  NA NA "(405) 238-2739" NA ...
 $ DESC_LOCAT: chr  NA NA NA NA ...
 $ MSLINK    : num  18 23 25 26 30 31 14 15 16 103 ...
 $ MAPID     : num  101431 101436 101438 101439 101443 ...
 $ LOGIN     : chr  "upln038" "upln038" "upln038" "upln038" ...
 $ CREATION_D: Date, format:  ...
 $ CNTY_SEAT_: num  2520 110 1875 485 310 ...
 $ MUNICIPAL_: num  77550 2800 57550 13950 9850 ...
 $ geometry  :sfc_POLYGON of length 77; first list element: List of 1
  ..$ : num [1:232, 1:2] -95.4 -95.4 -95.4 -95.4 -95.4 ...
  ..- attr(*, "class")= chr  "XY" "POLYGON" "sfg"
 - attr(*, "sf_column")= chr "geometry"
 - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
  ..- attr(*, "names")= chr  "COUNTY_FIP" "COUNTY_NO" "MAINTENANC" "COUNTY_NAM" ...

map_and_data <- full_join(mymap, countyDatabase)

Joining, by = "COUNTY_NAM"

plot(mymap)

plotting the first 9 out of 14 attributes; use max.plot = 14 to plot all