19

我geom_segment用来绘制活动时间表。它都在同一条线上，因为我想将它与其他图表一起呈现，我宁愿让 y 轴更小。似乎 ggplot2 中灰色图形区域的大小始终是正方形的，无论我将其放大还是缩小。有没有办法说我想要 x=500 y=50 或类似的东西？

df2 <- structure(list(Activities =
                      structure(c(2L, 1L, 2L, 1L, 2L, 3L, 1L, 2L, 2L, 2L, 2L, 5L,
                                  4L, 3L, 2L, 2L), 
                                .Label = c("authoring", "hacking", "learning", 
                                           "surfing", "tasks"), 
                                class = "factor"), 
                      Start = c(14895L, 15005L, 16066L, 16226L, 16387L, 16394L,
                                27030L,27532L, 27600L, 27687L, 28660L, 28713L, 
                                29154L, 30264L, 30345L, 32245L), 
                      End = c(15005L, 16066L, 16226L, 16387L,16394L, 16509L, 
                              27491L, 27591L, 27628L, 28450L, 28704L, 29109L, 
                              30250L, 30345L, 31235L, 33794L)),
                 .Names = c("Activities", "Start", "End"), 
                 class = "data.frame", row.names = c(NA, -16L))
a <- 0:23

这是我的情节：

ggplot(df2, aes(colour=Activities)) + 
  geom_segment(aes(x=Start, xend=End, y=0, yend=0), size=10) +
  scale_x_continuous(breaks=a * 60 * 60, labels=a) +
  xlab("Time") + ylab("") + 
  scale_y_continuous(breaks=NULL, limits=c(-.1, .1))

示例时间线图

4

1 回答 1

30

要将 x 和 y 轴上的比率固定为某个值（例如 1 或 0.2），您可以使用coord_fixed()：

g + coord_fixed(ratio = 0.2)

g你原来的情节在哪里。你必须玩一点才能得到你需要的东西。此外，就像@Andrie 所说，您还可以修复画布大小，例如使用ggsave：

print(g)
ggsave("/tmp/plt.png", width = 16, height = 9, dpi = 120)

我会尝试两者，或者将它们结合起来。另请参阅此较早的帖子。

于 2013-03-18T10:56:35.923 回答