R循环作图拼图

最新推荐文章于 2023-02-13 21:01:21 发布

kylin王国

最新推荐文章于 2023-02-13 21:01:21 发布

阅读量338

点赞数

分类专栏： R语言 ggplot R技巧文章标签： r语言人工智能 python

本文链接：https://blog.csdn.net/weixin_47634487/article/details/128398933

版权

R语言同时被 3 个专栏收录

32 篇文章 5 订阅

订阅专栏

R技巧

12 篇文章 2 订阅

订阅专栏

ggplot

7 篇文章 0 订阅

订阅专栏

library(testpackage)
kmeans_test_data <- kmeans_test_data
kmeans_test_group <- kmeans_test_group
data <- testpackage::means_calculate(kmeans_test_data,
                                     kmeans_test_group)
testpackage::kmeans_plot(data,
                         centers = 15,
                         row = 3,
                         col = 5,
                         center_col = "blue",
                         las = 2)
df <- kmeans_plot(data,
                  centers = 15,
                  row = 3,
                  col = 5,
                  center_col = "blue",
                  las = 2)
library(reshape2)
df2 <- melt(df)
ggplot(df2[which(df2$Cluster == 'cluster2'),],
       aes(x = variable, 
           y = value,
           group =meta ))+
  geom_line()
  
plot_list = list()
for (i in 1:15) {
  p <- ggplot(df2[which(df2$Cluster == paste0('cluster',i)),],
         aes(x = variable, 
             y = value,
             group =meta ))+
    geom_line(col = "blue")+
    labs(x= "xlab",y = "ylab")+
    theme_bw()
  plot_list[[i]] = p
}
plot_list[1]
plot_list[2]
plot_list[3]
library(patchwork)
wrap_plots(plot_list, byrow = T, nrow = 5)
library(cowplot)
plot_grid(plotlist = plot_list, align = "h", 
          nrow = 3)

在这里插入图片描述

for (i in 1:15) {
  assign(paste("p",i,sep=""),ggplot(df2[which(df2$Cluster == paste0('cluster',i)),],
                                    aes(x = variable, 
                                        y = value,
                                        group =meta ))+
           geom_line(col = "blue")+
           labs(x= "xlab",y = "ylab")+
           theme_bw())
}


p1+p2+p3+p4+p5+p6+p7+p8+p9