在R中使用Geom_Segment

Question

我正在尝试使用Geom_Segment在R中创建一个图。我遇到了一个错误，说我需要输入yend，但我已经在输入了……这是我的代码：

library(ggplot2) 
library(data.table)
library(magrittr)


dataset$From<-Sys.Date()
format(dataset$From, format="%Y-%m-%dT%H:%M:%OS")
dataset$To<-Sys.Date()
format(dataset$To, format="%Y-%m-%dT%H:%M:%OS")



ggplot(dataset, aes(x=datetime_start, y=dataset$Audit_Title, 
color=dataset$Employee_Name)) +
  geom_segment(aes(x=dataset$From,xend=dataset$To,y=dataset$Audit_Title,yend=dataset$Audit_Title),size=20)+
  scale_colour_discrete(guide=guide_legend(override.aes=list(size=15))) +
ggtitle("Audit by Employee Timeline") + xlab("") + ylab("") + theme_bw()

示例数据：Here is the sample data

这就是我如何修改下面的代码，以便从Excel中获取我输入到Power BI中的数据：

library(ggplot2)
library(dplyr)

# transform into date
dataset <- dataset %>% 
  mutate_at(vars(dataset$From, dataset$To),
            .funs = function(tt) readr::parse_date(as.character(tt),
                             format = "%m/%d/%Y"))

ggplot(dataset)+
  geom_segment(aes(x=dataset$From, xend=dataset$To,
                   y=dataset$Employee_Name, yend=dataset$Employee_Name))

Answer 1

首先，理想情况下，您应该以dput(dataset)的形式共享数据。如果你不能分享真实的数据，你应该做一个最小的可重现的例子并分享它。请参阅here

这是您的数据

library(ggplot2)
library(dplyr)
df <- 
read.table(
text =  
"01/03/2020 03/16/2020 Supply_Chain John_Smith 
05/08/2020 08/20/2020 Business_Unit Karen_Scott")

names(df) <- c("From", "To", "Audit_Title", "Employee_Name")
# transform into date
df <- df %>% 
  mutate_at(vars(From, To),
            .funs = function(tt) readr::parse_date(as.character(tt),
                             format = "%m/%d/%Y"))

现在，通过选择适当的x xend并让y作为employee (y=yend)来进行实际绘图。

ggplot(df)+
  geom_segment(aes(x=From, xend=To,
                   y=Employee_Name, yend=Employee_Name))

它会产生

​

​

如果你想要花哨的颜色、标签和东西，那就去看看ggplot的相关文档吧。请参阅here