`sample（）`は同じ `set.seed（） 'で異なる値を返します

Question

ランダムなサンプルを作成してプロットし、奇妙な動作に気づいていました。サンプリングされた値がggplot2をロードした後に異なっていた：

set.seed(111) 
library(ggplot2) 
sample(1:10, 10) 
# [1] 8 4 5 3 7 1 6 2 10 9 

set.seed(111) 
sample(1:10, 10) 
# [1] 6 7 3 4 8 10 1 2 9 5 

私は簡単に十分なこの動作を回避することができますが、シード値を変更するにはggplot2のための何らかの理由があるのでしょうか？

Answer 1

私はRのチャットルームの1つでこれについていくつかの議論を見たと思います：ggplot2は、提供したいチップを決定するために乱数ジェネレータを呼び出します。特に

、これはggplot2:::.onAttachです：

function (...) 
{ 
    if (!interactive() || stats::runif(1) > 0.1) 
     return() 
    tips <- c("Need help? Try the ggplot2 mailing list: http://groups.google.com/group/ggplot2.", 
     paste("Find out what's changed in ggplot2 with\n", "news(Version == \"", 
      utils::packageVersion("ggplot2"), "\", package = \"ggplot2\")", 
      sep = ""), "Use suppressPackageStartupMessages to eliminate package startup messages.") 
    tip <- sample(tips, 1) 
    packageStartupMessage(tip) 
} 

それが変更に関するものではありませんランダムに生成されたヒントの一つは