タイトルどう書けばいいのかわからなかったんですが、要はこれをRでやりたいという話です。途中までやったのでメモ。
続きを読むMathematicaを使って,シュレーディンガーの顔をこのようなアニメーションにされたユーザの方がいらっしゃいます。コードも掲載されています。https://t.co/IDIzM8Xfy2 pic.twitter.com/ZTIbjtmXBm
— Wolfram Japan (@WolframJapan) 2017年6月15日
タイトルどう書けばいいのかわからなかったんですが、要はこれをRでやりたいという話です。途中までやったのでメモ。
続きを読むMathematicaを使って,シュレーディンガーの顔をこのようなアニメーションにされたユーザの方がいらっしゃいます。コードも掲載されています。https://t.co/IDIzM8Xfy2 pic.twitter.com/ZTIbjtmXBm
— Wolfram Japan (@WolframJapan) 2017年6月15日
こんな感じ。もっとうまい方法がある気もしつつ。
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を使っていると、こんな感じのもじゃもじゃしたデータに出会うことがあります。データの系列が多すぎるともう色が見分けられなくてあんまり意味をなしません。
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))
続きを読む
dplyrがもうCRANにsubmitされたという噂を聞いてNEWS.mdを読んでたら、こんなことが書かれていました。
select()
(and the internal functionselect_vars()
) now support column names in addition to column positions. As a result, expressions likeselect(mtcars, "cyl")
are now allowed.
説明の意味はあんまり理解できないんですが、こんな感じです。select()
とselect_()
の使い分けで悩んでいた時代はもう過去ですね。
追記(2017/07/26): コメント欄で指摘いただいたのでmap_df()
を使わないバージョン(f_split2()
)を追加しました。これはmap_df()
が遅いというより、split()
した数だけ新しくtibble()
をつくるのでその時間だろうなと推測しています。
ベクトルを引数に取る関数はgroup_by()
でいいわけですが、データフレームを引数に取るような関数はどうしますか?