Rで解析:Rでアート「aRtsy」パッケージ

Rでアートする「aRtsy」パッケージの紹介です。変数を少し変えるだけで、出力されるアートが大きく変わります。アート専用のコマンドが数多く収録されています。いくつかのコマンドと出力アートを紹介します。

パッケージバージョンは0.1.6。windows10のR version 4.1.2で確認しています。

パッケージのインストール

下記コマンドを実行してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("aRtsy")

実行コマンドの紹介

詳細はコマンド、パッケージのヘルプか以下に紹介するオフィシャルサイトを確認してください。

aRtsy: Generative Art with R and ggplot2

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("aRtsy")

#&#25551;&#20889;&#12375;&#12383;&#12461;&#12515;&#12531;&#12496;&#12473;&#12434;png&#12391;&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;&#20445;&#23384;:saveCanvas&#12467;&#12510;&#12531;&#12489;
#width,height:&#21336;&#20301;&#12399;cm
saveCanvas(karadawork, filename = "karadawork.png", dpi = 300,
           width = 7, height = 7)

#&#12459;&#12521;&#12540;&#12497;&#12524;&#12483;&#12488;&#12398;&#20316;&#25104;:colorPalette&#12467;&#12510;&#12531;&#12489;
colorPalette("boogy3", 5)

#&#12473;&#12488;&#12525;&#12540;&#12463;&#12391;&#25551;&#20889;:canvas_strokes&#12467;&#12510;&#12531;&#12489;
#&#25968;&#20516;&#12364;&#22823;&#12365;&#12356;&#12411;&#12393;&#12412;&#12420;&#12369;&#12427;:neighbors&#12458;&#12503;&#12471;&#12519;&#12531;
#&#25968;&#20516;&#12364;&#22823;&#12365;&#12356;&#12411;&#12393;&#12494;&#12452;&#12474;&#12434;&#30330;&#29983;:p&#12458;&#12503;&#12471;&#12519;&#12531;
#&#25968;&#20516;&#12364;&#22823;&#12365;&#12356;&#12411;&#12393;&#12501;&#12455;&#12540;&#12489;&#12434;&#30330;&#29983;:iterations&#12458;&#12503;&#12471;&#12519;&#12531;
#&#34892;&#65295;&#21015;&#12354;&#12383;&#12426;&#12398;&#12500;&#12463;&#12475;&#12523;&#25968;&#12434;&#25351;&#23450;:resolution&#12458;&#12503;&#12471;&#12519;&#12531;
Strokes <- canvas_strokes(colors = c("#deb7a0", "#e1e6ea", "#4b61ba"),
                          neighbors = 3, p = 0.01, iterations = 1,
                          resolution = 500)
saveCanvas(Strokes, filename = "Strokes.png", dpi = 300,
           width = 7, height = 7)

###&#20197;&#38477;,tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#21033;&#29992;&#12375;&#12390;&#12467;&#12510;&#12531;&#12489;&#12434;&#20966;&#29702;#####
library("tidyverse")

#&#12521;&#12531;&#12464;&#12488;&#12531;&#12398;&#12450;&#12522;&#12434;&#20351;&#29992;&#12375;&#12390;&#25551;&#20889;:canvas_ant&#12467;&#12510;&#12531;&#12489;
#&#21453;&#24489;&#22238;&#25968;&#12434;&#25351;&#23450;:iterations&#12458;&#12503;&#12471;&#12519;&#12531;
canvas_ant(colors = c("#deb7a0", "#e1e6ea", "#4b61ba"), background = "#e1e6ea",
           iterations = 50000, resolution = 500) %>%
  saveCanvas(filename = "canvas_ant.png", dpi = 300,
             width = 7, height = 7)

#canvas_cobweb&#12467;&#12510;&#12531;&#12489;:&#27880;&#24847;,&#20966;&#29702;&#12395;&#26178;&#38291;&#12364;&#12363;&#12363;&#12426;&#12414;&#12377;
canvas_cobweb(colors = c("#deb7a0", "#e1e6ea", "#4b61ba"), background = "#e1e6ea",
              lines = 300, iterations = 100) %>%
  saveCanvas(filename = "canvas_cobweb.png", dpi = 300,
             width = 7, height = 7)

#Collatz&#20104;&#24819;&#12434;&#20351;&#29992;&#12375;&#12390;&#25551;&#20889;:canvas_collatz&#12467;&#12510;&#12531;&#12489;
#&#12459;&#12540;&#12502;&#24230;&#21512;&#12356;&#12434;&#35519;&#25972;:angle.even,angle.odd&#12458;&#12503;&#12471;&#12519;&#12531;
canvas_collatz(colors = c("#deb7a0", "#e1e6ea", "#4b61ba"), background = "#e1e6ea", n = 200,
               angle.even = 0.0075, angle.odd = 0.0145, side = FALSE) %>%
  saveCanvas(filename = "canvas_collatz.png", dpi = 300,
             width = 7, height = 7)

#canvas_flow&#12467;&#12510;&#12531;&#12489;
#&#21453;&#24489;&#12391;&#20351;&#29992;&#12377;&#12427;&#12461;&#12515;&#12531;&#12496;&#12473;&#12398;&#21106;&#21512;
canvas_flow(colors = c("#deb7a0", "#e1e6ea", "#4b61ba"), background = "#e1e6ea",
            lines = 500, lwd = 0.3, iterations = 210, stepmax = 0.14) %>%
  saveCanvas(filename = "canvas_flow.png", dpi = 300,
             width = 7, height = 7)

#canvas_turmite&#12467;&#12510;&#12531;&#12489;
#iterations&#12458;&#12503;&#12471;&#12519;&#12531;&#12398;&#25968;&#20516;&#12434;&#22823;&#12365;&#12367;&#12377;&#12427;&#12392;&#20966;&#29702;&#26178;&#38291;&#12364;&#12363;&#12363;&#12426;&#12414;&#12377;
canvas_turmite(colors = c("#deb7a0", "#e1e6ea", "#4b61ba"), background = "#e1e6ea",
               p = 0.58, iterations = 1e6, resolution = 500) %>%
  saveCanvas(filename = "canvas_turmite.png", dpi = 300,
             width = 7, height = 7)

#canvas_watercolors&#12467;&#12510;&#12531;&#12489;
canvas_watercolors(colors = c("#deb7a0", "#e1e6ea", "#4b61ba"), background = "#e1e6ea",
                   layers = 100, depth = 3, resolution = 250) %>%
  saveCanvas(filename = "canvas_watercolors.png", dpi = 300,
             width = 7, height = 7)

#canvas_function&#12467;&#12510;&#12531;&#12489;
canvas_function(colors = c("#deb7a0", "#e1e6ea", "#4b61ba")) %>%
  saveCanvas(filename = "canvas_function.png", dpi = 300,
             width = 7, height = 7)

#canvas_circlemap&#12467;&#12510;&#12531;&#12489;
canvas_circlemap(colors = c("#deb7a0", "#e1e6ea", "#4b61ba")) %>%
  saveCanvas(filename = "canvas_circlemap.png", dpi = 300,
             width = 7, height = 7)