福野泰介の一日一創

x <- read.table(file("http://www.pref.fukui.lg.jp/doc/toukei-jouhou/opendata/list_10_d/fil/eigyoukyoka.csv", encoding="cp932"), header=T,sep=",")
table(x$業種)
pie(sort(table(x$業種),decreasing=T),cex=0.5)
pie(sort(table(x$種目),decreasing=T),cex=0.5)
※Macの文字化け回避は par(family = "HiraKakuProN-W3")

9%ほど、緯度経度の入っていない項目があり、内訳は「露天67」「移動店舗26」「移動販売2」「自動販売機2」「魚介類行商（種目は空欄）4」となっていました。
sort(table(subset(x$種目, is.na(x$経度))), decreasing=T) # 緯度が入っていない種目を調査
subset(x,x$種目=="" & is.na(x$緯度)) # 種目空欄の業種を見る

先日 2016.3.30、日本政府 内閣官房IT総合戦略室より「オープンデータ伝道師」を任命され、その公表がありました。（オープンデータをはじめよう）

オープンデータのエバンジェリストとして、まずはTwitterのプロフィールを更新！

参考リンク
- オープンデータを日本に広める「オープンデータ伝道師」：8名が内閣官房情報通信技術（IT）総合戦略室により任命 | カレントアウェアネス・ポータル