ggplot2：在 R 中创建视觉直观的时间线

Question

是否有任何 ggplot2 向导知道如何使这个看起来更直观？具体来说，我正在考虑在每个时间段的开始和结束时使用确切的日期进行注释（即，对于 Zhenla，该条将以 550 AD 的注释开始，并以 802AD 的注释结束）。

顺便说一句，我查看了注释文档，但没有发现任何视觉上吸引人的内容。但是，像我一样了解 ggplot2 及其软件包系列，我确信那里有一个有吸引力的选择。

我也很好奇你们是否有任何其他建议可以使它更美观。

这是数据：

cambodia = data.frame(Period = c("Funan", "Chenla/Zhenla","Khmer Empire","Dark Ages of Cambodia"),StartDate = c(-500,550,802,1431), EndDate = c(550,802,1431,1863), Color = c("lightblue","lightgreen","lightyellow","pink"))

注意："Color" 与给定的值不对应 - 它更像是图表代码的占位符：

g2 <- ggplot() +
geom_segment(data=cambodia, aes(x=StartDate, xend=EndDate, y=Period, yend=Period, color=Color), linetype=1, size=2) +
scale_colour_brewer(palette = "Pastel1")+
xlab("Time")+
ylab("Periods of History")+
theme_bw() + theme(panel.grid.minor = element_blank(), panel.grid.major =   element_blank()) + theme(aspect.ratio = .2)
g2 + theme(legend.position="none")

Answer 1

这不是一个真正的编程问题，但我认为它仍然很有趣，因为它展示了如何使用 ggplot 的可能性。我会将所有段放在相同的高度，并使用 x 轴显示您感兴趣的主要日期（不过我不确定将文本放在何处）：

 ggplot(data=cambodia) +
  geom_segment(aes(x=StartDate, xend=EndDate, y=0., yend=0., color=Period) , linetype=1, size=4) +
  scale_colour_brewer(palette = "Pastel1")+
  scale_y_continuous(limits=c(0,0.5))+
  scale_x_continuous(limits=c(-500,2000),  breaks= c(seq(0,2000,by=1000), cambodia$StartDate, cambodia$EndDate[4]))+
  xlab("Time")+
  ylab("Periods of History")+
  theme_bw() + theme(panel.grid.minor = element_blank(), panel.grid.major =   element_blank(), axis.title.y=element_blank(),axis.text.y=element_blank(),  axis.ticks.y=element_blank()) +
  theme(aspect.ratio = .2)+
  theme(legend.position="none") + 
  geom_text(aes(x=StartDate-100 + (EndDate- StartDate)/2,y=0.05,label=Period,angle=25,hjust=0))

ggplot2：在 R 中创建视觉直观的时间线

ggplot2: Creating a visually intuitive timeline in R

timeline

r

ggplot2