2020年1月28日火曜日

()はダメ

午前
・卒論指導(原稿修正)
・個人ゼミ

午後
・卒論指導(原稿修正、データ解析)

卒論のデータ解析でハマった、、、。

data$speに種名が入っているデータがある。

生データでは成虫を「Branchiura sowerbyi」、幼虫を「Branchiura sowerbyi_m」としているので、このまま解析すると2種として計算されてしまう。


下記のようにすれば「Branchiura sowerbyi_m」を「Branchiura sowerbyi」に置換できる。
data["spe"] <- lapply(data["spe"], gsub,
 pattern = "Branchiura sowerbyi_m",
 replacement = "Branchiura sowerbyi")
data$spe <- factor(data$spe) #Factor型として使う場合は必要

しかし、今日は、これにハマった。

理由は、当初、幼虫が「Branchiura sowerbyi(m)」と書かれていたため。


この場合
data["spe"] <- lapply(data["spe"], gsub,
 pattern = "Branchiura sowerbyi(m)",
 replacement = "Branchiura sowerbyi")
としてもダメ。str_replace_all()を試したりとどハマりした。


どうやら「()」を文字情報として判断しないみたい。メタ文字?

ということで、()はダメ!

2020年1月27日月曜日

東京

午前
・卒論指導(原稿修正)

午後
・卒論指導(原稿修正)
・書類作成

卒論のことばかり考える一日だった。

土日は東京へ。とても楽しかった。

前日に雪で飛行機が飛ばないかもと通知が来たが、全く問題なかった。今日からの方が危険っぽい。

2020年1月24日金曜日

申請書

午前
・卒論指導(原稿修正・データ整理)
・学外会議

午後
・卒論指導(原稿修正・データ整理)
・書類作成

卒論発表が近づいてきた、、、。

1月ほど放置してしまった申請書の作成をやっと始めた。

2020年1月23日木曜日

日本産ワラジムシ亜目の分布データ

午前
・卒論指導(原稿修正)

午後
・データ整理
・会議
・卒論指導(データ整理)

年末から悩まされていたhtmlとかphpとかjavaとか問題、協力者の力を借りてどうにか解決。

日本産ワラジムシ亜目の分布データをweb公開しているが、以前はgoogle map APIを使っていた。

現実的には問題にならないだろうが、google map API規約が変更され、閲覧数が増えると費用が発生することになった。

そこで、フリー地図であるOpenStreetMapへ移行を進めようと思ったのがきっかけ。

leafletというJavaScriptを使うことで、OpenStreetMapを使った自分用のweb地図を作ることができる。ちなみに、leafletはR上でも動く。

しかし、検索システムを組み込むのに完全に頓挫してしまった。ただし、途中、単純に面白くなってハマったり、卒論用の地図作成を始めたり、とポジティブな回り道もしたけど。

数日前に協力者に相談し、ひとまず出力が可能に。しかし、プロット数が多いとほぼ停止状態になって困っていた。

そして、clusterという面白い機能を導入したことで、止まることもなくなったらし、見た目も良い感じになった、、、と個人的には思う。


分布データを登録して良いよ、という方がいたら連絡下さい。

2020年1月22日水曜日

座る

午前
・標本整理

午後
・卒論指導(原稿修正、データ整理)

朝、椅子に座るときに腰をひねり、その痛みと戦う一日になってしまった。

念のため予定していた運動も中止。

2020年1月21日火曜日

自力で

午前
・個人ゼミ

午後
・卒論指導(原稿修正)
・データ整理

年末からの懸念材料だった問題が、共同研究者のアドバイスで解決した。長い戦いだったが終わりが見えた、、、自力で解決できなかったが。

これで、明日からは数多くの放置業務の回収に時間を使えそう。

2020年1月17日金曜日

どハマり

午前
・標本整理

午後
・データ整理

データ整理にどハマりして、、、そして解決できずに1日が終わった。