R plot Fire Trace - r

Question

Just getting started with R and would value your input on this question.
What I'm trying to achieve is that:
X axis has all values for "Timestamp"(from 0 to 9)
Y axis has all values for "NID"(from 0 to 3)
There are "dots" at the coordinates of ("Timestamp","NID") where the attribute "Fired" = 1.
The source data has the following format:
dat = structure(list(TimeStamp = c(0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L,
1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L,
4L), NID = c(0L, 1L, 2L, 3L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L,
2L, 3L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 2L, 3L, 4L), NumberSynapsesTotal = c(2L,
2L, 3L, 2L, 4L, 2L, 2L, 3L, 2L, 4L, 2L, 2L, 3L, 2L, 4L, 2L, 2L,
3L, 2L, 4L, 2L, 2L, 3L, 2L, 4L), NumberActiveSynapses = c(1L,
2L, 1L, 2L, 3L, 1L, 2L, 1L, 1L, 0L, 1L, 2L, 1L, 1L, 0L, 1L, 2L,
1L, 1L, 0L, 1L, 0L, 0L, 1L, 0L), Fires = c(1L, 1L, 1L, 1L, 0L,
1L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 1L,
0L, 1L, 0L, 0L)), row.names = c(NA, 25L), class = "data.frame")
I tried to apply a filter, but it shows a subset of data for those "ID"s, where there is value 1 for the attribute "Fired" (no all values for the axes):
dat %>%
filter(dat$Fires == 1) %>%
ggplot(aes(x = dat$TimeStamp[dat$Fires == 1], y = dat$NID[dat$Fires == 1])) +
geom_point()
Alternatively, I get all existing values for the attributes "Timestamp" and "NID" by using the following code:
plot(dat$TimeStamp, dat$NID,
xlab = "Time", ylab = "Neuron ID")
title(main = "Fire Trace Plot")
so the picture looks in the following way:
Finally, from the comment below I modified the code to:
ggplot(dat, aes(x = TimeStamp, y = NID) , xlab = "Time", ylab ="Neuron
ID") +
geom_blank() +
geom_point(dat = filter(dat) +
#title(main = "Fire Trace Plot")
scale_x_continuous(breaks = F_int_time_breaks(1) )
Is that the case that i should build two charts on one plot?
Thank you!

Answer 1

With ggplot2, never use data$ inside aes(), just use the column names. Similarly, the dplyr functions like filter should not be used with data$ - they know to look in the data frame for the column.
I think you want to build your ggplot with the full data, so the axes get set to cover the full data (we force this by adding a geom_blank() layer), and it is only the point layer that should be subset:
# create some sample data (it is nice if you provide this in the question)
dat = expand.grid(Timestamp = 0:9, NID = 0:3)
dat$Fires = ifelse(dat$NID == 2, 1, 0)
# make the plot
ggplot(dat, aes(x = Timestamp, y = NID)) +
geom_blank() +
geom_point(dat = filter(dat, Fires == 1))

Answer 2

The code should look like that (see reasons in the comments):
F_int_time_breaks<- function(k) {
step <- k
function(y) seq(floor(min(y)), ceiling(max(y)), by = step)
}
ggplot(dat, aes(x = TimeStamp, y = NID) , xlab = "Time", ylab ="Neuron ID") +
geom_blank() +
geom_point(dat = subset(dat, Fires == 1)) +
#title(main = "Fire Trace Plot")
scale_x_continuous(breaks = F_int_time_breaks(1) )