pbmc<- ScoreJackStraw(pbmc, dims =1:20) 002、ElbowPlot 函数的实现 00a、使用plot函数 dat <- pbmc[["pca"]]@stdev[1:20]## 绘图数据dat dat<- data.frame(a =1:20, b =dat) plot(dat$a, dat$b)## 绘图 00b、使用ggplot2 dat <- pbmc[["pca"]]@stdev[1:20] dat dat<- data.fram...