<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title>R言語 on akky@サイボウズラボ・ブログ</title>
		<link>https://labs.cybozu.co.jp/blog/akky/tags/r%E8%A8%80%E8%AA%9E/</link>
		<description>Recent content in R言語 on akky@サイボウズラボ・ブログ</description>
		<generator>Hugo</generator>
		<language>ja</language>
		
		
		
		
			<lastBuildDate>Wed, 14 Apr 2021 00:00:00 +0000</lastBuildDate>
		
			<atom:link href="https://labs.cybozu.co.jp/blog/akky/tags/r%E8%A8%80%E8%AA%9E/index.xml" rel="self" type="application/rss+xml" />
			<item>
				<title>ggirl - R言語で描いたグラフを葉書に印刷発送してくれるライブラリ/サービス</title>
				<link>https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/</link>
				<pubDate>Wed, 14 Apr 2021 00:00:00 +0000</pubDate>
				<guid>https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/</guid>
				<description>&lt;p&gt;&lt;a href=&#34;https://github.com/jnolis/ggirl&#34;&gt;jnolis/ggirl&lt;/a&gt; は、ggplot2 で作成したグラフをwebサービス経由でポストカードに印刷し、そこから発送までしてくれるというツール・サービスです。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-code-sample.png&#34;&gt;&lt;picture&gt;&#xA;  &lt;source type=&#34;image/webp&#34; srcset=&#34;https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-code-sample_hu_37d92dbcc397100e.webp 480w, https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-code-sample_hu_547571398b57e516.webp 533w&#34; sizes=&#34;(max-width: 56rem) 100vw, 54rem&#34;&gt;&#xA;  &lt;img src=&#34;https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-code-sample.png&#34; width=&#34;533&#34; height=&#34;249&#34; alt=&#34;&#34; loading=&#34;lazy&#34; decoding=&#34;async&#34;&gt;&#xA;&lt;/picture&gt;&lt;/a&gt;&lt;/p&gt;&#xA;&lt;p&gt;R言語で ggplot2 オブジェクトを作成したら、ggirl ライブラリに送り先の住所やメッセージ情報をセットして呼び出します。すると、確認用のwebページがブラウザで開かれます。(&lt;a href=&#34;https://jnolis.com/blog/introducing_ggirl/&#34;&gt;解説&lt;/a&gt;)&lt;/p&gt;&#xA;&lt;p&gt;# 日本の住所を入れようとしたら、米国以外の住所は現在未実装、と出てきました。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-order-page-example.png&#34;&gt;&lt;picture&gt;&#xA;  &lt;source type=&#34;image/webp&#34; srcset=&#34;https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-order-page-example_hu_868455207a9312a3.webp 480w, https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-order-page-example_hu_8a7bccd0ab554059.webp 768w, https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-order-page-example_hu_95b3b05bfc64082b.webp 971w&#34; sizes=&#34;(max-width: 56rem) 100vw, 54rem&#34;&gt;&#xA;  &lt;img src=&#34;https://labs.cybozu.co.jp/blog/akky/2021/04/ggirl-sends-your-ggplot2-chart-postcard/ggirl-order-page-example.png&#34; width=&#34;971&#34; height=&#34;696&#34; alt=&#34;&#34; loading=&#34;lazy&#34; decoding=&#34;async&#34;&gt;&#xA;&lt;/picture&gt;&lt;/a&gt;&lt;/p&gt;&#xA;&lt;p&gt;このページの次は Stripe を使ったクレジットカードの支払い画面となり、$2.5 を支払えば、1,2週間でこのグラフのポストカードが届くそうです。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://www.shinyapps.io/&#34;&gt;shinyapps.io&lt;/a&gt; という、RStudio の開発元が運営している R言語コードのホスティングサービスがあるようで、ggirl の作者自身によるホスティングはここに載せているようですね。&lt;/p&gt;&#xA;&lt;p&gt;「Rでいいグラフが描けたので誰かに郵便で送りたい」という時(どんな時だ)に便利なライブラリではないでしょうか。&lt;/p&gt;&#xA;&lt;p&gt;via Hacker News&lt;/p&gt;</description>
			</item>
			<item>
				<title>中世から現代まで、21万枚の絵画に使われている色の変化をRで可視化したグラフ</title>
				<link>https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/</link>
				<pubDate>Fri, 17 Apr 2015 00:00:00 +0000</pubDate>
				<guid>https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/</guid>
				<description>&lt;p&gt;過去から現在までの大量の絵画データを使い、「時代の色遣い」があるかどうかを調べようとした&lt;a href=&#34;https://twitter.com/m_bellander&#34;&gt;マーティン・ベランダーさん&lt;/a&gt;(Martin Bellander)の&lt;a href=&#34;http://blog.martinbellander.com/post/115411125748/the-colors-of-paintings-blue-is-the-new-orange&#34;&gt;ブログ&lt;/a&gt;から。&lt;/p&gt;&#xA;&lt;p&gt;大量の絵画データの取得先は、&lt;a href=&#34;https://www.google.com/culturalinstitute/project/art-project?hl=ja&#34;&gt;グーグルのアート・プロジェクト&lt;/a&gt;や&lt;a href=&#34;http://www.wikiart.org/&#34;&gt;Wikiアート&lt;/a&gt;などいくつか候補があったのですが、英BBCのサイト &lt;a href=&#34;http://www.bbc.co.uk/arts/yourpaintings/&#34;&gt;Your Paintings&lt;/a&gt; を選んだということです。このBBCのサイトにはイギリスを中心にヨーロッパ絵画が収められていると思われます。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/paintings-bbc.png&#34;&gt;&lt;picture&gt;&#xA;  &lt;source type=&#34;image/webp&#34; srcset=&#34;https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/paintings-bbc_hu_e6015a23b4baa28.webp 480w, https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/paintings-bbc_hu_9ccc1b6804984deb.webp 768w, https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/paintings-bbc_hu_56efdad28d9bc1e9.webp 1194w&#34; sizes=&#34;(max-width: 56rem) 100vw, 54rem&#34;&gt;&#xA;  &lt;img src=&#34;https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/paintings-bbc.png&#34; width=&#34;1194&#34; height=&#34;618&#34; alt=&#34;paintings-bbc&#34; loading=&#34;lazy&#34; decoding=&#34;async&#34;&gt;&#xA;&lt;/picture&gt;&lt;/a&gt;&lt;/p&gt;&#xA;&lt;p&gt;21万枚を越える絵画データが閲覧できるということで、Windows上のR言語スクリプトで全絵画ファイルのURLを取得し、そこから、画像ファイル、描かれた年(年代で示されているものは最初の年)、油彩かアクリルかテンペラか混合技法か、などの情報を取得保存しています。&lt;/p&gt;&#xA;&lt;p&gt;ファイルが壊れているものなどを自動・手動で除去した後で、描かれた年ごとにまとめ、各絵画から100個の点をランダムにサンプリングし、色相・彩度・明度を調べ足しこみます。&lt;/p&gt;&#xA;&lt;p&gt;&lt;a href=&#34;https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/colors-history-of-paintings.png&#34;&gt;&lt;picture&gt;&#xA;  &lt;source type=&#34;image/webp&#34; srcset=&#34;https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/colors-history-of-paintings_hu_24b2b5b8fc1292a7.webp 480w, https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/colors-history-of-paintings_hu_f9bad8aef9c38084.webp 768w, https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/colors-history-of-paintings_hu_a9abd26d3aa39a23.webp 973w&#34; sizes=&#34;(max-width: 56rem) 100vw, 54rem&#34;&gt;&#xA;  &lt;img src=&#34;https://labs.cybozu.co.jp/blog/akky/2015/04/colors-in-paintings-from-big-data/colors-history-of-paintings.png&#34; width=&#34;973&#34; height=&#34;491&#34; alt=&#34;colors-history-of-paintings&#34; loading=&#34;lazy&#34; decoding=&#34;async&#34;&gt;&#xA;&lt;/picture&gt;&lt;/a&gt;&lt;/p&gt;&#xA;&lt;p&gt;グラフの左側にある白い部分は、その年代の絵画が無かったからですね。全体的に、絵画に使われている色の多くが赤・オレンジ・黄色で占められているというのがわかります。&lt;/p&gt;&#xA;&lt;p&gt;また、20世紀に入ってから青や緑の量が増えていることがわかります。これについてもベランダーさんは考察し、いくつか仮説を立てています。&lt;/p&gt;&#xA;&lt;ul&gt;&#xA;&lt;li&gt;「青」という色や名前が他の色と比べ新しい概念・認識である(&lt;a href=&#34;http://uk.businessinsider.com/what-is-blue-and-how-do-we-see-color-2015-2&#34;&gt;Business Insiderの記事&lt;/a&gt;)&lt;/li&gt;&#xA;&lt;li&gt;(グラフでカウントしてない)暗い色・黒を、青として取ってしまっている&lt;/li&gt;&#xA;&lt;li&gt;古い絵画ほど、経年変化で青色の樹脂が失われている&lt;/li&gt;&#xA;&lt;li&gt;昔は青い絵の具が高価だったが安くなって使われるようになった&lt;/li&gt;&#xA;&lt;/ul&gt;&#xA;&lt;p&gt;他にも、全体的な絵画界の流行としてそうなった要素もあるかもしれませんね。どれも決め手というほどの理由でもなさそうで、&lt;a href=&#34;http://blog.martinbellander.com/post/115411125748/the-colors-of-paintings-blue-is-the-new-orange&#34;&gt;コメント欄&lt;/a&gt;では議論が続いています。&lt;/p&gt;&#xA;&lt;p&gt;コメント欄では&lt;a href=&#34;http://www.vijayp.ca/blog/2012/06/colours-in-movie-posters-since-1914/&#34;&gt;1914年からの映画ポスターの色を分析したという2012の記事&lt;/a&gt;も紹介されていて、絵画だけでなく、20世紀は青色の利用が増えた時代と言えるかもしれません。&lt;/p&gt;&#xA;&lt;p&gt;via &lt;a href=&#34;http://flowingdata.com/2015/04/08/color-use-in-paintings-by-year/&#34;&gt;Flowing Data&lt;/a&gt;&lt;/p&gt;</description>
			</item>
	</channel>
</rss>
