

R包优雅制作圆形log

R语言数据分析指南

2023-02-18

❝
本节来介绍一个R包「cropcircles」,其中含有一个函数可以用来将矩形图片转化为圆形,更多详细内容请参考作者官方文档，下面小编来简单介绍一下，后代回复「20230218」可以获取本次小编的测试数据
❞

官方文档

❝
https://github.com/doehm/cropcircles
❞

❝
有需要学习数据可视化案例的朋友欢迎购买小编2023的VIP文档，「初始价格依然是99元」随着人数增多后期会调整价格；有需要的朋友欢迎到小编的淘宝店铺「R语言数据分析指南」下单。
付费后小编会邀请分享文档链接，小编每次更新后会同步内容。「期待大家都能真正掌握R语言数据分析及可视化的能力」
❞

淘宝店铺个性化绘图服务

❝
有需要找小编做个性化绘图的朋友欢关注「淘宝店铺(R语言数据分析指南)」 有需求者可咨询下单。
❞

加载R包

library(tidyverse)
# devtools::install_github("doehm/cropcircles")
# install.packages("cropcircles")
library(cropcircles)
library(dplyr)
library(ggimage)
library(magick)

官方示例

img_path <- file.path(system.file(package = "cropcircles"), "images", "walter-jesse.png")
orig <- image_read(img_path)

center <- image_read(circle_crop(img_path, border_size = 4))
left <- image_read(circle_crop(img_path, border_size = 4, just = "left"))

right <- image_read(circle_crop(img_path, border_size = 4, just = "right"))

image_montage(c(orig, center, left, right))

本地案例展示

导入图片

plot <- image_read("1.jpg")

裁剪图片

plot1 <- image_scale(plot, "x500") 

# 导出图片
image_write(plot1, path = "plot1.png", format = "png")

处理为圆形

plot2 <- image_read(circle_crop("plot1.png", border_size = 5,just = "top",border_colour="#788CAE"))

image_write(plot2, path = "plot2.png", format = "png")

❝
使用此函数可以很轻松的制作圆形log，如果结合「magick」使用还有更多有趣的体验；好了本节介绍到此结束，喜欢的观众老爷欢迎分享转发，「当然更推荐大家加入我的VIP交流群」扫描下方二维码加小编微信「付费99元」后邀请进群，「一定让你感受到物超所值」，「添加小编微信请备注来意，以便高效处理」
❞