Rのパッケージをつくるとき、NAMESPACEにimportFromを書くか::を使うのかどっちがいいかという回りくどい話
個人的な見解を書いておきます。
続きを読むRでインボリュート曲線を波打たせて人の顔っぽいのを描く
タイトルどう書けばいいのかわからなかったんですが、要はこれをRでやりたいという話です。途中までやったのでメモ。
続きを読むMathematicaを使って,シュレーディンガーの顔をこのようなアニメーションにされたユーザの方がいらっしゃいます。コードも掲載されています。https://t.co/IDIzM8Xfy2 pic.twitter.com/ZTIbjtmXBm
— Wolfram Japan (@WolframJapan) 2017年6月15日
メモ:ggplot2で端っこの方にラベルを付けたいときはInfにしてhjust/vjustで調整する
こんな感じ。もっとうまい方法がある気もしつつ。
library(tidyverse) set.seed(19) d <- tibble( value = rgamma(10000, shape = 1) ) q <- quantile(d$value, probs = 0:4*0.25) l <- tibble(label = names(q), value = unname(q)) ggplot() + geom_density(data = d, aes(value), fill = alpha("grey", 0.7)) + geom_vline(data = l, aes(xintercept = value), colour = alpha("red", 0.5), linetype = "dashed", size = 2) + geom_label(data = l, aes(x = value, y = Inf, label = label), vjust = 1) + theme_minimal()
続きを読む
ggplot2で一部の系列だけハイライトするのに便利なパッケージをつくりたい
ggplot2を使っていると、こんな感じのもじゃもじゃしたデータに出会うことがあります。データの系列が多すぎるともう色が見分けられなくてあんまり意味をなしません。
library(tidyverse) set.seed(1) d <- tibble( idx = 1:10000, value = runif(idx, -1, 1), type = sample(letters, size = length(idx), replace = TRUE) ) %>% group_by(type) %>% mutate(value = cumsum(value)) %>% ungroup() ggplot(d) + geom_line(aes(idx, value, colour = type))
続きを読む