前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >[R包推荐] polyclid优雅的绘制多边形

[R包推荐] polyclid优雅的绘制多边形

作者头像
R语言数据分析指南
发布2022-12-20 19:59:32
3350
发布2022-12-20 19:59:32
举报

❝本节来介绍一款R包「polyclid」用来绘制多边形,原文文档链接见下方,代码过程很是简洁各位观众老爷可以去参考官方文档了解具体细节。当然难点也许在于R包的安装,安装编译过程较长各位耐心等待。

原文文档

❝https://polyclid.r-euclid.com/index.html❞

安装R包

代码语言:javascript
复制
devtools::install_github("thomasp85/polyclid")
library(polyclid)
library(tidyverse)

构建坐标系

代码语言:javascript
复制
p <- polygon(
  x = c(0, 2, 2, -1, -0.25, 1, 1, 1.5, 1.2, -1, -3),
  y = c(0, 0, 1.5, 1.5, 1, 0.5, 1.25, 0.75, 0.75, 0.5, -1),
  id = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2),
  hole_id = c(1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1))

案例一

代码语言:javascript
复制
plot(p, col = c("steelblue", "forestgreen"))

案例二

代码语言:javascript
复制
hole(p[2]) <- circle(point(-0.8, 0.2), 0.05)
plot(p, col = c("steelblue", "forestgreen"))

案例三

代码语言:javascript
复制
p_symdif <- symmetric_difference(p)
plot(p_symdif, col = "steelblue")

案例四

代码语言:javascript
复制
circles <- circle(point(c(1, -2), c(0, 0)), 0.5)
p_union <- union(p, circles)
plot(p_union, col = c("steelblue", "forestgreen"))
本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2022-12-08,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 R语言数据分析指南 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 原文文档
  • 安装R包
  • 构建坐标系
  • 案例一
  • 案例二
  • 案例三
  • 案例四
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档