用相同的x轴在xyplot下面绘制条形图？ [英] Plotting bar plot below xyplot with same x-axis?

问题描述

 <$ 
我试图绘制不同类型的图（线图和条形图），它们都具有相同的坐标轴。 c $ c> c1 < -  ggplot（data，aes（date，TotalMutObs））+ stat_smooth（se = FALSE）+ 
 geom_point（）+ 
 opts（axis.title.x = theme_blank（） ）+ 
 ylab（新累计突变数）
 c2 < -  ggplot（data，aes（date，distance））+ stat_smooth（se = FALSE）+ 
 geom_point（） + 
 opts（axis.title.x = theme_blank（））+ 
 ylab（累积平均配对距离）
 c3 < -  ggplot（data，aes（x = date，y = 
 geom_bar（stat =identity）+ 
 opts（axis.title.x = theme_blank（））+ 
 ylab（取样马数）
 
 grid.arrange（c1，c2，c3）
  

然而， x轴不会排列在不同的地块上。

这里有一些数据可以试用：

 日期和LT; -c（ 2003-03-13， 2003-03-25， 2003-03-26， 2003-03-27，2003 -03-28\" ， 2003-03-31， 2003-04-01， 2003-04-02， 2003-04-04， 2003-04-08，2003-04 -09\" ， 2003-04-10， 2003-04-11， 2003-04-14， 2003-04-15， 2003-04-17，2003年4月19日， 2003-04-21， 2003-04-22， 2003-04-28， 2003-05-08）; 
 
 NbOfHorses <-c（1，2，1，3，4，5，4，3，3 3\" ， 3， 4， 2， 4， 1， 2， 4， 1， 2， 1， 2）; 
 
 TotalMutObs <-c（20，30，58，72，140，165，204，230，250 286\" ， 302， 327， 346， 388， 393， 414， 443， 444， 462， 467， 485）; （0.000693202，0.00073544，0.000855432，0.000506876，0.000720193，0.000708047，0.000835468，0.000812401，0.000803149， 0.000839117\" ， 0.000842048， 0.000856393， 0.000879973， 0.000962382， 0.000990666， 0.001104861， 0.001137515， 0.001143838， 0.00121874， 0.001213737， 0.001201379）; 
 
 data< -as.data.frame（cbind（date，NbOfHorses，TotalMutObs，distance））; 
  

干杯，
Joseph

解决方案

解决此问题的方法是在 ggplot2 中工作，并获得关于堆叠数据副本的创意，然后将子集发送到您需要的每个geom。 / p>

 ＃您清理数据的版本
 dat<  -  data.frame（date = as.Date（date ），NbOfHorses = as.numeric（NbOfHorses），
 TotalMutObs = as.numeric（TotalMutObs），distance = as.numeric（距离））
 
＃创建三个副本，每个面板一个
＃使用grp的信息标题作为面板标题
 fullDat<  -  rbind（dat，dat，dat）
 fullDat $ grp<  -  rep（c（'累积新的突变数'，
'累积平均配对距离'，
'取样的马数'），each = nrow（dat））
 
 ggplot（fullDat，aes（x = date） ）+ 
 facet_wrap（〜grp，nrow = 3，scale =free_y）+ 
 geom_point（data = subset（fullDat，grp =='累积数量的新变异'），
 aes（y = TotalMutObs））+ 
 stat_smooth（data = subset（fullDat，grp =='累计数字），
 aes（y = TotalMutObs），se = FALSE）+ 
 geom_point（data = subset（fullDat，grp =='累积平均配对距离'），
 aes （y = distance））+ 
 stat_smooth（data = subset（fullDat，grp =='累积平均成对距离'），
 aes（y = distance），se = FALSE）+ 
 geom_bar（data = subset（fullDat，grp =='取样的马数）'，
 aes（y = NbOfHorses），stat =identity）+ 
 labs（x = NULL，y = NULL ）
  

I am trying to plot different types of plots (line plot and bar charts) beneath one another, they all have the same axis:

c1 <- ggplot(data, aes(date, TotalMutObs)) + stat_smooth(se = FALSE) + 
            geom_point() + 
            opts(axis.title.x = theme_blank()) +
            ylab("Cumulative number of new mutations")   
c2 <- ggplot(data, aes(date, distance)) + stat_smooth(se = FALSE) + 
            geom_point() + 
            opts(axis.title.x = theme_blank()) + 
            ylab("Cumulative mean pairwise distance")   
c3 <- ggplot(data, aes(x = date, y = NbOfHorses)) + 
            geom_bar(stat = "identity") + 
            opts(axis.title.x = theme_blank()) + 
            ylab("Number of horses sampled")

grid.arrange(c1, c2,c3)

However, the dates on the x-axis are not lining up for the different plots.

Here is some data to try it out:

date<-c("2003-03-13","2003-03-25","2003-03-26","2003-03-27","2003-03-28","2003-03-31","2003-04-01","2003-04-02","2003-04-04","2003-04-08","2003-04-09","2003-04-10","2003-04-11","2003-04-14","2003-04-15","2003-04-17","2003-04-19","2003-04-21","2003-04-22","2003-04-28","2003-05-08");

NbOfHorses<-c("1","2","1","3","4","5","4","3","3","3","3","4","2","4","1","2","4","1","2","1","2");

TotalMutObs<-c("20","30","58","72","140","165","204","230","250","286","302","327","346","388","393","414","443","444","462","467","485");

distance<-c("0.000693202","0.00073544","0.000855432","0.000506876","0.000720193","0.000708047","0.000835468","0.000812401","0.000803149","0.000839117","0.000842048","0.000856393","0.000879973","0.000962382","0.000990666","0.001104861","0.001137515","0.001143838","0.00121874","0.001213737","0.001201379");

data<-as.data.frame(cbind(date,NbOfHorses,TotalMutObs,distance));

Cheers, Joseph

解决方案

The way to solve this problem is to work within ggplot2 and get creative about stacking copies of your data and then sending subsets to each geom that you need.

#A version of your data cleaned up
dat <- data.frame(date = as.Date(date),NbOfHorses = as.numeric(NbOfHorses),
                TotalMutObs = as.numeric(TotalMutObs),distance = as.numeric(distance))

#Create three copies, one for each panel
# Use informative titles for grp to be panel titles    
fullDat <- rbind(dat,dat,dat)
fullDat$grp <- rep(c('Cumulative number of new mutations',
                        'Cumulative mean pairwise distance',
                        'Number of horses sampled'),each = nrow(dat))

ggplot(fullDat,aes(x = date)) + 
    facet_wrap(~grp,nrow = 3,scale = "free_y") + 
    geom_point(data = subset(fullDat,grp == 'Cumulative number of new mutations'),
        aes(y = TotalMutObs)) + 
    stat_smooth(data = subset(fullDat,grp == 'Cumulative number of new mutations'),
        aes(y = TotalMutObs),se = FALSE) + 
    geom_point(data = subset(fullDat,grp == 'Cumulative mean pairwise distance'),
        aes(y = distance)) + 
    stat_smooth(data = subset(fullDat,grp == 'Cumulative mean pairwise distance'),
        aes(y = distance),se = FALSE) + 
    geom_bar(data = subset(fullDat,grp == 'Number of horses sampled'),
        aes(y = NbOfHorses),stat = "identity") + 
    labs(x = NULL,y = NULL)

这篇关于用相同的x轴在xyplot下面绘制条形图？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！