canvas_strokes绘制油画笔触，R语言aRtsy包生成

canvas_strokes绘制油画笔触，R语言aRtsy包生成艺术

canvas_strokes绘制油画笔触1.jpg canvas_strokes绘制油画笔触2.jpg canvas_strokes绘制油画笔触3.jpg canvas_strokes绘制油画笔触4.jpg

# Thu Sep 02 01:38:20 2021 edit
# 字符编码：UTF-8
# R 版本：R 4.1.1 x64 for window 11
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()

rm(list = ls());gc()
library(aRtsy)#gg生成艺术·
?   canvas_strokes  #   绘制笔触。

set.seed(1)
canvas_strokes(colors = colorPalette('tuscany3'))
# Thu Sep 02 20:10:50 2021 --
set.seed(NULL)

canvas_strokes(
  colors = colorRampPalette(colors = c('#FFCCCC', '#FFFF99'))(50)
  ,neighbors = 10, #@  块在接管颜色时考虑的邻居数。更多的邻居使艺术品褪色。
  p = 0.01, # 在每个块上选择新颜色的概率。更高的概率会给艺术品增加更多的噪音。
  iterations =2, #  艺术品上的迭代次数。更多的迭代会使艺术品褪色。
  width = 500,
  height = 500,
  side = FALSE #  翻转
)

ggplot2::ggsave(filename = 'canvas_strokes绘制油画笔触4.jpg')
# Thu Sep 02 01:51:50 2021 --