情节＆＃34; Y-Less＆＃34; R中的仅日期图表

Question

这对我很有挑战性。我试图根据DataFrame绘制图表：

BaseDate    EventDate           EventType
11/6/2009   11/6/2009 9:00      S
11/6/2009   11/6/2009 17:00     E
11/9/2009   11/9/2009 10:00     S
11/9/2009   11/9/2009 14:00     E
11/10/2009  11/10/2009 11:00    S
11/10/2009  11/10/2009 18:00    E
11/11/2009  11/11/2009 9:00     S
11/11/2009  11/11/2009 10:00    E
11/12/2009  11/12/2009 7:00     S
11/12/2009  11/12/2009 20:00    E

情节本身非常简单：我想为每个EventTime绘制一条垂直线，并按EventType着色。当然，最明显的电话不起作用：ggplot(logdates, aes(x = EventDate, y = EventType, color = EventType)) + geom_bar()。

您对如何创建此图表有任何想法吗？

更新：

根据要求，这是我尝试做的草案。请注意，没有Y轴，因为我没有任何值。

谢谢！

Answer 1

首先，确保所有内容都正确定义：

df$EventTime <- as.POSIXct(df$EventTime, format='%m/%d/%Y %H:%M', tz="UTC")
df$EventType <- as.factor(df$EventType)

不确定这是否接近你想要的，但至少它有一些垂直线：

ggplot(df, aes(x=EventTime, 
               ymin=0, 
               ymax=1, 
               colour=EventType)) +
  geom_linerange() + 
  theme(axis.text.y=element_blank(), 
        axis.ticks.y=element_blank())