如何在ggplot2中循环以获得每页多个图

我想循环一段由ggplot2生成图的代码。我的数据集看起来像“prot”示例，jut prot是一个入口，在原始数据中我有更多的入口。单个加入它看起来不错。就循环而言，我认为它会在每个页面中放置一个迭代文件，但它不包含.pdf 。这个单一的阴谋已经创建了联合阴谋，所以我现在不知道如何以及在哪里放置facet_wrap或facet_grid？或者有其他解决方案？帮助，请帮助。如何在ggplot2中循环以获得每页多个图

'library(ggplot2) 

ggplot(prot, aes(factor(genotype), value, fill = Light)) + 
geom_bar(stat="identity", position = "dodge") + 
scale_fill_brewer(palette = "Set1") 




    '> prot 
    Accession genotype   variable  value Light 
    966 AT1G01050  WT ML_WT_Dejan_05 219971.1 ML 
    2828 AT1G01050  WT ML_WT_Dejan_06 286308.6 ML 
    4690 AT1G01050  WT ML_WT_Dejan_14 1177873.5 ML 
    6552 AT1G01050  m  ML_m_Dejan_08 861982.0 ML 
    8414 AT1G01050  m  ML_m_Dejan_10 3786163.0 ML 
    10276 AT1G01050  m  ML_m_Dejan_11 1289267.7 ML 
    12138 AT1G01050  f  ML_f_Dejan_01 400419.3 ML 
    14000 AT1G01050  f  ML_f_Dejan_04 929297.2 ML 
    15862 AT1G01050  f  ML_f_Dejan_09 12245991.9 ML 
    17724 AT1G01050  ntrc ML_ntrc_Dejan_02 785773.5 ML 
    19586 AT1G01050  ntrc ML_ntrc_Dejan_03 971133.1 ML 
    21448 AT1G01050  ntrc ML_ntrc_dejan7 592207.0 ML 
    23310 AT1G01050  ntrc ML_ntrc_Dejan_12R 347127.5 ML 
    25204 AT1G01050  WT FL_WT_Dejan_20 131817.0 FL 
    27134 AT1G01050  WT FL_WT_Dejan_39 560424.7 FL 
    29064 AT1G01050  WT FL_WT_Dejan_33 9304183.7 FL 
    30994 AT1G01050  WT FL_WT_Dejan_34 647452.4 FL 
    32924 AT1G01050  m  FL_m_Dejan_21 712381.5 FL 
    34854 AT1G01050  m  FL_m_Dejan_26 6089158.8 FL 
    36784 AT1G01050  m  FL_m_Dejan_28 11341334.1 FL 
    38714 AT1G01050  f  FL_f_Dejan_19 13140258.2 FL 
    40644 AT1G01050  f  FL_f_Dejan_31 11256554.9 FL 
    42574 AT1G01050  f  FL_f_Dejan_35 1621509.9 FL 
    44504 AT1G01050  f  FL_f_Dejan37 392228.2 FL 
    46434 AT1G01050  ntrc FL_ntrc_Dejan_30 9069074.8 FL 
    48364 AT1G01050  ntrc FL_ntrc_Dejan_38 562403.6 FL 
    50294 AT1G01050  ntrc FL_ntrc_Dejan29 175258.6 FL 
    79347 AT1G01050  WT LL_WT_Dejan_41 2443625.6 LL 
    81783 AT1G01050  WT LL_WT_Dejan_43 8529143.7 LL 
    84219 AT1G01050  WT LL_WT_Dejan_49 11054552.6 LL 
    86655 AT1G01050  m  LL_m_Dejan_44 14325152.0 LL 
    89091 AT1G01050  m  LL_m_Dejan_45 13114486.4 LL 
    91527 AT1G01050  m  LL_m_Dejan_54 8250430.1 LL 
    93963 AT1G01050  f  LL_f_Dejan_47 12431354.5 LL 
    96399 AT1G01050  f  LL_f_Dejan_48 11884118.5 LL 
    98835 AT1G01050  f  LL_f_Dejan_53 8408509.1 LL 
    101271 AT1G01050  ntrc LL_ntrc_Dejan_46 12214783.1 LL 
    103707 AT1G01050  ntrc LL_ntrc_Dejan_50 1286828.3 LL 
    106143 AT1G01050  ntrc LL_ntrc_Dejan_42 1819043.9 LL 

    plots<- list() 

    pdf("TEST_boxplot.pdf") 
    IDs<-unique(prot$Accession) 
    for (i in 1:length(IDs)){ 
    temp <- prot[(prot$Accession)==IDs[i],] 
    p<- ggplot(temp, aes(factor(genotype), value, fill = Light)) + 
    geom_bar(stat="identity", position = "dodge") + 
    scale_fill_brewer(palette = "Set1")+ 
    ggtitle(as.character(i)) 
    plots[[i]] <- p 
    #plots[[paste(i)]] = p 
    #multiplot(plotlist = plots, cols = 1) 
    } 
    dev.off()

来源

2017-08-28 tralala

加上'打印（P）'在循环 –

嗯，当我设置I = 2算了笔检查并运行打印（P）的环我刚空地块......我也已经添加了在ggtitle后打印（p）。没有工作 – tralala

如果您使用上述'prot'数据集，则pdf文件中的结果页数（和图）为1（'Accession'只有1个级别）。尝试使用具有更多级别的数据集来进行“登录”。我做了一些测试和工作。 –

