在R语言中创建指定长度的页面路径序列

要实现按会话生成长度最多为5的滑动页面路径，并标注起始和结束页面，可通过以下两种方法完成：

方法一：使用dplyr + slider包 #

该方法利用滑动窗口函数高效处理分组数据：

# 安装并加载所需包
install.packages(c("dplyr", "slider"))
library(dplyr)
library(slider)

# 原始数据集
df <- structure(list(
  sess_id = c(4, 4, 4, 4, 4, 4, 4, 7, 7, 7, 7, 7), 
  Page = c("A", "B", "C", "D", "A", "C", "B", "B", "C", "D", "A", "D")),
  .Names = c("sess_id", "Page"),
  row.names = c(NA, -12L),
  class = "data.frame"
)

# 处理数据
result <- df %>%
  group_by(sess_id) %>%
  mutate(
    # 生成滑动窗口：取当前行及前4行（最多5个元素）
    window = slide(Page, ~., .before = 4, .complete = FALSE),
    # 拼接页面为路径字符串
    Path = sapply(window, paste0, collapse = ""),
    # 提取窗口的起始和结束页面
    Start = sapply(window, first),
    End = sapply(window, last)
  ) %>%
  # 会话首行无有效路径，置为空
  mutate(
    Path = ifelse(lengths(window) < 2, "", Path),
    Start = ifelse(lengths(window) < 2, "", Start),
    End = ifelse(lengths(window) < 2, "", End)
  ) %>%
  select(-window) %>%
  ungroup()

# 查看结果
print(result, n = 12)

方法二：Base R 实现 #

无需额外包，通过循环处理每个会话：

# 原始数据集
df <- structure(list(
  sess_id = c(4, 4, 4, 4, 4, 4, 4, 7, 7, 7, 7, 7), 
  Page = c("A", "B", "C", "D", "A", "C", "B", "B", "C", "D", "A", "D")),
  .Names = c("sess_id", "Page"),
  row.names = c(NA, -12L),
  class = "data.frame"
)

# 初始化新增列
df$Path <- ""
df$Start <- ""
df$End <- ""

# 按会话循环处理
for (sess in unique(df$sess_id)) {
  session_rows <- df$sess_id == sess
  session_pages <- df$Page[session_rows]
  row_count <- length(session_pages)
  
  # 遍历会话内的每一行（从第2行开始）
  for (i in 2:row_count) {
    # 确定窗口起始位置：最多取前4个元素，保证窗口长度不超过5
    start_pos <- max(1, i - 4)
    window_pages <- session_pages[start_pos:i]
    
    # 填充路径、起始和结束页面
    df$Path[session_rows][i] <- paste0(window_pages, collapse = "")
    df$Start[session_rows][i] <- window_pages[1]
    df$End[session_rows][i] <- window_pages[length(window_pages)]
  }
}

# 查看结果
print(df)

两种方法均可生成符合需求的结果：每个会话首行无路径信息，从第2行开始生成最多包含5个页面的滑动路径，并标注该路径的起始和结束页面。

内容的提问来源于stack exchange，提问作者user2845095