# Attach packages
library(rearrr)
library(dplyr)
# Set seed
set.seed(1)
# Create a data frame
df <- data.frame(
"index" = 1:10,
"A" = sample(1:10),
"B" = runif(10),
"C" = LETTERS[1:10],
"G" = rep(1:2, each = 5),
stringsAsFactors = FALSE
)
# For vector
rev_windows_vec(1:10, window_size = 3)
# For data frame
rev_windows(df, window_size = 3)
rev_windows(df, window_size = 3, factor_name = NULL)
# Grouped by G
df %>%
dplyr::select(G, index) %>% # For clarity
dplyr::group_by(G) %>%
rev_windows(window_size = 3)
# Plot the extreme pairs
plot(
x = 1:10,
y = rev_windows_vec(1:10, window_size = 3)
)
Run the code above in your browser using DataLab