在 ggplot2 中显示灵活的、数据感知型甘特图段

问题描述

出于某种原因，X 轴以固定间距绘制，并不代表实际时间段。黑色的tenure段虽然应该显示不同的tenure期，但它们的大小都相同。

我尝试了下面的两个选项，但轴没有改变。：

scale_x_date(limits = c(as.Date("06.10.2017","31.12.2020")))

min <- ("06.10.2017")
max <- ("31.12.2020")
scale_x_date(limits = c(min,max))

三个黑色段的长度应根据各自任期的长度（即结束日期 - 开始日期）我不明白如何解决这个问题。

library(ggplot2)
library(ggthemes)
library(dplyr)

data <- data.frame(name = c(
  "Hank Kowalski","Bruce Kippler","Gerd Jennson"),start = c(   
    "31.12.2020","01.07.2018","06.10.2017"),end = c(
    "03.11.2019","03.11.2019","30.06.2018")
   )

data %>%
  mutate(start=as.Date(start,'%d.%m.%Y'),end=as.Date(end,#'%d.%m.%Y'
         name=factor(name,levels = unique(name),ordered = T)) %>%
  mutate(start=as.character(start),end=as.character(end)) %>%
  ggplot(aes(x=start,xend=end,y=name,yend=name)) +
  geom_segment(size=3) +
  labs(title='Team Coaches',size= 6,x='Tenure',y='Coach') +
  scale_colour_manual(values = c(CDU = 'black',FDP = 'yellow',Grüne = 'green',parteilos = 'grey',SPD = 'red')) +
  theme_wsj() + 
  theme(axis.title = element_text(),text = element_text(size=8),axis.text.x = element_text(angle=45,hjust=1)) +
  theme(axis.text.y = element_text(lineheight = 2,size = 6))

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

gantt-chart ggplot2 r r