R でお絵描き

@Med_KU

20170923
TokyoR#65
汐留住友ビル14階

今日の話

R でお絵描き

Bioinformatics 的なお絵描き

Omnicircos WCGNA

R でお絵描き

img <- readPNG(system.file("img", "Rlogo.png", package="png"))
R logo New logo

R でお絵描き

アイコンを作ってみましょう

アイコンを作る

素材（ドット絵）

セルは色付けに対応した番号がはいる行列

0000000000000000001000000000000
0000000000000000012177000000000
0000000000000000171217700000000
0000000000000001777121770000000
0000000000000044444411770000000
0000000000004444444444770000000
0000000000044444444444470000000
0000000010444444444554410000000
0000000121444445444515441000000
0000001112144445544551644000000
0000014441214445554555664500000
0000044444114441555555551400000
0000044444444445155555511140000
0000744444741445555555511110000
0777744447712144665555111110000
7777444440001214445511111000001
0000444404111111033435100000010
0000444404111111543343000140100
0004444005411110003344331141100
0004444000411100003334431411000
0004440000041000003333311410000
0044440000000000033333114110000
0444400000000000013331141100100
0000000000000000041114411111100
0000000000000000004441110000000

絵心 or 外注 or アプリ

素材（ドット絵） 

image(input_image_matrix)

色塗り

colors, rgb で塗る

そのまま image 適当に補正

alpha channel

rgb(alpha) を指定すると透過性がつく

奥行きを出したい 透過性を使う

*.colors を試す 

apropos("\\.colors")
[1] "cm.colors"      "gray.colors"    "grey.colors"    "heat.colors"   
[5] "terrain.colors" "topo.colors"

他にはrainbow など

*.colors を試す

踊る

適当なフレームで行（列）をrev する