# NOT RUN {
library(ggplot2)
# generate artificial data
set.seed(4321)
x <- 1:100
y <- rnorm(length(x), mean = 10)
my.data <- data.frame(x, y)
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_quadrat_counts()
ggplot(my.data, aes(x - 50, y - 10)) +
geom_hline(yintercept = 0, colour = "blue") +
geom_vline(xintercept = 0, colour = "blue") +
geom_point() +
stat_quadrat_counts(colour = "blue")
ggplot(my.data, aes(x - 50, y - 10)) +
geom_hline(yintercept = 0, colour = "blue") +
geom_point() +
stat_quadrat_counts(colour = "blue", pool.along = "x")
ggplot(my.data, aes(x - 50, y - 10)) +
geom_vline(xintercept = 0, colour = "blue") +
geom_point() +
stat_quadrat_counts(colour = "blue", pool.along = "y")
ggplot(my.data, aes(x - 50, y - 10)) +
geom_point() +
stat_quadrat_counts(quadrats = 0)
# }
Run the code above in your browser using DataLab