https://github.com/stscl/geocn_logo
Logo for R package geocn
https://github.com/stscl/geocn_logo
Last synced: about 2 months ago
JSON representation
Logo for R package geocn
- Host: GitHub
- URL: https://github.com/stscl/geocn_logo
- Owner: stscl
- Created: 2024-08-02T17:32:13.000Z (almost 2 years ago)
- Default Branch: main
- Last Pushed: 2024-10-06T07:12:49.000Z (over 1 year ago)
- Last Synced: 2025-01-11T14:18:44.503Z (over 1 year ago)
- Language: R
- Size: 759 KB
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: readme.md
Awesome Lists containing this project
README
``` r
# devtools::install('SpatLyu/geocn')
library(sf)
library(ggplot2)
library(geocn)
province = load_cn_province()
tenline = load_cn_tenline()
cn_border = load_cn_border()
load_cn_landcoast() |>
st_centroid() |>
st_coordinates() -> center
lon = center[1]
lat = center[2]
ortho= paste0('+proj=ortho +lat_0=', lat, ' +lon_0=', lon,
' +x_0=0 +y_0=0 +a=6371000 +b=6371000 +units=m +no_defs')
circle = suppressMessages(
sf::st_point(x = c(0, 0)) %>%
sf::st_buffer(dist = 3.8e6) %>%
sf::st_sfc(crs = ortho))
world = load_world_coastline() |>
st_transform(st_crs(ortho)) |>
st_intersection(circle)
ggplot() +
geom_sf(data = circle,colour="black",fill="transparent") +
geom_sf(data = world,fill="grey80",colour="grey80") +
geom_sf(data = province,fill = "transparent",size=.1,color="grey") +
geom_sf(data = cn_border,size = 1.2,color="red") +
ggfx::with_outer_glow(geom_sf(data = cn_border,
lwd = .3,
color = 'red'),
colour = "#9d98b7",
sigma = 5,
expand = 3.5) +
coord_sf(crs = ortho) +
theme_void() -> cn
ggsave(filename = './cn.png',plot = cn,
dpi = 120,bg = 'transparent',
width = 3.2,height = 3.2)
library(showtext)
showtext_auto(enable = TRUE)
font_add("ShineTypewriter", regular = "./ShineTypewriter-lgwzd.ttf")
library(hexSticker)
library(magick)
sticker(
subplot = "./cn.png",
s_x = .995,
s_y = 1.02,
s_width = .75,
s_height = .75,
package = "geocn",
p_family = "ShineTypewriter",
p_size = 25,
p_color = ggplot2::alpha("#3e3221",.9),
p_x = 1.02,
p_y = 1.01,
dpi = 300,
asp = 1,
h_size = 1.55,
h_color = ggplot2::alpha("#3e3221",.75),
h_fill = '#ffffff',
white_around_sticker = F,
url = "https://stscl.github.io/geocn",
u_color = ggplot2::alpha("#3e3221",1),
u_size = 5.25,
filename = "geocn_logo.png"
)
image_read('./geocn_logo.png') |>
image_resize("240x278")|>
image_write('./geocn_logo.png')
```
