# Same output as with geom_point()
ggplot(mpg[1:20, ],
aes(cyl, hwy)) +
geom_point_s()
ggplot(mpg[1:20, ],
aes(cyl, hwy, label = drv)) +
geom_point_s(position = position_nudge_keep(x = 0.2),
color = "red",
segment.colour = "brown") +
geom_point_s()
ggplot(mpg[1:20, ],
aes(cyl, hwy, label = drv)) +
geom_point_s(position = position_nudge_keep(x = 0.2),
color = "red",
segment.colour = "brown") +
geom_point_s()
ggplot(mpg[1:50, ],
aes(cyl, hwy, label = drv)) +
geom_point_s(position = position_jitternudge(width = 0.66, height = 2,
seed = 456,
nudge.from = "jittered",
kept.origin = "original"),
color = "red",
arrow = grid::arrow(length = grid::unit(0.4, "lines"))) +
geom_point_s()
Run the code above in your browser using DataLab