17 Jan 2024

geocompx · Jan 19, 2024 · e1e9ed6 · e1e9ed6
1 parent 5b374e0
commit e1e9ed6
Show file tree

Hide file tree

Showing 4 changed files with 239 additions and 257 deletions.
diff --git a/05-geometry-operations-ja.Rmd b/05-geometry-operations-ja.Rmd
@@ -529,17 +529,17 @@ polyg = st_cast(multipoint, "POLYGON")
 ```
 
 ```{r single-cast, echo = FALSE, fig.cap="多点ジオメトリからキャストされた線とポリゴンの例。", warning=FALSE, fig.asp=0.3, fig.scap="Examples of casting operations."}
-p_sc1 = tm_shape(st_sfc(multipoint)) + tm_symbols(shape = 1, 
-                                                  col = "black", 
+p_sc1 = tm_shape(st_sfc(multipoint, crs = "+proj=merc")) + tm_symbols(shape = 1,
+                                                  col = "black",
                                                   size = 0.5) +
   tm_title("複合点") +
-  tm_layout(inner.margins = c(0.15, 0.05, 0.15, 0.05), fontfamily = "HiraginoSans-W3")
-p_sc2 = tm_shape(st_sfc(linestring)) + tm_lines() +
-  tm_title("線") 
-+ tm_layout(inner.margins = c(0.15, 0.05, 0.15, 0.05), fontfamily = "HiraginoSans-W3")
-p_sc3 = tm_shape(st_sfc(polyg)) + tm_polygons(border.col = "black") +
-  tm_title("ポリゴン") 
-+ tm_layout(inner.margins = c(0.15, 0.05, 0.15, 0.05), fontfamily = "HiraginoSans-W3")
+  tm_layout(inner.margins = c(0.15, 0.05, 0.15, 0.05))
+p_sc2 = tm_shape(st_sfc(linestring, crs = "+proj=merc")) + tm_lines() +
+  tm_title("複合線") +
+  tm_layout(inner.margins = c(0.15, 0.05, 0.15, 0.05))
+p_sc3 = tm_shape(st_sfc(polyg, crs = "+proj=merc")) + tm_polygons(border.col = "black") +
+  tm_title("ポリゴン") +
+  tm_layout(inner.margins = c(0.15, 0.05, 0.15, 0.05))
 tmap_arrange(p_sc1, p_sc2, p_sc3, ncol = 3)
 ```