轉換年齡輸入爲'X周，Y天，Z小時中的R

Question

我有一個包含了按照這一（不一致）格式觀測年齡變量：

3 weeks, 2 days, 4 hours 
4 weeks, 6 days, 12 hours 
3 days, 18 hours 
4 days, 3 hours 
7 hours 
8 hours 

我需要使用到每個觀測到幾小時轉換R.

我已經使用strsplit(vector, ',')到可變在每個逗號分開。

我運行的問題，因爲在「」產量從1至3項爲每個觀察分裂每個觀察的任何地方。我不知道如何對這些條目進行適當的索引，以便每次觀察都得到一行。

我猜，一旦我能夠將這些值存儲在懂事行，我可以從每列連續提取數字數據，並相應轉換，再總結整個行。

我也接受任何不同的方法來解決這個問題。

Answer 1

你分割你的數據後，您可以解析爲定義諸如「小時」，「周」，「天」的時代關鍵詞的結果列表，並創建包含相關值（或0數據幀，如果沒有的價值某個關鍵字）。你可以做到這一點像這樣的東西：

library(dplyr) 
vector = c("3 weeks, 2 days, 4 hours", "4 weeks, 6 days, 12 hours", "3 days, 18 hours", "4 days, 3 hours", "7 hours", "8 hours") 
split_vector = strsplit(vector, ",", fixed = TRUE) 


parse_string = function(i){ 
    x = split_vector[[i]] 
    data_frame(ID = i) %>% 
    mutate(hours = ifelse(any(grepl("hours", x)), as.numeric(gsub("\\D", "", x[grepl("hours", x)])), 0), 
      days = ifelse(any(grepl("days", x)), as.numeric(gsub("\\D", "", x[grepl("days", x)])), 0), 
      weeks = ifelse(any(grepl("weeks", x)), as.numeric(gsub("\\D", "", x[grepl("weeks", x)])), 0)) 
} 

all_parsed = lapply(1:length(split_vector), parse_string) 
all_parsed = rbind_all(all_parsed) %>% 
    mutate(final_hours = hours + days * 24 + weeks * 7 * 24) 

Answer 2

Hadleyverse來救援再次：

library(lubridate) 
library(stringr) 

dat <- readLines(textConnection(" 3 weeks, 2 days, 4 hours 
4 week, 6 days, 12 hours 
3 days, 18 hours 
4 day, 3 hours 
7 hours 
8 hour")) 

sapply(str_split(str_trim(dat), ",[ ]*"), function(x) { 
    sum(sapply(x, function(y) { 
    bits <- str_split(str_trim(y), "[ ]+")[[1]] 
    duration(as.numeric(bits[1]), bits[2]) 
    }))/3600 
}) 

## [1] 556 828 90 99 7 8 

我疲憊不堪的數據位，顯示它也是它是如何解析的東西一定的柔性。我真的不認爲第二個str_trim是絕對必要的，但沒有周期來驗證。

博覽會是它修剪原矢量然後將其分解爲組件（這使得向量的列表）。然後迭代該列表，並且將各個向量元素進一步修剪並分割爲＃和單位持續時間。這通過lubridate和價值返回並自動轉換爲數字秒通過sum調用，然後我們把它變成幾個小時。