r_geom_lm_sample: A geom that shows a sampling of points

In EvaMaeRey/ggextend: What the Package Does (One Line, Title Case)

Description

A geom that shows a sampling of points

Usage

r_geom_lm_sample(
  mapping = NULL,
  data = NULL,
  position = "identity",
  na.rm = FALSE,
  show.legend = NA,
  inherit.aes = TRUE,
  ...
)

Arguments

...	all the geom_point arguments

Examples

# without the function
library(magrittr)
library(dplyr)
set.seed(1214)
cars %>%
 slice_sample( n = 10) ->
 cars_sample


library(ggplot2)
ggplot(data = cars) +
 aes(x = speed, y = dist) +
 geom_point() +
 geom_point(data = cars_sample,
            color = "magenta") +
 geom_smooth(method = lm, se = F,
             data = cars_sample)

# the proto and function
"StatSamplepoint"
r_geom_lm_sample

# using the function

my_seed <- sample(1:100, 1)
ggplot(data = cars) +
 aes(x = speed, y = dist) +
 geom_point() +
 geom_smooth(method = lm, se = F) +
 q_geom_point_sample(color = "red", seed = my_seed) +
 r_geom_lm_sample(color = "red", seed = my_seed)

EvaMaeRey/ggextend documentation built on Dec. 17, 2021, 7:24 p.m.