thash/venn.md

## venn.md

      
    Raw
  

              venn.md
            
          
    Rubyで適当な値のデータを作り, RのVennDiagramライブラリで描画
ame = (Date.today.beginning_of_year..Date.today.end_of_year).to_a.sample(100).map(&:to_s)
jiko = (ame.sample(20) + (Date.today.beginning_of_year..Date.today.end_of_year).to_a.sample(50)).uniq.map(&:to_s)
uni = (Date.today.beginning_of_year..Date.today.end_of_year).to_a.map(&:to_s)
なんとなく雨の日が事故率高いように狙って作成してる.
それぞれprintしてRコンソールにコピペ(原始的)
install.packages("VennDiagram", repos="http://cran.ism.ac.jp/")
library(VennDiagram)

ame <- c(...)
jiko <- c(...)
uni <- c(...)

venn.diagram(list(事故=jiko, 雨=ame, uni), filename="a.png", cat.fontfamily="Ricty")