基于R中的两列填充一列

Question

我有以下数据集，并且正在尝试创建一个更有意义的路径。

行＃	会话	单击	页
第1	123	123输入	PG1
2	123	PHPBUTTON	PG1
3	123	ENTER	PG2
4	123	ENTER	PG3
5	123	form1	pg3
6	123	form2	pg3
7	123	form1 form1	8
123	form1	pg3	pg3
9	123	abcbutton	pg3
10	123	Enter	PG1
pg3	103	pg3	abcbutton
form1	123	输入	PG4
13	123	输入	PG3
14	123	返回	PG3
15	123	Enter	PG1

我希望结果看看以下结果：

会话	活动
123	PG1
123	PHPBUTTON
123	PG2
123	PG2
123 PG3 123 pG3 123	form1
123	form2 form2
123	form2 form2 form2 form2
form1 form1 form1 form1 123	abcbutton
abcbutton 123	PG1 123 PG1
123	XYZSELECT
123	PG4
PG3	123 PG4 123 PG3 PG4 123 PG3 PG3 PG3 PG3 PG3 PG3 PG3 PG3
123	返回
123	PG1

如果单击列已输入，则活动列应显示页面。但是，如果后续页面等于上一页，则“活动”列应显示“单击”列中的值。例如，第1行和第2行具有相同的页码，因此我希望活动列显示PG1，然后是PHPBUTTON。但是，如果单击列具有两个或多个后续相同值，如第7和8行所示，我希望“活动”列仅显示表格1的一个条目

。非常感谢。

Answer 1

尝试一下

df |> group_by(Session) |> 
mutate(Activity = case_when(Click == "Enter" ~ Page , 
lag(Page) == Page ~ Click)) |> select(Session , Activity)

Answer 2

library(dplyr)

dat$activity <- ifelse(dat$click == "Enter" & (lag(dat$page) != dat$page | is.na(lag(dat$page))), dat$page,
       ifelse(lag(dat$page) == dat$page, dat$click, NA))

   row session     click page  activity
1    1     123     Enter  Pg1       Pg1
2    2     123 phpbutton  Pg1 phpbutton
3    3     123     Enter  Pg2       Pg2
4    4     123     Enter  Pg3       Pg3
5    5     123     Form1  Pg3     Form1
6    6     123     Form2  Pg3     Form2
7    7     123     Form1  Pg3     Form1
8    8     123     Form1  Pg3     Form1
9    9     123 abcbutton  Pg3 abcbutton
10  10     123     Enter  Pg1       Pg1
11  11     123 xyzselect  Pg1 xyzselect
12  12     123     Enter  Pg4       Pg4
13  13     123     Enter  Pg3       Pg3
14  14     123      Back  Pg3      Back
15  15     123     Enter  Pg1       Pg1

您可以删除类似的重复，连续行：

dat[cumsum(rle(paste0(dat$session, dat$click, dat$page, dat$activity))$length),]

   row session     click page  activity
1    1     123     Enter  Pg1       Pg1
2    2     123 phpbutton  Pg1 phpbutton
3    3     123     Enter  Pg2       Pg2
4    4     123     Enter  Pg3       Pg3
5    5     123     Form1  Pg3     Form1
6    6     123     Form2  Pg3     Form2
8    8     123     Form1  Pg3     Form1
9    9     123 abcbutton  Pg3 abcbutton
10  10     123     Enter  Pg1       Pg1
11  11     123 xyzselect  Pg1 xyzselect
12  12     123     Enter  Pg4       Pg4
13  13     123     Enter  Pg3       Pg3
14  14     123      Back  Pg3      Back
15  15     123     Enter  Pg1       Pg1

数据：

structure(list(row = 1:15, session = c(123L, 123L, 123L, 123L, 
123L, 123L, 123L, 123L, 123L, 123L, 123L, 123L, 123L, 123L, 123L
), click = c("Enter", "phpbutton", "Enter", "Enter", "Form1", 
"Form2", "Form1", "Form1", "abcbutton", "Enter", "xyzselect", 
"Enter", "Enter", "Back", "Enter"), page = c("Pg1", "Pg1", "Pg2", 
"Pg3", "Pg3", "Pg3", "Pg3", "Pg3", "Pg3", "Pg1", "Pg1", "Pg4", 
"Pg3", "Pg3", "Pg1")), row.names = c(NA, -15L), class = "data.frame")