The extreme points of Japan

A list of the east, west, south and north ends of Japan's territory (including remote islands). The northernmost position is what the government claims.

extreme_points

Format

A four length list consisting of sfc

See also

https://www.gsi.go.jp/KOKUJYOHO/center.htm

Examples

extreme_points
#> $north
#> [[1]]
#> [1] 148.75223  45.55722
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> attr(,"n_empty")
#> [1] 0
#> attr(,"crs")
#> $input
#> [1] "EPSG:6668"
#> 
#> $wkt
#> [1] "GEOGCS[\"JGD2011\",\n    DATUM[\"Japanese_Geodetic_Datum_2011\",\n        SPHEROID[\"GRS 1980\",6378137,298.257222101,\n            AUTHORITY[\"EPSG\",\"7019\"]],\n        AUTHORITY[\"EPSG\",\"1128\"]],\n    PRIMEM[\"Greenwich\",0,\n        AUTHORITY[\"EPSG\",\"8901\"]],\n    UNIT[\"degree\",0.0174532925199433,\n        AUTHORITY[\"EPSG\",\"9122\"]],\n    AUTHORITY[\"EPSG\",\"6668\"]]"
#> 
#> attr(,"class")
#> [1] "crs"
#> attr(,"class")
#> [1] "sfc_POINT" "sfc"      
#> attr(,"precision")
#> [1] 0
#> attr(,"bbox")
#>      xmin      ymin      xmax      ymax 
#> 148.75223  45.55722 148.75223  45.55722 
#> attr(,"class")
#> [1] "bbox"
#> 
#> $east
#> [[1]]
#> [1] 153.98666  24.28306
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> attr(,"n_empty")
#> [1] 0
#> attr(,"crs")
#> $input
#> [1] "EPSG:6668"
#> 
#> $wkt
#> [1] "GEOGCS[\"JGD2011\",\n    DATUM[\"Japanese_Geodetic_Datum_2011\",\n        SPHEROID[\"GRS 1980\",6378137,298.257222101,\n            AUTHORITY[\"EPSG\",\"7019\"]],\n        AUTHORITY[\"EPSG\",\"1128\"]],\n    PRIMEM[\"Greenwich\",0,\n        AUTHORITY[\"EPSG\",\"8901\"]],\n    UNIT[\"degree\",0.0174532925199433,\n        AUTHORITY[\"EPSG\",\"9122\"]],\n    AUTHORITY[\"EPSG\",\"6668\"]]"
#> 
#> attr(,"class")
#> [1] "crs"
#> attr(,"class")
#> [1] "sfc_POINT" "sfc"      
#> attr(,"precision")
#> [1] 0
#> attr(,"bbox")
#>      xmin      ymin      xmax      ymax 
#> 153.98666  24.28306 153.98666  24.28306 
#> attr(,"class")
#> [1] "bbox"
#> 
#> $west
#> [[1]]
#> [1] 122.93250  24.45139
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> attr(,"n_empty")
#> [1] 0
#> attr(,"crs")
#> $input
#> [1] "EPSG:6668"
#> 
#> $wkt
#> [1] "GEOGCS[\"JGD2011\",\n    DATUM[\"Japanese_Geodetic_Datum_2011\",\n        SPHEROID[\"GRS 1980\",6378137,298.257222101,\n            AUTHORITY[\"EPSG\",\"7019\"]],\n        AUTHORITY[\"EPSG\",\"1128\"]],\n    PRIMEM[\"Greenwich\",0,\n        AUTHORITY[\"EPSG\",\"8901\"]],\n    UNIT[\"degree\",0.0174532925199433,\n        AUTHORITY[\"EPSG\",\"9122\"]],\n    AUTHORITY[\"EPSG\",\"6668\"]]"
#> 
#> attr(,"class")
#> [1] "crs"
#> attr(,"class")
#> [1] "sfc_POINT" "sfc"      
#> attr(,"precision")
#> [1] 0
#> attr(,"bbox")
#>      xmin      ymin      xmax      ymax 
#> 122.93250  24.45139 122.93250  24.45139 
#> attr(,"class")
#> [1] "bbox"
#> 
#> $south
#> [[1]]
#> [1] 136.06972  20.42528
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> attr(,"n_empty")
#> [1] 0
#> attr(,"crs")
#> $input
#> [1] "EPSG:6668"
#> 
#> $wkt
#> [1] "GEOGCS[\"JGD2011\",\n    DATUM[\"Japanese_Geodetic_Datum_2011\",\n        SPHEROID[\"GRS 1980\",6378137,298.257222101,\n            AUTHORITY[\"EPSG\",\"7019\"]],\n        AUTHORITY[\"EPSG\",\"1128\"]],\n    PRIMEM[\"Greenwich\",0,\n        AUTHORITY[\"EPSG\",\"8901\"]],\n    UNIT[\"degree\",0.0174532925199433,\n        AUTHORITY[\"EPSG\",\"9122\"]],\n    AUTHORITY[\"EPSG\",\"6668\"]]"
#> 
#> attr(,"class")
#> [1] "crs"
#> attr(,"class")
#> [1] "sfc_POINT" "sfc"      
#> attr(,"precision")
#> [1] 0
#> attr(,"bbox")
#>      xmin      ymin      xmax      ymax 
#> 136.06972  20.42528 136.06972  20.42528 
#> attr(,"class")
#> [1] "bbox"
#> 

extreme_points$east
#> [[1]]
#> [1] 153.98666  24.28306
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> attr(,"n_empty")
#> [1] 0
#> attr(,"crs")
#> $input
#> [1] "EPSG:6668"
#> 
#> $wkt
#> [1] "GEOGCS[\"JGD2011\",\n    DATUM[\"Japanese_Geodetic_Datum_2011\",\n        SPHEROID[\"GRS 1980\",6378137,298.257222101,\n            AUTHORITY[\"EPSG\",\"7019\"]],\n        AUTHORITY[\"EPSG\",\"1128\"]],\n    PRIMEM[\"Greenwich\",0,\n        AUTHORITY[\"EPSG\",\"8901\"]],\n    UNIT[\"degree\",0.0174532925199433,\n        AUTHORITY[\"EPSG\",\"9122\"]],\n    AUTHORITY[\"EPSG\",\"6668\"]]"
#> 
#> attr(,"class")
#> [1] "crs"
#> attr(,"class")
#> [1] "sfc_POINT" "sfc"      
#> attr(,"precision")
#> [1] 0
#> attr(,"bbox")
#>      xmin      ymin      xmax      ymax 
#> 153.98666  24.28306 153.98666  24.28306 
#> attr(,"class")
#> [1] "bbox"

require("purrr")
#> Loading required package: purrr
extreme_points %>%
  reduce(c)
#> [[1]]
#> [1] 148.75223  45.55722
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> [[2]]
#> [1] 153.98666  24.28306
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> [[3]]
#> [1] 122.93250  24.45139
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#> 
#> [[4]]
#> [1] 136.06972  20.42528
#> attr(,"class")
#> [1] "XY"    "POINT" "sfg"  
#>