刪除小於指定值的所有時間

這可能是一個簡單的問題，但我是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

刪除小於指定值的所有時間

回答

相關問題