ぎょーむ日誌 2012-01-17

2012 年 01 月 17 日 (火)

• 0620 起床． ラジオ体操． 朝飯． 弁当の準備． コーヒー． 0750 自宅発． ひたすら真冬日． 0820 研究室着．
• さっさとアルゼンチンアリ問題を …… とうだうだ． いつのまにか， 窓の外は雪．
• アリデータぢりぢり …… 2003 年だけ「調査者」が入ってない? いや， 2004 年もか．
• また生態学会さーばーとらぶる． ML でうまく配信できません， か …… とりあえず /etc/init.d/mailman restart， これでうまくいくかな …… なおったようだ．
• 昼飯． 二ヶ月分の灯油代しはらう． 7582 円．
• アリデータの統合作業をつづける．
• 次の問題点． 公園名が一致しねー …… アリデータと位置データ (GoogleMaps KML ファイル) 間で．

• 公園名修正とかめんどうだな …… と思っていたのだけど， 公園番号 は両データで正確に対応しているらしいとわかった． よーし， これはいけるぞ． 公園名の表記方法の違いは無視して， 公園番号だけを見ればよい．
• それでは， 位置データに含まれていない 公園番号はどれか?

  > sort(dl$idpark)
   [1]  5  6  7  9 10 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
  [21] 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
  [41] 48 49 50 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
  [61] 69 70 71 72 73 75 76 77 78 80 81 82 83 84 85 86 87
  > (pn <- sort(unique(d$公園No.)))
   [1]  5  6  7  9 10 11 13 14 15 16 17 18 19 20 21 22 23 24 25 26
  [21] 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
  [41] 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
  [61] 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
  [81] 87
  > pn[!(pn %in% sort(dl$idpark))]
  [1] 11 51 74 79
  

  なるほどー …… ぢゃ， その公園名は……?

  > unique(d[d$公園No. %in% c(11, 51, 74, 79), c("公園No.", "公園名")])
      公園No.             公園名
  31       11         やはた神社
  140      51 地御前ちびっこ公園
  242      74 廿日市中央公民館庭
  248      79           余田公園
  

  ふーん．
• これぐらいすぐに検索して緯度・経度を特定できるか …… と思ったんだけど， なぜか見つからん …… ということで， 自分でやるのはあきらめて香川大におねがいメイルを書く．
• データの整理整頓作業つづく ……
• 伊藤さんから返信メイルいただき， 上記 4 箇所の調査地は継続調査してないとのこと．
• library(lattice) でえいやーっと作図．

• あれ，なんかヘンだな …… (晩飯後に上の作図の着色は完全にまちがいとわかった)
• 1730 研究室発． 買いもの． 1800 帰宅． 晩飯の準備． 晩飯．
• どうにも上の作図では納得いかないので， いろいろと修正してみた． 伊藤さんから位置不明の 4 公園の緯度・経度も連絡していただいたことだし …… ふーむ， こんなところかな? ……

• [今日の運動]
  • 朝のラジオ体操．
• [今日の食卓]
  • 朝 (0640): 米 0.7 合． ワカメ・豆腐の味噌汁． キャベツ・ミズナ・ネギ・レイズンのサラダ．
  • 昼 (1240): 研究室． 米 0.7 合． 興部ガーリックソーセイジ． ゴボ天． ミニトマト． キャベツ． リンゴ．
  • 晩 (1845): 米 0.5 合． ワカメ・豆腐の味噌汁． なぜかしら布袋の鶏からあげ． コマツナ・モヤシのゴマポン酢あえ．