小编blJ*_*JOg的帖子

我有一个带有x变量和两个y1和y2变量的数据集(总共3列).我想将y1对x绘制为轴上方的条形图,将y2绘制在x轴下方相同图中的相同x处,以便两个条形图相互镜像.

下面的图D是我想要做的一个例子.

我试图将不同类型的图(线图和条形图)绘制在彼此之下,它们都具有相同的轴:

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)

但是,x轴上的日期并不排列在不同的地块上.

以下是一些可以尝试的数据:

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));

干杯,约瑟夫

我有以下数据集:

df <- as.data.frame(cbind(Position = c(1,2,3,4,5,6,7,8,9,10), 
    Value = c(11.31, 10.39, 9.50, 6.61, 5.41, 
    3.88, 3.81, 1.25, 0.70,10.41)))

我想把它绘制成一个条形图,其中位置值为1-3,4-6,7-9,10,在不同的图中,即彼此之下的4个单独的图.在ggplot中有一个简单的方法吗？

编辑:我想实现这一点,没有空位置.

干杯,约瑟夫

我有一个包含100个顶点的图形g,我想从这个图形中删除多个顶点以获得g1,但是当我这样做时,我希望保留每个顶点在g中的位置.是否有可能做到这一点？

par(mfrow=c(1,2))
g <- erdos.renyi.game(100, 1/100)
comps <- clusters(g)$membership
colbar <- rainbow(max(comps)+1)
V(g)$color <- colbar[comps+1]
V(g)$size<-seq(0.05,5,0.05)
plot(g, layout=layout.fruchterman.reingold, vertex.label=NA)

g1<-g - c("1","2","7","10")
plot(g1, layout=layout.fruchterman.reingold, vertex.label=NA)

我想到的一个工作,将是我用白色着色我不再想看到的顶点和边缘,但在开始这条路线之前,我想知道是否有一些不那么黑客的东西.