1

パッケージggbiplotから使用しようとしています。ggfortify正常に動作しているようですが、次のような警告メッセージが表示されます。

mdl <- pls::plsr(mpg ~ ., data = mtcars, scale = T)
scrs <- data.frame(pls::scores(mdl)[])
loads <- data.frame(pls::loadings(mdl)[])

ggfortify::ggbiplot(scrs, loads, 
  label.label = rownames(scrs), asp = 1, label = T, label.size = 3,
  loadings = T, loadings.label = T, loadings.label.label = rownames(loads))

Warning messages:
1: In if (value %in% columns) { :
  the condition has length > 1 and only the first element will be used
2: In if (value %in% columns) { :
  the condition has length > 1 and only the first element will be used

間違った手順を踏んだか、それともバグですか。

4

1 に答える 1

1

ggbiplotドキュメントによると、label.label=パラメーターは名前を取得する列名を想定しています。名前のベクトルは必要ありません。についても同様ですloadings.label.label=。(ggplot とほとんどの tidyverse 関数は、行名があまり好きではありません。適切な列にする方が良いです)

scrs$ID <- rownames(scrs)
loads$ID <- rownames(loads)
ggfortify::ggbiplot(scrs, loads, 
  label.label = "ID", asp = 1, label = T, label.size = 3,
  loadings = T, loadings.label = T, loadings.label.label = "ID")
于 2017-03-20T20:42:12.163 に答える