基本功能

library(magick)

## Error in `library()`:
## ! there is no package called 'magick'

frink <- image_read("https://jeroen.github.io/images/frink.png")

## Error in `image_read()`:
## ! could not find function "image_read"

frink

## Error:
## ! object 'frink' not found

image_trim(frink) # 裁剪空白地方

## Error in `image_trim()`:
## ! could not find function "image_trim"

image_scale(frink, "200x200") # resize

## Error in `image_scale()`:
## ! could not find function "image_scale"

image_flip(frink) # 旋转

## Error in `image_flip()`:
## ! could not find function "image_flip"

image_rotate(frink, 45) # 旋转

## Error in `image_rotate()`:
## ! could not find function "image_rotate"

image_rotate(frink, 180) # 旋转

## Error in `image_rotate()`:
## ! could not find function "image_rotate"

image_negate(frink)

## Error in `image_negate()`:
## ! could not find function "image_negate"

frink %>% 
    image_background("green") %>% # 修改背景颜色 
    image_flatten() %>%
    image_border("red", "10x10") # 加边框

## Error in `frink %>% image_background("green") %>% image_flatten() %>% image_border("red",
##     "10x10")`:
## ! could not find function "%>%"

# image_rotate(frink, 45) %>% 
#     image_write("frink-rotated.png")
# 导出图片
image_oilpaint(frink)

## Error in `image_oilpaint()`:
## ! could not find function "image_oilpaint"

image_implode(frink)

## Error in `image_implode()`:
## ! could not find function "image_implode"

image_charcoal(frink) ## <-- result of this is shown

## Error in `image_charcoal()`:
## ! could not find function "image_charcoal"

image_blur(frink)

## Error in `image_blur()`:
## ! could not find function "image_blur"

image_edge(frink)

## Error in `image_edge()`:
## ! could not find function "image_edge"

pipeline

library(magick)
file.path('../','picbackup') %>% 
    list.files(full.names = T) %>% 
    str_subset('reprex') %>% 
    data.table(x=.) %>%
    mutate(x = map(x,image_read)) %>% 
    mutate(x = map(x,~image_scale(.,"1000x1000"))) %>% 
    # resize to fit better
    .$x %>% 
    image_join %>% 
    image_animate(fps=1) %>% 
    image_write(
                file.path(
                    '../','picbackup'
                    ,'reprex201811061210.gif'
                )
                )

image_join可以转换list为c()格式，让image_animate调用。 github

技术：图片编辑与转换

技术系列导航

基本功能

pipeline

技术系列导航

技术：图片编辑与转换

技术 系列导航

基本功能

pipeline

技术 系列导航

技术系列导航

技术系列导航