如何在r中使用多个组件进行绘图

安民

我想按 clusterNum 列绘制所有组件和分组点。但是,正如我迄今为止所尝试了解的,我们只能以 2D 和 3D 方式进行绘图。那么,我想知道通常如何使用这些所有 PC 绘制或表示图形?

This is what the sample looks like: 

            PC1         PC2         PC3        PC4        PC5 clusterNum
1    -2.3779857  0.85818117  0.77918535  0.1967346  0.9826036          2
2    -1.4290545  0.09556012 -0.06358622  1.3468587 -0.1525576          2
3     1.5621954  2.53686714 -2.57818785  0.0111326  0.2755555          1
4     1.9915498  0.19282116  1.34349507  0.0578331 -1.0146932          3
5    -0.4431131  1.38970833  2.34020611 -0.8359105  0.1402896          2
6    -1.9892596  0.37200044  2.00614197  0.5013188 -1.5358936          2
7    -2.6111509 -0.31112666  1.44419058  0.7313908  0.2597182          2
1977 -1.8662394  1.74827166 -2.37657231  0.4158580  1.1100287          4
1978  2.3477702 -2.24859797 -0.47305695  0.3690514 -1.1667859          3
1979  2.0797897 -0.14012792 -0.82941643 -1.2233560 -0.4523913          1
data <- structure(list(PC1 = c(-2.37798570730988, -1.42905447617503,1.56219540602943, 1.99154980323715, -0.443113128962729, -1.98925960995357,-2.6111508923784, -1.86623936673779, 2.3477701685881, 2.07978972115199), PC2 = c(0.858181174741465, 0.0955601160006672, 2.53686714046073,0.192821161122631, 1.38970832915268, 0.372000440681993, -0.31112665937417,1.74827166020088, -2.24859797467832, -0.140127921225955), PC3 = c(0.779185345162976,-0.0635862220559265, -2.57818784684844, 1.34349506727208, 2.34020610639405,2.00614196687586, 1.44419058101111, -2.37657231100357, -0.473056945068265,-0.829416434702976), PC4 = c(0.196734648339808, 1.34685865526758,0.0111326028445577, 0.0578331048357187, -0.83591054343165, 0.501318761327088,0.731390845165095, 0.415858033401411, 0.369051391354487, -1.22335597705293), PC5 = c(0.982603621624129, -0.152557597364265, 0.275555453841701,-1.01469324992585, 0.140289629133083, -1.53589363488684, 0.259718249982426,1.11002871887763, -1.16678589524657, -0.452391297542505), clusterNum = c(2L,2L, 1L, 3L, 2L, 2L, 2L, 4L, 3L, 1L)), row.names = c(1L, 2L, 3L,4L, 5L, 6L, 7L, 1977L, 1978L, 1979L), class = "data.frame") 

先感谢您。

您可以使用多条线绘制线图,如下所示:

data <- structure(list(PC1 = c(-2.37798570730988, -1.42905447617503,1.56219540602943, 1.99154980323715, -0.443113128962729, -1.98925960995357,-2.6111508923784, -1.86623936673779, 2.3477701685881, 2.07978972115199), PC2 = c(0.858181174741465, 0.0955601160006672, 2.53686714046073,0.192821161122631, 1.38970832915268, 0.372000440681993, -0.31112665937417,1.74827166020088, -2.24859797467832, -0.140127921225955), PC3 = c(0.779185345162976,-0.0635862220559265, -2.57818784684844, 1.34349506727208, 2.34020610639405,2.00614196687586, 1.44419058101111, -2.37657231100357, -0.473056945068265,-0.829416434702976), PC4 = c(0.196734648339808, 1.34685865526758,0.0111326028445577, 0.0578331048357187, -0.83591054343165, 0.501318761327088,0.731390845165095, 0.415858033401411, 0.369051391354487, -1.22335597705293), PC5 = c(0.982603621624129, -0.152557597364265, 0.275555453841701,-1.01469324992585, 0.140289629133083, -1.53589363488684, 0.259718249982426,1.11002871887763, -1.16678589524657, -0.452391297542505), clusterNum = c(2L,2L, 1L, 3L, 2L, 2L, 2L, 4L, 3L, 1L)), row.names = c(1L, 2L, 3L,4L, 5L, 6L, 7L, 1977L, 1978L, 1979L), class = "data.frame") 

library(tidyverse)
data %>% 
  rownames_to_column() %>% 
  select(-clusterNum) %>% 
  mutate(rowname = factor(rowname, levels = rowname)) %>% 
  pivot_longer(-rowname) %>% 
  ggplot(aes(rowname, value, group = name, color = name)) +
  geom_line()

不过,我不认为这与 PCA 结果有关。查看此处此处此处了解可视化 PCA 结果的常见做法。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

如何在r中使用因子变量进行绘图

如何在R中使用多个条件进行计数

如何在 Shiny R 中使用 radioButton 和 actionButton 值进行被动绘图

如何在 R 中使用特定颜色进行组合绘图可视化?

如何在 R 中使用 cut 函数绘制绘图?

如何在R中使用ggplot绘制绘图区域的“外部”?

如何在r中使用绘图函数绘制曲线?

如何在 R 中使用散点图的绘图点符号值

在R中使用Shiny进行绘图

ReactJs-如何在组件中使用多个子代

如何在R中使用lapply对包含多个数据帧的列表进行采样?

如何在Linux上的python脚本中使用matplotlib 1.5.1进行交互式绘图?

如何在AR中使用多个联接进行查询

如何在Scala集合中使用多个列进行分组

如何在SQL中使用多个值进行计算

如何在Yii中使用CDbCriteria对多个参数进行分组?

如何在 R 中使用 autoplot 绘制旋转组件?

如何在react中使用map渲染的组件列表中的特定组件进行修改?

如何在 r 中使用 sf 包从 .shp 文件读取和绘图?

如何在 R Shiny 中对 timevis 绘图进行颜色编码

R:我如何在 dplyr 中使用 mutate 进行分组?

如何在R中使用get()函数进行迭代

如何在R中使用循环进行分组和求和?

如何在 R 中使用变量进行分组

如何在R中使用sub进行匹配的数字运算?

如何在R中使用SVM进行递归特征消除

如何在 r 中使用 for 循环进行网页抓取

如何在R中使用“ for”循环进行非连续观测

如何在R中使用各种样本量进行采样?