在r中选择特定值后选择行

发布于 2025-02-10 16:29:36 字数 1023 浏览 5 评论 0原文

我只想在值“ openwebsite”和“ closewebsite”之间选择我的数据框架的所有行（包括行本身）（请参阅变量“活动”）。我需要使用选择或过滤器功能吗？

非常感谢！

dataframe：

人	活动	持续时间
1	写	9
1	OpenWebsite	8
1	油漆	9
1	写	2
1	写	4
1	闭合Website	9
1	写	4

输出

persition	utivation	持续时间
1	OpenWebsite	1 OpenWebsite 8
1	Paint	9
1	写	2
1	写	4
1	CloseWebsite	9

原文

I just want to select all the rows (including the row itself) of my data frame between the value "openwebsite" and "closewebsite" (see variable "activity"). Do I need to use the select- or filter-function?

Thank you a lot!

Dataframe:

Person	activity	duration
1	write	9
1	openwebsite	8
1	paint	9
1	write	2
1	write	4
1	closewebsite	9
1	write	4

Output

Person	activity	duration
1	openwebsite	8
1	paint	9
1	write	2
1	write	4
1	closewebsite	9

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

我是男神闪亮亮 2025-02-17 16:29:36

您可以尝试

library(dplyr)
df %>%
  filter(1 == cumsum((activity == "openwebsite") - 
                       lag(activity == "closewebsite", default = 0)))

  Person     activity duration
1      1  openwebsite        8
2      1        paint        9
3      1        write        2
4      1        write        4
5      1 closewebsite        9

或

df %>%
  filter(1 <= cumsum(activity == "openwebsite"),
         lag(cumsum(activity == "closewebsite")) < 1)

You may try

library(dplyr)
df %>%
  filter(1 == cumsum((activity == "openwebsite") - 
                       lag(activity == "closewebsite", default = 0)))

  Person     activity duration
1      1  openwebsite        8
2      1        paint        9
3      1        write        2
4      1        write        4
5      1 closewebsite        9

df %>%
  filter(1 <= cumsum(activity == "openwebsite"),
         lag(cumsum(activity == "closewebsite")) < 1)

回复收藏 0 原文

梦魇绽荼蘼 2025-02-17 16:29:36

start_row <- (1:nrow(df))[df$activity == "openwebsite"]
end_row <- (1:nrow(df))[df$activity == "closewebsite"]
df[start_row:end_row,]

  Person     activity duration
2      1  openwebsite        8
3      1        paint        9
4      1        write        2
5      1        write        4
6      1 closewebsite        9

您还可以使用grep获得开始和结束编号，例如

grep("openwebsite", df$activity)

start_row <- (1:nrow(df))[df$activity == "openwebsite"]
end_row <- (1:nrow(df))[df$activity == "closewebsite"]
df[start_row:end_row,]

  Person     activity duration
2      1  openwebsite        8
3      1        paint        9
4      1        write        2
5      1        write        4
6      1 closewebsite        9

You can also get the start and end row number with grep, e.g.