删除小于指定值的所有时间

这可能是一个简单的问题，但我是R新手，无法找到答案（或者是用错误的方式搜索）。我目前正在进行一项涉及删除小于5分钟的所有时间值的项目。数据示例如下，使用“lubridate”软件包创建时间。删除小于指定值的所有时间

Time 
19S 
1M 24S 
7M 53S 
11M 6S 
. 
. 
.

现在我想删除这是不到5分钟的所有值。因此，最终的数据集我希望得到的是：

Time 
7M 53S 
11M 6S 
. 
. 
.

任何帮助将是惊人的！谢谢！

来源

2017-09-22 Fiona

你可以做到这一点：

df <- df[df$time > ms('5:00'), ]

结果：

> df 
    time value 
3 7M 53S  3 
4 11M 6S  4

Strangly不够，转换这dplyr代码;这是行不通的：

filter(df, time > ms('5:00'))

结果：

time 
1 53S 
2 1M 6S 
Warning message: 
In format.data.frame(x, digits = digits, na.encode = FALSE) : 
    corrupt data frame: columns will be truncated or padded with NAs

我问的这个问题，并找到了一个答案here。你得到了很好的解决方案：

df %>% 
    mutate(time = as.numeric(time)) %>% 
    filter(time > as.numeric(ms('5:00'))) %>% 
    mutate(time = ms(paste0(floor(time/60),':',round((time/60 - floor(time/60))*60))))

数据：

df <- data.frame(time = ms(c('0:19','1:24','7:53','11:6')), value = 1:4)

来源

2017-09-22 08:36:26 h3rm4n

我刚刚删除了我以前的评论，因为我已经找到了我的方式错误。你的代码是完美的。谢谢！ :) – Fiona

试试这个..

> library(lubridate) 
> TimeData <- data.frame(Time = c("0M 19S", "1M 24S", "7M 53S", "11M 6S")) 
> TimeData$Time <- ms(TimeData$Time) 
> subset(TimeData, Time > "5M 00S") 
    Time 
3 7M 53S 
4 11M 6S

来源

2017-09-22 08:46:49 JustCurious

这与我之前发布的方法基本相同。 – h3rm4n

谢谢您的输入:) – Fiona

删除小于指定值的所有时间

回答

相关问题