I want to use ggplot2 to plot a binary variable over time, such that whenever we observe the event (y = 1) for a given individual (id), there is a cross (or point) on the x-axis.
Here is some data:
access <- rbinom(n=500,size=1,prob=0.40)
id = rep(1:10, each = 50)
day_id = rep(1:50, 10)
da = data.frame(access = access, id = id, day_id = day_id)
Currently I’m using ggplot2 in the following way:
da %>% ggplot(aes(x = day_id, y = access)) + geom_point() + facet_wrap(~id)
This leads to this result:
But I want it to look like this (with crosses or points reflecting whether there was access; and the x_axis reflecting a sequence of 50 days per individual):
Where each line represents one id.
>Solution :
library(ggplot2)
library(dplyr)
da %>% ggplot(aes(x = day_id, y = factor(id))) +
geom_point(data=filter(da, access==1)) +
geom_line() +
labs(y="id") +
theme_classic()
