Utah counties grid

[raogeorge]

Grid data:

NAME,row,col
Box Elder ,1,1
Cache ,1,2
Rich ,1,3
Weber,2,2
Morgan ,2,3
Daggett ,3,5
Davis ,3,2
Summit ,3,3
Uintah ,4,5
Duchesne ,4,4
Wasatch ,4,3
Tooele ,4,1
Salt Lake ,4,2
Utah ,5,2
Juab ,5,1
Carbon ,5,4
Millard ,6,1
Sanpete ,6,2
Emery ,6,4
Grand ,6,5
Sevier ,7,2
Wayne ,8,4
Beaver ,8,1
Piute ,8,2
Garfield ,9,3
Iron ,9,1
San Juan ,10,5
Washington ,10,1
Kane ,10,3

us_ut_counties_grid1 <- data.frame( row = c(1, 1, 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6, 7, 8, 8, 8, 9, 9, 10, 10, 10), col = c(1, 2, 3, 2, 3, 5, 2, 3, 5, 4, 3, 1, 2, 2, 1, 4, 1, 2, 4, 5, 2, 4, 1, 2, 3, 1, 5, 1, 3), code = c("BOX","CAC","RIC","WEB","MOR","DAG","DAV","SUM","UIN","DUC","WST","TOO","SAL", "UTA", "JUA", "CAR", "MIL", "SNP", "EME", "GRA", "SEV", "WAY", "BEA", "PIU", "GAR", "IRO", "SNJ", "WSH", "KAN"), name = c("Box Elder", "Cache", "Rich", "Weber", "Morgan", "Daggett", "Davis", "Summit", "Uintah", "Duchesne", "Wasatch", "Tooele", "Salt Lake", "Utah", "Juab", "Carbon", "Millard", "Sanpete", "Emery", "Grand", "Sevier", "Wayne", "Beaver", "Piute", "Garfield", "Iron", "San Juan", "Washington", "Kane"), stringsAsFactors = FALSE ) geofacet::grid_preview(us_ut_counties_grid1)