('^KJX|^KJ', NA, metadata$Time.RFS))
#从pdata中删除含NA值的样本
discard <- apply(metadata, 1, function(x) any(...metavars = c('Study','Age','Distant.RFS','ER',
'GGI','Grade','Size','Time.RFS'))
03
进阶功能
PCAtools中的功能几乎应涵盖用户的各种需求...接下来的部分将介绍其中一些高级功能,并进行实际演示,说明如何使用 PCAtools 对数据进行临床分析。...在bi-plot中,我们可以按不同的组对点进行着色并添加更多特征。...按metadata因素着色,使用自定义标签,通过原点添加线条,并添加图例
biplot(p,
lab = paste0(p$metadata$Age, ' años'),
colby