R help - Sep 2018 - Help with simple Map of US states to predefined regions

Hi I have this df with three columns ProviderState, ProviderStateCode,
ProviderRegion

I have reviewed fiftystater pkg and map pkg but not sure how to simply take
these three columns and plot a simple 5 color map based on the Region the state
is in?

Do I need all the longitude and latitude data or can this be done with what I
have?

https://cran.r-project.org/web/packages/fiftystater/vignettes/fiftystater.html
https://cran.r-project.org/web/packages/maps/maps.pdf


str(Map1)
Classes 'tbl_df', 'tbl' and 'data.frame':    54 obs. of 
3 variables:
$ ProviderState    : chr  "ALASKA" "ALABAMA"
"ARKANSAS" "ARIZONA" ...
$ ProviderStateCode: chr  "AK" "AL" "AR"
"AZ" ...
$ ProviderRegion   : chr  "Pacific" "South"
"South" "Pacific" ...
- attr(*, "spec")=List of 2
  ..$ cols   :List of 3
  .. ..$ ProviderState    : list()
  .. .. ..- attr(*, "class")= chr  "collector_character"
"collector"
  .. ..$ ProviderStateCode: list()
  .. .. ..- attr(*, "class")= chr  "collector_character"
"collector"
  .. ..$ ProviderRegion   : list()
  .. .. ..- attr(*, "class")= chr  "collector_character"
"collector"
  ..$ default: list()
  .. ..- attr(*, "class")= chr  "collector_guess"
"collector"
  ..- attr(*, "class")= chr "col_spec"

dput(Map1)
structure(list(ProviderState = c("ALASKA", "ALABAMA",
"ARKANSAS",
"ARIZONA", "CALIFORNIA", "COLORADO",
"CONNECTICUT", "DISTRICT OF COLUMBIA",
"DELAWARE", "FLORIDA", "GEORGIA",
"GUAM", "HAWAII", "IOWA", "IDAHO",
"ILLINOIS", "INDIANA", "KANSAS",
"KENTUCKY", "LOUISIANA", "MASSACHUSETTS",
"MARYLAND", "MAINE", "MICHIGAN",
"MINNESOTA", "MISSOURI", "MISSISSIPPI",
"MONTANA", "NORTH CAROLINA", "NORTH DAKOTA",
"NEBRASKA", "NEW HAMPSHIRE",
"NEW JERSEY", "NEW MEXICO", "NEVADA", "NEW
YORK", "OHIO", "OKLAHOMA",
"OREGON", "PENNSYLVANIA", "PUERTO RICO",
"RHODE ISLAND", "SOUTH CAROLINA",
"SOUTH DAKOTA", "TENNESSEE", "TEXAS",
"UTAH", "VIRGINIA", "VIRGIN ISLANDS",
"VERMONT", "WASHINGTON", "WISCONSIN", "WEST
VIRGINIA", "WYOMING"
), ProviderStateCode = c("AK", "AL", "AR",
"AZ", "CA", "CO",
"CT", "DC", "DE", "FL", "GA",
"GU", "HI", "IA", "ID", "IL",
"IN",
"KS", "KY", "LA", "MA", "MD",
"ME", "MI", "MN", "MO", "MS",
"MT",
"NC", "ND", "NE", "NH", "NJ",
"NM", "NV", "NY", "OH", "OK",
"OR",
"PA", "PR", "RI", "SC", "SD",
"TN", "TX", "UT", "VA", "VI",
"VT",
"WA", "WI", "WV", "WY"), ProviderRegion
= c("Pacific", "South",
"South", "Pacific", "Pacific",
"Frontier", "Northeast", "Northeast",
"Northeast", "South", "South",
"Pacific", "Pacific", "Midwest",
"Frontier", "Midwest", "Midwest",
"Frontier", "South", "South",
"Northeast", "Northeast", "Northeast",
"Midwest", "Midwest",
"Midwest", "South", "Frontier", "South",
"Midwest", "Midwest",
"Northeast", "Northeast", "Frontier",
"Pacific", "Northeast",
"Midwest", "Frontier", "Pacific",
"Northeast", "Northeast", "Northeast",
"South", "Midwest", "South", "Frontier",
"Frontier", "South",
"Northeast", "Northeast", "Pacific",
"Midwest", "South", "Frontier"
)), row.names = c(NA, -54L), class = c("tbl_df", "tbl",
"data.frame"
), spec = structure(list(cols = list(ProviderState = structure(list(), class =
c("collector_character",
"collector")), ProviderStateCode = structure(list(), class =
c("collector_character",
"collector")), ProviderRegion = structure(list(), class =
c("collector_character",
"collector"))), default = structure(list(), class =
c("collector_guess",
"collector"))), class = "col_spec"))

Thank you for any suggestions.

WHP

Confidentiality Notice This message is sent from Zelis. ...{{dropped:15}}