https://www.amazon.co.jp/%E6%95%99%E8%82%B2%E3%81%AF%E9%81%BA%E4%BC%9D%E3%81%AB%E5%8B%9D%E3%81%A6%E3%82%8B%E3%81%8B%EF%BC%9F-%E6%9C%9D%E6%97%A5%E6%96%B0%E6%9B%B8-%E5%AE%89%E8%97%A4-%E5%AF%BF%E5%BA%B7/dp/4022952164/ref=sr_1_1?__mk_ja_JP=%E3…

サイコパス (文春新書) | 中野 信子 |本 | 通販 | Amazon よく売れてたから読んでみた。 おもしろかった豆知識 サイコパスは高IQとは限らない。健常者とだいたい同じIQ。 サイコパスは高ストレス環境でも心拍数が一定 サイコパスは目から相手の感情を読み取…

sologaku.com

for (var in vars) { # var_1 <- rlang::enquo(var) p <- ggplot(data = target_gridcells_with_landcover) + geom_sf(aes(fill = !!sym(var))) ggsave( p, filename = str_c( 'DIR', var, '.jpg' ), width = 8, height = 8, dpi = 300 ) }

pythonの総合開発環境の１つ Rstudioライクな見た目でGood 【レイアウト】 Rstudioっぽいレイアウト。View → windows layout → Rstudio レイアウト移動。レイアウトの右上の三本線を押して、Unrock Positionすればよい 左に「コード」、右上に「コンソール」…

pythonにおける数理最適化の有名なソルバー 混合整数計画法を解くことができる 混合整数計画法のなかに線形計画法や整数計画法が含まれる つまり求めたい変数が実数だったり整数だったりする数理最適化問題と思えばよいだろう PuLP の基本的な使い方 import …

ある目的関数を最大化または最小化するような解（パラメタ）を求めたい 数理最適化がそんなとき使える 複数の制約が課せられた条件下でのパラメタも求められる 数理最適化すげえ 例題 材料AとBから合成できる化学製品XとYをたくさん作成したい。 Xを1kg作る…

ゴミみたいなコミットメッセージでコミットしてもうた時 もうちょっと変更を加えてからコミットしたかった時 git reset --soft HEAD^ --soft ：エディタ上のスクリプトの内容はそのままにして、コミットのみ取り消したい場合に使用 HEAD^：直前のコミットを…

ゴミみたいなコミットメッセージでコミットしてもうた時 もうちょっと変更を加えてからコミットしたかった時 git reset --soft HEAD^ --soft ：エディタ上のスクリプトの内容はそのままにして、コミットのみ取り消したい場合に使用 参考：qiita.com/shuntaro…

テストデータ df <- tibble( label_grp = c("short", "Medium label", "a very long axis label that needs to be folded"), some_value = c(13633,20824,42000) ) まずは普通にggplot このままだと折り返してくれない ggplot(data = df) + geom_col(aes(y =…

# 日本地図 japan <- sf::st_read( 'https://oku.edu.mie-u.ac.jp/~okumura/stat/data/japan.geojson', stringsAsFactors = F )

googleドライブでファイルを移動させる方法 移動させたいファイルを右クリック→「指定の場所へ移動」→移動させたいフォルダを探す→移動 ただし、移動先のフォルダに深い階層のなかにあるとき、移動先のフォルダを探すのはしんどい スター機能を使うと便利 移…

タスクマネージャでjobsを停止させると途中の演算結果がTEMPフォルダに保存されっぱになる jobsの停止を何度もやっているとそのうちTEMPフォルダがパンパンになる なのでTEMPフォルダのお掃除が定期的に必要 TEMPフォルダの中身は基本捨てても問題ない TEMP…

japanmesh でメッシュコードから緯度経度をだしたい その作業を tibble でやりたいとき data %>% mutate( latitude = map_dbl( .x = mesh_code, .f = ~ {jpgrid::grid_to_coords(jpgrid::grid_auto(.x))[[2]]} ), longitude = map_dbl( .x = mesh_code, .f =…

無限長の時間軸を用意 サンプルサイズ n の点を時間軸上にランダム配置 時間軸を有限の長さの区間に分割し、ある区間について考える ある区間内に各点が含まれる確率を p とする 区間内の点の個数が k のとき、 k ~ Bionomial(N, p) となるので、 P(N = k) …

zipangu::separate_address を使うと便利 コードの例 fread('hogehoge.csv', encoding = 'UTF-8') %>% mutate(address = zipangu::separate_address(都道府県市区町村)) %>% mutate( pref = unlist(map(.x = address, .f = ~ {flatten(.x)[[1]]})), city = u…