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

Question

这可能是一个简单的问题，但我是 R 的新手，找不到答案（或者谷歌搜索错误的东西）。我目前正在进行一个项目，该项目涉及删除所有小于 5 分钟的时间值。数据示例如下，使用 "lubridate" 包创建的时间。

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

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

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

任何帮助都会很棒！谢谢！

Answer 1

你可以这样做：

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

结果：

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

奇怪的是，将其转换为 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)

Answer 2

试试这个..

> 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

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

Delete all times less than a specified value

time

if-statement

r

lubridate