我生成prot玩具数据集有两个水平Accession。
下面的代码在TEST_boxplot.pdf文件的两页上打印2个图形。
Here是生成的文件。

library(ggplot2) 

prot1 <- read.table(text=" 
n Accession genotype   variable  value Light 
    966 AT1G01050  WT ML_WT_Dejan_05 219971.1 ML 
    2828 AT1G01050  WT ML_WT_Dejan_06 286308.6 ML 
    4690 AT1G01050  WT ML_WT_Dejan_14 1177873.5 ML 
    6552 AT1G01050  m  ML_m_Dejan_08 861982.0 ML 
    8414 AT1G01050  m  ML_m_Dejan_10 3786163.0 ML 
    10276 AT1G01050  m  ML_m_Dejan_11 1289267.7 ML 
    12138 AT1G01050  f  ML_f_Dejan_01 400419.3 ML 
    14000 AT1G01050  f  ML_f_Dejan_04 929297.2 ML 
    15862 AT1G01050  f  ML_f_Dejan_09 12245991.9 ML 
    17724 AT1G01050  ntrc ML_ntrc_Dejan_02 785773.5 ML 
    19586 AT1G01050  ntrc ML_ntrc_Dejan_03 971133.1 ML 
    21448 AT1G01050  ntrc ML_ntrc_dejan7 592207.0 ML 
    23310 AT1G01050  ntrc ML_ntrc_Dejan_12R 347127.5 ML 
    25204 AT1G01050  WT FL_WT_Dejan_20 131817.0 FL 
    27134 AT1G01050  WT FL_WT_Dejan_39 560424.7 FL 
    29064 AT1G01050  WT FL_WT_Dejan_33 9304183.7 FL 
    30994 AT1G01050  WT FL_WT_Dejan_34 647452.4 FL 
    32924 AT1G01050  m  FL_m_Dejan_21 712381.5 FL 
    34854 AT1G01050  m  FL_m_Dejan_26 6089158.8 FL 
    36784 AT1G01050  m  FL_m_Dejan_28 11341334.1 FL 
    38714 AT1G01050  f  FL_f_Dejan_19 13140258.2 FL 
    40644 AT1G01050  f  FL_f_Dejan_31 11256554.9 FL 
    42574 AT1G01050  f  FL_f_Dejan_35 1621509.9 FL 
    44504 AT1G01050  f  FL_f_Dejan37 392228.2 FL 
    46434 AT1G01050  ntrc FL_ntrc_Dejan_30 9069074.8 FL 
    48364 AT1G01050  ntrc FL_ntrc_Dejan_38 562403.6 FL 
    50294 AT1G01050  ntrc FL_ntrc_Dejan29 175258.6 FL 
    79347 AT1G01050  WT LL_WT_Dejan_41 2443625.6 LL 
    81783 AT1G01050  WT LL_WT_Dejan_43 8529143.7 LL 
    84219 AT1G01050  WT LL_WT_Dejan_49 11054552.6 LL 
    86655 AT1G01050  m  LL_m_Dejan_44 14325152.0 LL 
    89091 AT1G01050  m  LL_m_Dejan_45 13114486.4 LL 
    91527 AT1G01050  m  LL_m_Dejan_54 8250430.1 LL 
    93963 AT1G01050  f  LL_f_Dejan_47 12431354.5 LL 
    96399 AT1G01050  f  LL_f_Dejan_48 11884118.5 LL 
    98835 AT1G01050  f  LL_f_Dejan_53 8408509.1 LL 
    101271 AT1G01050  ntrc LL_ntrc_Dejan_46 12214783.1 LL 
    103707 AT1G01050  ntrc LL_ntrc_Dejan_50 1286828.3 LL 
    106143 AT1G01050  ntrc LL_ntrc_Dejan_42 1819043.9 LL 
", header=T) 

prot2 <- prot1 
prot2$Accession <- "AT3G53620" 
prot <- rbind(prot1,prot2) 

plots <- list() 
pdf("TEST_boxplot.pdf", onefile=T) 
IDs<-unique(prot$Accession) 
for (i in 1:length(IDs)){ 
    temp <- prot[(prot$Accession)==IDs[i],] 
    p<- ggplot(temp, aes(factor(genotype), value, fill = Light)) + 
    geom_bar(stat="identity", position = "dodge") + 
    scale_fill_brewer(palette = "Set1")+ 
    ggtitle(as.character(i)) 
    plots[[i]] <- p 
    print(p) 
} 
dev.off()

来源

2017-08-28 15:44:35

您好，感谢您的帮助。 [链接]（https://filebin.net/53km4lrehwoob9hu）'图'看看数字。我不明白，为什么当我尝试为我的数据应用代码时，会为每个复制品绘制条形图，而不是在您的示例中和我的示例中使用out循环。 O.o这很奇怪...我会尝试更多，但是谢谢 – tralala

@tralala第一：你现在得到一个多页的pdf吗？第二：你可以发布'str（prot）'（其中'prot'是你的竞争数据集）的输出吗？ –

非常感谢！我遇到了课堂问题，发生了，谢谢你的帮助。是的，我得到的网页和我所有的。 – tralala

如何在ggplot2中循环以获得每页多个图

回答

相关问题