在R中使用ggplot绘制甘特图时如何避免段之间重叠

Question

亲爱的，我有一个关于在R中使用ggplot绘制甘特图的问题。每当我绘制所拥有的数据时，各段之间就会出现重叠。例如（根据附加的图），您将看到产品A1应该有四个细分（根据附加的数据），但是由于重叠，您可以看到只有两个细分（根据附加的图片链接） 。我想将同一产品的每个细分都绘制在单独的行中，以避免这种重叠。在将每个细分受众群排成一行之后，我希望仅显示一次细分受众群的产品名称。我将附加我在情节中使用的代码。

谢谢穆罕默德

Product Codes   Batch Number    Start   End
A                  1            1000    1500
A                  1            1400    2000
A                  1            1800    2300
A                  1            6573    6905
A                  2            13773   14105
A                  2            5040    5372
A                  2            720     1052
A                  3            1921    2253
A                  3            3933    4265
A                  3            13441   13773

library(ggplot2)
library(grid)
library(dplyr)
library(gtable)
library(readxl)
library(readxl)
library(reshape2)
library(ggrepel)
library(RColorBrewer)

Book2 <- read_excel("C:/Users/...stack.xlsx", sheet = "Sheet1")
attach(Book2)
df2<-Book2

actcols <- c("#d95f0e","#756bb1","#0218a2","#ffb703", "#f76f73", "#027fdc", "#07c4c5","#303030","#11793b","#5d7261","#3f5f34","#905435","#997940","#ab3434","#961B4D")
myColors <- brewer.pal(5,"Set1")

start<-as.POSIXct('04/06/2020',format='%m/%d/%Y') 

date<-(df2$Start)*60+start
zz2<-(df2$End)*60+start

Product<-paste(df2$`Product Codes`,df2$`Batch Number`)

plot2 <-  ggplot(df2, aes(x=date,xend=zz2-900,y=Product, yend=Product,color=Product))+ geom_segment(stat = "identity")+ theme_bw()+ geom_segment(size=5)+ 
  theme(plot.title=element_text(size=24, face="bold"), 
        axis.text.x=element_text(size=10), 
        axis.text.y=element_text(size=14),
        axis.title.x=element_text(size=16),
        axis.title.y=element_text(size=14),
        legend.title = element_text(size=16),
        legend.position="top")+scale_x_datetime(date_labels ="%a %b %d",  date_breaks  ="1 day") +
  theme(axis.text.x = element_text(hjust=2.5))
plot2

enter image description here

Answer 1

尝试一下。基本思路是将段号添加到您的Product变量中，并将新的Product_segment变量映射到y：

library(RColorBrewer)
library(ggplot2)
library(dplyr)

df2 <- read.table(text = "'Product Codes'   'Batch Number'    Start   End
A                  1            1000    1500
A                  1            1400    2000
A                  1            1800    2300
A                  1            6573    6905
A                  2            13773   14105
A                  2            5040    5372
A                  2            720     1052
A                  3            1921    2253
A                  3            3933    4265
A                  3            13441   13773", header = TRUE, stringsAsFactors = FALSE)

df2 <- df2 %>% 
  rename(`Product Codes` = Product.Codes, `Batch Number` = Batch.Number)

actcols <- c("#d95f0e","#756bb1","#0218a2","#ffb703", "#f76f73", "#027fdc", "#07c4c5","#303030","#11793b","#5d7261","#3f5f34","#905435","#997940","#ab3434","#961B4D")
myColors <- brewer.pal(5,"Set1")

start<-as.POSIXct('04/06/2020',format='%m/%d/%Y') 

# Data wrangling
df3 <- df2 %>%
  mutate(
    date = Start * 60 + start,
    zz2 = End * 60 + start  - 900,
    Product = paste(`Product Codes`, `Batch Number`)
  ) %>% 
  select(-Start, -End) %>% 
  # Add segment number
  group_by(Product) %>% 
  arrange(Product, date) %>% 
  mutate(segment = 1,
         segment = cumsum(segment),
         Product_segment = paste(Product, segment),
         y.labels = ifelse(segment == n_distinct(segment), Product, "")) %>% 
  ungroup() 

y.labels <- df3$y.labels

plot2 <-  ggplot(df3, aes(x = date, xend = zz2, y = Product_segment, yend = Product_segment, color = Product)) + 
  geom_segment(size = 10) + 
  scale_x_datetime(date_labels ="%a %b %d",  date_breaks  ="1 day") +
  scale_y_discrete(labels = y.labels) +
  labs(x = NULL, y = NULL) +
  theme_bw() + 
  theme(plot.title=element_text(size=24, face="bold"), 
        axis.text.x=element_text(size=10), 
        axis.text.y=element_text(size=14),
        axis.title.x=element_text(size=16),
        axis.title.y=element_text(size=14),
        legend.title = element_text(size=16),
        legend.position="top")
plot2

^{由reprex package（v0.3.0）在2020-04-06创建}