Crop an image into a circle with a transparent background.

The purpose of this package is to provide a simple and straight forward way to circle crop an image, with a transparent background and plot it with ggimage, ggpath, or include in tables using e.g. gt, reactable, etc. There are a few ways to do this, but this package intends to make it as simplified as possible.

From CRAN

install.packages("cropcircles")

Or Git

devtools::install_github("doehm/cropcircles")

The main function circle_crop takes a vector of image paths, either local or URL links, crops the image and returns the path. The path of the cropped images can be provided or if left blank it will save them to a temp location which is cleared when the session ends.

library(cropcircles)
library(dplyr)
library(ggimage)

# breaking bad images
x <- c(1, 3, 9, 8)
images <- glue::glue("https://openpsychometrics.org/tests/characters/test-resources/pics/BB/{x}.jpg")

df <- tibble(y = 1:4, images = images) |> 
  mutate(images_circle = circle_crop(images))

df |> 
  ggplot() +
  geom_image(aes(1.5, y, image = images), size = 0.15) +
  geom_image(aes(3.5, y, image = images_circle), size = 0.15) +
  xlim(0, 5) +
  ylim(0, 5) +
  coord_fixed()

The function can take an image with any dimensions. It will circle crop the image from the center with a diameter of the smallest dimension.

Also check out hex_crop and heart_crop.