Question 49412 in Photoshop Question posted in
The official user guide can be found here.

How to cut a polygon out of an image and move it to another part of the image? – Photoshop

I want to cut a polygon from a photo and move it to another place in the photo and I want to plot the final image with ggplot2.

I use the terra package (feel free to suggest a better approach/method) to convert the photo into a data.frame which is necessary for ggplot2:

# load libraries
library(terra)
library(ggplot2)

# download the cat photo from internet (its an open source photo)
cat_url = "https://images.pexels.com/photos/104827/cat-pet-animal-domestic-104827.jpeg?auto=compress&cs=tinysrgb&w=600"
download.file(url = cat_url, destfile = "cat.jpeg")

# return the full path to the cat photo
cat_path = list.files(pattern = "cat.jpeg", full.names = TRUE) 

# load the cat photo as rast from terra
cat_rast = rast(cat_path)

# convert the rast file into a dataframe containing the pixels in red, green and blue channels
cat_df = as.data.frame(cat_rast, xy = TRUE) # xy = TRUE returns x and y coordinates as 1st and 2nd columns

I can now plot the red channel of the image using ggplot2:

# plot red channel with ggplot2
ggplot(data = cat_df, aes(x, y, fill = cat_1)) + # cat_1 corresponds to the 1st channel in the image, which is red
        geom_raster() +
        coord_fixed(xlim = c(0, 1.5), ylim = c(0, 1.5))

which produces:

enter image description here

What I want to do at this point is to cut a polygon from the left side of the image and move all the pixels contained in the polygon to the right side of the image. I also want to cut a polygon from the bottom and move it up.

Using photoshop:

enter image description here

Here, the drawn "polygon" on the left should then be moved to the right side of the image and the drawn "polygon" on the bottom should be moved to the upper side of the image.

Tags:

2

Answers


  1. 0 
    cat_url = "https://images.pexels.com/photos/104827/cat-pet-animal-domestic-104827.jpeg?auto=compress&cs=tinysrgb&w=600"

library(terra)    
x <- rast(cat_url)
ext(x) <- c(0,1,0,1) # for forward compatibility and generality

    You can draw polygons like this

    #plot(x)
#p <- draw("polygon")

    predefined polygon

     p <- vect("POLYGON ((0.0 0.589041, 0.077283 0.534247, 0.210361 0.510763, 0.363008 0.508806, 0.419762 0.549902, 0.402149 0.48728, 0.327782 0.395303, 0.192748 0.365949, 0.061627 0.373777, 0.0 0.405088, 0.0 0.589041))")

    Crop/mask the image with the polygon and shift it to the right or top

    a <- crop(x, p, mask=TRUE)
r <- res(x)
b <- shift(a, 1, 0)

    Remove the area from the original and merge

    y <- mask(x, p, inverse=TRUE)
z <- merge(b, y)

    Set RGB channels again and plot (here using base-plot)

    RGB(z) <- 1:3
plot(z)

    enter image description here

    Login or Signup to reply.
  2. 0

    If you want to do this all within ggplot, perhaps it is just as easy to select which pixels you want to move and move them. For the curves you have drawn, the pixels are bounded by simple quadratic curves, so you could do:

    cat_rast <- rast(cat_url)

cat_df = as.data.frame(cat_rast, xy = TRUE)
names(cat_df) <- c('x', 'y', 'R', 'G', 'B')

shift1 <- cat_df$y <  0.5 * (abs(cat_df$x-0.1))^1.8 + 0.45 & 
          cat_df$y > cat_df$x^2 + 0.25

shift2 <- cat_df$y < (cat_df$x + 0.2)^4 - 0.2 &
          cat_df$y < (cat_df$x - 1.5)^4 - 0.2

cat_df$x[shift1] <- cat_df$x[shift1] + 1
cat_df$y[shift2] <- cat_df$y[shift2] + 1

ggplot(data = cat_df, aes(x, y, fill = R)) +
  geom_raster() +
  coord_fixed(xlim = c(0, 1.5), ylim = c(0, 1.5))

    enter image description here

    Login or Signup to reply.
Please signup or login to give your own answer.

Back To Top
Search