こんにちは皆さん、簡単な質問がありますが、どのチュートリアルでも答えを得ることができませんでした。一連のデータに対して簡単な主成分分析を行ってから、データをバイプロットでプロットしました。
CP <- prcomp(dat, scale. = T)
summary(CP)
biplot(CP)
これにより、第 1 成分と第 2 成分に関するデータの散布図が得られます。データを色で分けて、最初の 20 個のデータを赤で、次の 20 個のデータを青で塗りつぶすように R に指示します。これら2つのデータセットに色を付けるようにRに指示する方法がわかりません。どんな助けでも大歓迎です。ありがとう！（私はRに非常に慣れていません）
免責事項：これは直接的な答えではありませんが、目的の出力を得るために微調整することができます。
library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))
を使用plot()すると、柔軟性が向上します。単独で使用することも、以下text()のようなテキストラベルと一緒に使用することもできます（有用なコメントをありがとう@flodel）。
col = rep(c("red","blue"),each=20)
plot(CP$x[,1], CP$x[,2], pch="", main = "Your Plot Title", xlab = "PC 1", ylab = "PC 2")
text(CP$x[,1], CP$x[,2], labels=rownames(CP$x), col = col)
ただし、使用する場合は、次のbiplot()コードを試してください。
biplot(CP$x[1:20,], CP$x[21:40,], col=c("red","blue"))