首页 文章

将条形图的列与ggplot的线图对齐

提问于
浏览 次
4

当它们具有相同的x轴时，是否有任何方法可以使用ggplot将线图的点与条形图的条形对齐？以下是我正在尝试使用的示例数据 .

library(ggplot2)
library(gridExtra)

data=data.frame(x=rep(1:27, each=5), y = rep(1:5, times = 27))
yes <- ggplot(data, aes(x = x, y = y))
yes <- yes + geom_point() + geom_line()

other_data = data.frame(x = 1:27, y = 50:76  )

no <- ggplot(other_data, aes(x=x, y=y))
no <- no + geom_bar(stat = "identity")

grid.arrange(no, yes)

这是输出：

enter image description here

线图的第一个点位于第一个柱的左侧，线图的最后一个点位于最后一个柱的右侧 .

感谢您的时间 .

r ggplot2

2 回答

  • 2

    扩展@ Stibu的帖子：要对齐图表，请使用 gtable （或查看your earlier question的答案）

    library(ggplot2)
library(gtable)

data=data.frame(x=rep(1:27, each=5), y = rep(1:5, times = 27))
yes <- ggplot(data, aes(x = x, y = y))
yes <- yes + geom_point() + geom_line() + 
   scale_x_continuous(limits = c(0,28), expand = c(0,0))

other_data = data.frame(x = 1:27, y = 50:76  )

no <- ggplot(other_data, aes(x=x, y=y))
no <- no + geom_bar(stat = "identity") + 
   scale_x_continuous(limits = c(0,28), expand = c(0,0))

gYes = ggplotGrob(yes)   # get the ggplot grobs
gNo = ggplotGrob(no)

plot(rbind(gNo, gYes, size = "first"))   # Arrange and plot the grobs

    enter image description here

    Edit 要改变地块的高度：

    g = rbind(gNo, gYes, size = "first")  # Combine the plots
panels <- g$layout$t[grepl("panel", g$layout$name)] # Get the positions for plot panels
g$heights[panels] <- unit(c(0.7, 0.3), "null") # Replace heights with your relative heights
plot(g)
    回复于
  • 1

    我可以想到（至少）两种方法来对齐两个图中的x轴：

    • 两个轴不对齐，因为在条形图中，geoms覆盖x轴从0.5到27.5，而在另一个图中，数据的范围从1到27.原因是条形有宽度，要点没有 . 您可以通过显式指定x轴范围来强制axex对齐 . 使用您的图中的定义，这可以通过以下方式实现
    yes <- yes + scale_x_continuous(limits=c(0,28))
no <- no + scale_x_continuous(limits=c(0,28))
grid.arrange(no, yes)

    limits 设置x轴的范围 . 但请注意，藻酸盐仍然不是很完美 . y轴标签在上图中占用更多空间，因为数字有两位数 . 情节如下：
    enter image description here

    • 另一个解决方案有点复杂，但它的优点是x轴只绘制一次，而ggplot确保对齐是完美的 . 它利用了分面和this answer中描述的技巧 . 首先，必须将数据组合成单个数据帧
    all <- rbind(data.frame(other_data,type="other"),data.frame(data,type="data"))

    然后可以按如下方式创建绘图：

    ggplot(all,aes(x=x,y=y)) + facet_grid(type~.,scales = "free_y") +
   geom_bar(data=subset(all,type=="other"),stat="identity") +
   geom_point(data=subset(all,type=="data")) +
   geom_line(data=subset(all,type=="data"))

    诀窍是让facet由变量 type 构造，该变量之前用于标记两个数据集 . 但是每个 geom 只获取应该使用该特定 geom 绘制的数据子集 . 在 facet_grid 中，我也使用了 scales = "free_y" ，因为两个y轴应该是独立的 . 该图如下：

    enter image description here

    您可以在定义数据框 all 时通过提供其他名称来更改构面的标签 . 如果要将它们全部删除，请将以下内容添加到您的绘图中：

    + theme(strip.background = element_blank(), strip.text = element_blank())
    回复于

相关问题