2017-05-01から1ヶ月間の記事一覧

ggplot2で一部の系列だけハイライトするのに便利なパッケージをつくりたい

ggplot2を使っていると、こんな感じのもじゃもじゃしたデータに出会うことがあります。データの系列が多すぎるともう色が見分けられなくてあんまり意味をなしません。 library(tidyverse) set.seed(1) d <- tibble( idx = 1:10000, value = runif(idx, -1, 1…

2017/05/19にLet's Encryptで起こっていた障害についてのメモ

5/19にLet’s Encryptで障害が起こっていました。その原因と、付随して起こっていたらしいOCSP Stapling絡みのゴタゴタについてのメモ。

メモ:dplyr 0.6.0は、select()するだけならtidyevalいらないっぽい

dplyrがもうCRANにsubmitされたという噂を聞いてNEWS.mdを読んでたら、こんなことが書かれていました。 select() (and the internal function select_vars()) now support column names in addition to column positions. As a result, expressions like sel…

メモ:カテゴリごとにデータフレーム単位で処理をしたいときはdplyr::do()とsplit() + purrr::map()のどちらが速い

追記(2017/07/26): コメント欄で指摘いただいたのでmap_df()を使わないバージョン(f_split2())を追加しました。これはmap_df()が遅いというより、split()した数だけ新しくtibble()をつくるのでその時間だろうなと推測しています。 ベクトルを引数に取る…

メモ:WannaCryの送金データをblockchain .infoのAPIから取ってきてグラフを描きたい

追記(2017/05/21): ツイートの主によるやり方解説ブログはこちら。 これを描きたい。が、元データはどこを見ればいいのかよくわからず調べた時のメモ。 The #wannacry attackers — if they can cash out before authorities find them — just topped $35K…

メモ:emojiの扱い方は分からないけどとりあえずrmarkdown::render()はできるようになった

R

これがrmarkdownにマージされたので、gregexpr()のエラーはとりあえずなんとかなりました。 これでやっとblogdown使える…!

メモ:stringr::str_locate_all()の結果をstringr::str_sub()に渡したいときはpurrr::map2()

例えば、適当な文字列からaで始まる単語を抜き出してみる(こんなことはstr_locate_all()を使わなくてもできるけど、まあ例ということで) library(stringr) library(purrr) x <- c("asymmetry between apple and banana", "aspiration after surgery") # \\…

メモ:Rでemojiを扱うにはどうすれば... part2

R

追記(2017/05/13): useBytes = TRUEにした場合は、regmatches()で抜き出すのはいけるけど、regmatches<-で置換するのはエラーになる。うーん… x <- "<img src='test.png' alt='🍉'>" m <- gregexpr("<\\s*[Ii][Mm][Gg]\\s+[Ss][Rr][Cc]\\s*=\\s*[\"']([^\"']+)[\"']", x, useBytes = TR…

メモ:Rでemojiを扱うにはどうすれば...

R

こういう問題に悩まされていて、どうすればいいか調べる途中のメモ 具体的に言うとこのエラーをなんとかしたい。 # devtools::install_github("hadley/emo") wm <- emo::ji("watermelon") as.character(wm) #> [1] "\xf0\u009f\u008d\u0089" gregexpr(".", a…

メモ:stringrのstr_locate_allとstr_subを組み合わせて文字列置換

前回やろうとして分からなかったやつ。 stringr::str_locate_all()というのがあると知ったのでメモ。