tmap
tmap copied to clipboard
Published
20 hours ago •
r-tmap
r-tmap
remove z and m dimensions in sf objects in view mode
tm_shape(df) +
tm_polygons()
breaks in view mode, due to the existence of Z
df <- structure(list(IDN4 = c(500011, 500020, 500046, 500062, 500071,
500101, 500127, 500135, 500151, 500160), DOW = structure(c(19416,
19416, 19416, 19416, 19416, 19416, 19416, 19416, 19416, 19416
), class = "Date"), AUT = c("GKÚ", "GKÚ", "GKÚ", "GKÚ", "GKÚ",
"GKÚ", "GKÚ", "GKÚ", "GKÚ", "GKÚ"), ACH = c("Geodetická (< 10 cm)",
"Geodetická (< 10 cm)", "Geodetická (< 10 cm)", "Geodetická (< 10 cm)",
"Geodetická (< 10 cm)", "Geodetická (< 10 cm)", "Geodetická (< 10 cm)",
"Geodetická (< 10 cm)", "Geodetická (< 10 cm)", "Geodetická (< 10 cm)"
), SOI = c("Overený spracovaním", "Overený spracovaním",
"Overený spracovaním", "Overený spracovaním", "Overený spracovaním",
"Overený spracovaním", "Overený spracovaním", "Overený spracovaním",
"Overený spracovaním", "Overený spracovaním"), FACC = c("FA004",
"FA004", "FA004", "FA004", "FA004", "FA004", "FA004", "FA004",
"FA004", "FA004"), NM4 = c("Nitra", "Alekšince", "Báb", "Beladice",
"Branč", "Čakajovce", "Čaradice", "Čeľadice", "Čierne Kľačany",
"Čifáre"), IDN3 = c(403L, 403L, 403L, 407L, 403L, 403L, 407L,
403L, 407L, 403L), NM3 = c("Nitra", "Nitra", "Nitra", "Zlaté Moravce",
"Nitra", "Nitra", "Zlaté Moravce", "Nitra", "Zlaté Moravce",
"Nitra"), IDN2 = c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), NM2 = c("Nitriansky",
"Nitriansky", "Nitriansky", "Nitriansky", "Nitriansky", "Nitriansky",
"Nitriansky", "Nitriansky", "Nitriansky", "Nitriansky"), VYMERA = c(100478688,
15072464, 20091033, 22408290, 13808400, 5777118, 17849791, 10471061,
10976549, 15339459), NUTS1 = c("Slovensko", "Slovensko", "Slovensko",
"Slovensko", "Slovensko", "Slovensko", "Slovensko", "Slovensko",
"Slovensko", "Slovensko"), NUTS1_CODE = c("SK0", "SK0", "SK0",
"SK0", "SK0", "SK0", "SK0", "SK0", "SK0", "SK0"), NUTS2 = c("Západné Slovensko",
"Západné Slovensko", "Západné Slovensko", "Západné Slovensko",
"Západné Slovensko", "Západné Slovensko", "Západné Slovensko",
"Západné Slovensko", "Západné Slovensko", "Západné Slovensko"
), NUTS2_CODE = c("SK02", "SK02", "SK02", "SK02", "SK02", "SK02",
"SK02", "SK02", "SK02", "SK02"), NUTS3 = c("Nitriansky kraj",
"Nitriansky kraj", "Nitriansky kraj", "Nitriansky kraj", "Nitriansky kraj",
"Nitriansky kraj", "Nitriansky kraj", "Nitriansky kraj", "Nitriansky kraj",
"Nitriansky kraj"), NUTS3_CODE = c("SK023", "SK023", "SK023",
"SK023", "SK023", "SK023", "SK023", "SK023", "SK023", "SK023"
), LAU1 = c("Nitra", "Nitra", "Nitra", "Zlaté Moravce", "Nitra",
"Nitra", "Zlaté Moravce", "Nitra", "Zlaté Moravce", "Nitra"
), LAU1_CODE = c("SK0233", "SK0233", "SK0233", "SK0237", "SK0233",
"SK0233", "SK0237", "SK0233", "SK0237", "SK0233"), LAU2 = c("Nitra",
"Alekšince", "Báb", "Beladice", "Branč", "Čakajovce", "Čaradice",
"Čeľadice", "Čierne Kľačany", "Čifáre"), LAU2_CODE = c("SK0233500011",
"SK0233500020", "SK0233500046", "SK0237500062", "SK0233500071",
"SK0233500101", "SK0237500127", "SK0233500135", "SK0237500151",
"SK0233500160"), Shape_Leng = c(67727.0166851, 16689.388179,
22389.2600509, 26859.5948413, 16649.8466112, 13215.1493172, 23943.5472963,
21028.7124844, 25218.6952147, 18170.1459739), Shape_Area = c(100446269.853,
15066660.5758, 20090899.055, 22392703.2359, 13805914.6517, 5772618.62805,
17828601.6083, 10468416.7162, 10976300.9598, 15335045.0249),
artur_hlasy = c(499, 6, 1, 8, 11, 3, 8, 1, 3, 2), smer_hlasy = c(11356,
384, 257, 346, 287, 203, 75, 184, 223, 95), spolu_hlasy = c(44595,
976, 690, 976, 1250, 656, 287, 626, 725, 311), nazov_obce = c("Nitra",
"Alekšince", "Báb", "Beladice", "Branč", "Čakajovce",
"Čaradice", "Čeľadice", "Čierne Kľačany", "Čifáre"
), `Obce - % z hlasov Smeru` = c(4.39415287072913, 1.5625,
0.389105058365759, 2.3121387283237, 3.83275261324042, 1.47783251231527,
10.6666666666667, 0.543478260869565, 1.34529147982063, 2.10526315789474
), perc_z_celk = c(1.11895952461038, 0.614754098360656, 0.144927536231884,
0.819672131147541, 0.88, 0.457317073170732, 2.78745644599303,
0.159744408945687, 0.413793103448276, 0.643086816720257),
geometry = structure(list(structure(list(structure(c(-498629.449999999,
-498048.98, -494227.739999998, -493383.469999999, -496328.27,
-497493.350000001, -502306.539999999, -500525.760000002,
-502075.920000002, -505330.010000002, -506200.739999998,
-505398.809999999, -501663.84, -502231.32, -498629.449999999,
-1261094.88, -1266627.62, -1270107.62, -1274315.16, -1276713.94,
-1275191.08, -1277153.54, -1275684.11, -1272650.22, -1273624.67,
-1271694.35, -1268352.1, -1266412.88, -1263589.78, -1261094.88,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11
), dim = c(15L, 3L))), class = c("XYZ", "POLYGON", "sfg")),
structure(list(structure(c(-510008.809999999, -506847.140000001,
-506960.25, -509139.899999999, -511191.809999999, -510008.809999999,
-1260896.13, -1262631.46, -1265258.32, -1266033.43, -1262822.92,
-1260896.13, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11), dim = c(6L, 3L))), class = c("XYZ",
"POLYGON", "sfg")), structure(list(structure(c(-513284.399999999,
-513238.780000001, -518287.059999999, -517207.18, -513284.399999999,
-1267131.57, -1271945.61, -1269822.14, -1266669.9, -1267131.57,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11), dim = c(5L,
3L))), class = c("XYZ", "POLYGON", "sfg")), structure(list(
structure(c(-482696.539999999, -481835.899999999,
-486226.609999999, -487522.190000001, -483759.16,
-483110.489999998, -482696.539999999, -1265403.24,
-1269365.48, -1269888.58, -1266891.92, -1265240.87,
-1263167.83, -1265403.24, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11
), dim = c(7L, 3L))), class = c("XYZ", "POLYGON",
"sfg")), structure(list(structure(c(-495055.670000002,
-494129.190000001, -497407.920000002, -498676.23, -495055.670000002,
-1278249.02, -1282001.87, -1282543.52, -1279721.43, -1278249.02,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11), dim = c(5L,
3L))), class = c("XYZ", "POLYGON", "sfg")), structure(list(
structure(c(-502920.25, -500513.359999999, -501566.030000001,
-503777.579999998, -502920.25, -1259826.39, -1263138.34,
-1263824.69, -1261710.66, -1259826.39, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11), dim = c(5L, 3L))), class = c("XYZ",
"POLYGON", "sfg")), structure(list(structure(c(-466137.449999999,
-467142.949999999, -468291.940000001, -470105.649999999,
-469616, -466137.449999999, -1260687.67, -1269124.75,
-1269617.85, -1268588.43, -1263882.6, -1260687.67, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11), dim = c(6L,
3L))), class = c("XYZ", "POLYGON", "sfg")), structure(list(
structure(c(-488913.920000002, -486487.309999999,
-487145.789999999, -486755.780000001, -488279.399999999,
-490051.370000001, -488913.920000002, -1266953.15,
-1268456.08, -1273031.42, -1270189.48, -1270891.65,
-1268991.27, -1266953.15, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11
), dim = c(7L, 3L))), class = c("XYZ", "POLYGON",
"sfg")), structure(list(structure(c(-469561.289999999,
-471017.870000001, -476398.670000002, -471787.989999998,
-469561.289999999, -1263760.39, -1268178.73, -1267177.63,
-1266011.2, -1263760.39, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11
), dim = c(5L, 3L))), class = c("XYZ", "POLYGON", "sfg"
)), structure(list(structure(c(-475985.760000002, -474238.289999999,
-478201.809999999, -478800.379999999, -475985.760000002,
-1276157.74, -1279461.8, -1281745.46, -1277862.82, -1276157.74,
-1.45519152283669e-11, -1.45519152283669e-11, -1.45519152283669e-11,
-1.45519152283669e-11, -1.45519152283669e-11), dim = c(5L,
3L))), class = c("XYZ", "POLYGON", "sfg"))), class = c("sfc_POLYGON",
"sfc"), precision = 0, bbox = structure(c(xmin = -518287.059999999,
ymin = -1282543.52, xmax = -466137.449999999, ymax = -1259826.39
), class = "bbox"), z_range = structure(c(zmin = -1.45519152283669e-11,
zmax = -1.45519152283669e-11), class = "z_range"), crs = structure(list(
input = "S-JTSK / Krovak East North + Baltic 1957 height",
wkt = "COMPOUNDCRS[\"S-JTSK / Krovak East North + Baltic 1957 height\",\n PROJCRS[\"S-JTSK / Krovak East North\",\n BASEGEOGCRS[\"S-JTSK\",\n DATUM[\"System of the Unified Trigonometrical Cadastral Network\",\n ELLIPSOID[\"Bessel 1841\",6377397.155,299.1528128,\n LENGTHUNIT[\"metre\",1]]],\n PRIMEM[\"Greenwich\",0,\n ANGLEUNIT[\"degree\",0.0174532925199433]],\n ID[\"EPSG\",4156]],\n CONVERSION[\"Krovak East North (Greenwich)\",\n METHOD[\"Krovak (North Orientated)\",\n ID[\"EPSG\",1041]],\n PARAMETER[\"Latitude of projection centre\",49.5,\n ANGLEUNIT[\"degree\",0.0174532925199433],\n ID[\"EPSG\",8811]],\n PARAMETER[\"Longitude of origin\",24.8333333333333,\n ANGLEUNIT[\"degree\",0.0174532925199433],\n ID[\"EPSG\",8833]],\n PARAMETER[\"Co-latitude of cone axis\",30.2881397527778,\n ANGLEUNIT[\"degree\",0.0174532925199433],\n ID[\"EPSG\",1036]],\n PARAMETER[\"Latitude of pseudo standard parallel\",78.5,\n ANGLEUNIT[\"degree\",0.0174532925199433],\n ID[\"EPSG\",8818]],\n PARAMETER[\"Scale factor on pseudo standard parallel\",0.9999,\n SCALEUNIT[\"unity\",1],\n ID[\"EPSG\",8819]],\n PARAMETER[\"False easting\",0,\n LENGTHUNIT[\"metre\",1],\n ID[\"EPSG\",8806]],\n PARAMETER[\"False northing\",0,\n LENGTHUNIT[\"metre\",1],\n ID[\"EPSG\",8807]]],\n CS[Cartesian,2],\n AXIS[\"easting (X)\",east,\n ORDER[1],\n LENGTHUNIT[\"metre\",1]],\n AXIS[\"northing (Y)\",north,\n ORDER[2],\n LENGTHUNIT[\"metre\",1]],\n USAGE[\n SCOPE[\"GIS.\"],\n AREA[\"Czechia; Slovakia.\"],\n BBOX[47.73,12.09,51.06,22.56]],\n ID[\"EPSG\",5514]],\n VERTCRS[\"Baltic 1957 height\",\n VDATUM[\"Baltic 1957\"],\n CS[vertical,1],\n AXIS[\"gravity-related height (H)\",up,\n LENGTHUNIT[\"metre\",1]],\n USAGE[\n SCOPE[\"Geodesy, engineering survey, topographic mapping.\"],\n AREA[\"Czechia; Slovakia.\"],\n BBOX[47.73,12.09,51.06,22.56]],\n ID[\"EPSG\",8357]]]"), class = "crs"), n_empty = 0L)), sf_column = "geometry", agr = structure(c(IDN4 = NA_integer_,
DOW = NA_integer_, AUT = NA_integer_, ACH = NA_integer_, SOI = NA_integer_,
FACC = NA_integer_, NM4 = NA_integer_, IDN3 = NA_integer_, NM3 = NA_integer_,
IDN2 = NA_integer_, NM2 = NA_integer_, VYMERA = NA_integer_,
NUTS1 = NA_integer_, NUTS1_CODE = NA_integer_, NUTS2 = NA_integer_,
NUTS2_CODE = NA_integer_, NUTS3 = NA_integer_, NUTS3_CODE = NA_integer_,
LAU1 = NA_integer_, LAU1_CODE = NA_integer_, LAU2 = NA_integer_,
LAU2_CODE = NA_integer_, Shape_Leng = NA_integer_, Shape_Area = NA_integer_,
artur_hlasy = NA_integer_, smer_hlasy = NA_integer_, spolu_hlasy = NA_integer_,
nazov_obce = NA_integer_, `Obce - % z hlasov Smeru` = NA_integer_,
perc_z_celk = NA_integer_), levels = c("constant", "aggregate",
"identity"), class = "factor"), row.names = c(NA, 10L), class = c("sf",
"data.frame"))
