0

経由で入手可能な ggbiplot ライブラリを使用する次のコードが与えられますdevtools::install.github()。

library(ggbiplot)
data(iris)
log.ir <- log(iris[, 1:4])
ir.species <- iris[, 5]

ir.pca <- prcomp(log.ir, center = TRUE, scale. = TRUE)

g <- ggbiplot(ir.pca, obs.scale = 1, var.scale = 1, groups = ir.species)
g <- g + theme(legend.direction = 'vertical', legend.position = 'right')
g <- g + scale_color_manual(values=c("blue", "red", "green"))
print(g)

グループ化に基づいてデータ ポイントの境界線をカスタマイズする最良の方法は何ですか? これらのデータ ポイントの色をカスタマイズするために scale_color_manual() を使用しましたが、境界線に対してそれを行う方法が思いつきません。

ありがとう

4

1 に答える 1

0

データポイント自体の境界を調整したい場合...

呼び出し自体はこのggbiplot()柔軟性を提供しませんが、設定alpha = 0により、プロットされたポイントがggbiplot非表示または実際に 100% 透明になります。次に、塗りつぶし (中央) と色 (ボーダー) の美学を持つ 5 つの形状 (21-25) のいずれかとしgeom_point()て指定する呼び出しで別のレイヤーを作成できます。shape

ggbiplot(ir.pca, obs.scale = 1, var.scale = 1, groups = ir.species, alpha = 0) +
    theme(legend.direction = 'vertical', legend.position = 'right') + 
    scale_color_manual(values=c("blue", "red", "green")) +
    scale_fill_manual(values = c("red", "green", "blue")) + # just offset by one to show
    geom_point(size = 3, shape = 21, aes(fill = groups, color = groups))

ここに画像の説明を入力

devtools::install.github()PS 使用しているパッケージは、標準ではなく経由でのみ利用可能であることを質問に含めることは、おそらく常に良い考えです。install.packages()

于 2016-11-02T20:07:23.177 に答える