|
|
@@ -13,7 +13,7 @@ pe <- ggplot(data=total , aes(x=fsatime, y=Event, group=1)) +
|
|
|
geom_point(na.rm = FALSE) +
|
|
|
ylab("Event") +
|
|
|
xlab("Time (s)") +
|
|
|
- scale_y_discrete("Event", labels = waiver(), limits=c("when(Fo100 -+)", "p_up", "d_up", "after(1.0)","stop")) +
|
|
|
+ scale_y_discrete("Event", labels = waiver(), limits=c("when(Fo100 -+)", "p_up", "d_up", "after(2.0)","stop")) +
|
|
|
theme(axis.title.y=element_text(vjust=vertical_adjust), axis.title=element_text(size=label_size,face="bold"))
|
|
|
|
|
|
ps <- ggplot(data=total , aes(x=fsatime, y=fsastate, group=1)) +
|