ggplot 甘特图 - 线之间的一致空间答案

【问题标题】：ggplot gantt chart - consistent space between linesggplot 甘特图 - 线之间的一致空间
【发布时间】：2017-03-06 06:29:14
【问题描述】：

我有两个数据框，一个较大（10 人），一个较小（两个人）。我为每个数据框生成了一个甘特图。我如何得到它，所以每个图的线之间的距离是相同的（即不根据条目数进行缩放）。

# Generate vectors:
name  <- paste("person", seq(10), sep = '_')
start <- sample(seq(5), size = 10, replace = T) 
end <- sample(seq(6,10), size = 10, replace = T) 

# Generate data frames:
big_chart <- data.frame(name = c(name,name), value = c(start,end))
small_chart <- big_chart[c(1:2,11:12),]

# big plot
library(ggplot)
ggplot(big_chart, aes(value, name)) +
  geom_line()

# small plot
ggplot(small_chart, aes(value, name)) +
  geom_line()

【问题讨论】：

标签： r ggplot2

【解决方案1】：

以下是我为您提供的解决方案，希望这是您正在寻找的。我利用coord_fixed 函数来控制整体缩放。此外，我还使用xlim 函数修复了您的 x 轴范围。

library(ggplot2)

ggplot(big_chart, aes(value, name)) +
  geom_line() + 
  xlim(0, 10) + #optional
  coord_fixed(ratio = 0.5)

ggplot(small_chart, aes(value, name)) +
  geom_line() + 
  xlim(0, 10) + #optional
  coord_fixed(ratio = 0.5)

【讨论】：