我有一个在 x 轴上有日期的图，并绘制了一些数据点（“垂直线”）。然后另一个看起来相似的图，除了根据“ActionType”发生的时间将线绘制到不同的日期。该图看起来像我希望它看起来的样子，只是我想根据发生的第一个动作类型左对齐 x 轴。我想保留动作类型发生日期之间的空格。
因此，不是将所有第一个动作类型绘制到它们发生的日期，而是将它们绘制到同一个点（我猜是绝对比例？），但随后将绘制第二个事件，反映与第一个事件的间距和等等等等。我正在考虑的另一种方法是移动下部地块的 x 轴以排列所有地块中的第一个事件。
我已经尝试在所有图表的同一点开始 x 轴，但这不起作用，因为这些线被映射到它们发生的日期。我也尝试过facet_grid，scales= "free"但是因为每个 x 轴都需要不同，所以我认为这也行不通。我希望能够可视化 15 个唯一的电子邮件地址，但我现在从 3 个开始。
我的数据看起来像这样，它被称为 email_2：
email ActionType date
1 xxxx Email 12/5/14
2 xxxx Email 11/26/14
3 xxxx won 9/28/14
4 xxxx Email 11/26/14
5 xxxx Email 11/6/14
6 xxxx Email 11/26/14
7 xxxx demo 12/1/14
8 xxxx Demo 2/9/15
9 xxxx Email 9/15/14
10 xxxx trial 9/9/14
11 xxxx Meeting 9/24/14
12 xxxx Email 12/1/14
13 xxxx Email 11/6/14
14 xxxx Email 9/15/14
15 xxxx Email 9/15/14
16 xxxx Email 11/26/14
17 yyyy Email 9/4/14
18 yyyy trial 8/14/14
19 yyyy Email 8/25/14
20 yyyy Email 8/21/14
21 yyyy won 9/3/14
22 yyyy Email 9/11/14
23 yyyy Email 8/21/14
24 yyyy Email 11/6/14
25 yyyy Email 8/21/14
26 yyyy Email 11/6/14
27 yyyy Email 11/6/14
28 yyyy Email 8/21/14
29 yyyy Email 11/6/14
30 yyyy Email 8/21/14
31 yyyy Email 8/29/14
32 yyyy Email 8/21/14
33 zzzz Email 11/6/14
34 zzzz Email 11/6/14
35 zzzz Email 9/18/14
36 zzzz trial 9/17/14
37 zzzz Email 9/18/14
38 zzzz Email 12/5/14
39 zzzz Email 11/6/14
40 zzzz Email 11/6/14
41 zzzz Email 12/15/14
42 zzzz Email 9/19/14
43 zzzz Email 11/6/14
44 zzzz Email 12/3/14
45 zzzz Email 12/3/14
46 zzzz Email 12/15/14
47 zzzz Email 10/1/14
48 zzzz Email 12/5/14
49 zzzz won 10/2/14
50 zzzz Email 9/18/14
我生成视觉效果的代码如下所示：
email_3 <- subset(email_2, email == 'xxxx')
p1 <- ggplot(data=email_3,aes(date,ActionType)) +
scale_x_date(limits=as.Date(c("2014-08-14","2015-02-10"))) +
scale_y_continuous(email_3$email, breaks=NULL, limits=c(0,1)) +
geom_vline(data=email_3, mapping=aes(xintercept = as.numeric(date),
color=ActionType),size = 2,show_guide=F) +
theme(axis.title.x=element_blank()) +
theme(axis.title.y=element_text(angle=360))
email_4 <- subset(email_2, email == 'yyyy')
p2 <- ggplot(data=email_4,aes(date,ActionType)) +
scale_x_date(limits=as.Date(c("2014-08-14", "2014-11-07"))) +
scale_y_continuous(email_4$email, breaks=NULL, limits=c(0,1)) +
geom_vline(data=email_4, mapping=aes(xintercept = as.numeric(date),
color=ActionType),size=2,show_guide=F) +
theme(axis.title.x=element_blank()) +
theme(axis.title.y=element_text(angle=360))
email_5 <- subset(email_2, email == 'zzzz')
p3 <- ggplot(data=email_5,aes(date,ActionType)) +
scale_x_date(limits=as.Date(c("2014-08-14", "2014-12-16"))) +
scale_y_continuous(email_5$email, breaks=NULL, limits=c(0,1)) +
geom_vline(data=email_5, mapping=aes(xintercept = as.numeric(date),
color=ActionType),size=2,show_guide=T) +
theme(legend.position="bottom") +
theme(axis.title.x=element_blank()) +
theme(axis.title.y=element_text(angle=360))
grid.arrange(p1,p2,p3, ncol=1)
