1

我正在尝试重新创建我之前在这里制作的 PCA 图，但后来丢失了我用来制作它的代码：http: //imgur.com/a/jtvFd

在上面的这个图中，我能够通过个人的“位置”（不同的形状）以及与每个人相关联且范围从 100 到 300 的数值 DOY 对个人进行分组。

我再次尝试并遇到困难。我的数据被格式化，使得第一列是位置（我想按形状对个人进行分组），第二列是一个数字 DOY（我想为个人着色）：

Location <- Data[,1]
DOY <- as.numeric(Data[,2])
Data.PCA <- prcomp(Data[,3:11], Center = TRUE, Scale = TRUE)
g <- ggbiplot(Data.PCA, obs.scale = 1, var.scale = 1, 
              groups = Location, ellipse = TRUE)
g <- g + aes(scale_colour_continuous = DOY)
print(g)

但是，当我这样做时，我收到一个错误：

错误：美学长度必须为 1 或与数据 (9) 相同：x、y、xend、yend、scale_colour_continuous

4

0 回答 0