r總結小時格式

我正在處理總結數據，以分鐘計，然後以小時計（無天）。我如何以數字方式將其繪製在圖表上。r總結小時格式

下面的數據看起來像在HH的格式樣本：毫米

set.seed(121) 

df <- data.frame(hspt = letters[1:3], 
       Jan = paste0(sample(1:1000, 3, replace=TRUE),":", 
        stringr::str_pad(sample(0:60, 3, replace=TRUE), 2, pad = "0")), 
       Feb = paste0(sample(1:1000, 3, replace=TRUE),":", 
        stringr::str_pad(sample(0:60, 3, replace=TRUE), 2, pad = "0")), 
       Mar = paste0(sample(1:1000, 3, replace=TRUE),":", 
        stringr::str_pad(sample(0:60, 3, replace=TRUE), 2, pad = "0")), 
       stringsAsFactors = F) 

df 
    hspt Jan Feb Mar 
1 a 763:28 255:37 289:49 
2 b 551:37 947:07 136:46 
3 c 422:14 783:29 618:56

來源

2017-06-17 user3357059

[如何在R中將時間（mm：ss）轉換爲小數形式）（https://stackoverflow.com/questions/5186972/how-to-convert-time-mmss-to-decimal- form-in-r） – lebelinoz

另一個問題是分鐘和秒，而不是幾小時和幾分鐘。但是答案中的邏輯在這裏都是有效的。 – lebelinoz

如果您重塑長的形式，無論是轉換和繪圖更容易：

library(tidyverse) 
set.seed(121) 

df <- data.frame(hspt = letters[1:3], 
       Jan = paste0(sample(1:1000, 3, replace=TRUE),":", stringr::str_pad(sample(0:60, 3, replace=TRUE), 2, pad = "0")), 
       Feb = paste0(sample(1:1000, 3, replace=TRUE),":", stringr::str_pad(sample(0:60, 3, replace=TRUE), 2, pad = "0")), 
       Mar = paste0(sample(1:1000, 3, replace=TRUE),":", stringr::str_pad(sample(0:60, 3, replace=TRUE), 2, pad = "0")), 
       stringsAsFactors = F) 

df2 <- df %>% 
    gather(month, time, -hspt) %>% # reshape to long 
    separate(time, c('hours', 'minutes'), convert = TRUE) %>% 
    mutate(month = factor(month, month.abb[1:3], ordered = TRUE), # for x-axis order 
      time = 60 * hours + minutes) 

df2 
#> hspt month hours minutes time 
#> 1 a Jan 400  46 24046 
#> 2 b Jan 952  33 57153 
#> 3 c Jan 544  25 32665 
#> 4 a Feb 468  15 28095 
#> 5 b Feb 614  57 36897 
#> 6 c Feb 238  47 14327 
#> 7 a Mar 617  17 37037 
#> 8 b Mar 124  8 7448 
#> 9 c Mar 478  37 28717 

ggplot(df2, aes(month, time, color = hspt, group = hspt)) + geom_line()

來源

2017-06-18 01:37:18 alistaire

這將給時間（分鐘）

library(lubridate) 

df 
# hspt Jan Feb Mar 
# 1 a 400:46 468:15 617:17 
# 2 b 952:33 614:57 124:08 
# 3 c 544:25 238:47 478:37 

df[, -1] <- sapply(df[, -1], function(x) hour(hm(x))*60 + minute(hm(x))) 
df 
# hspt Jan Feb Mar 
# 1 a 24046 28095 37037 
# 2 b 57153 36897 7448 
# 3 c 32665 14327 28717

來源

2017-06-17 23:51:31 AkselA

r總結小時格式

回答

相關問題