字符串转换为数组：开放时间（一周以上）

Question

我已经完成了 OSM 提取，在这里您可以看到 R 中每个对象的开放时间的“osm_openin”列。 它具有以下结构：

我希望一周中的每一天都有新的栏目，并带有符号“X” - 如果不是全天开放 - 或相应的开放时间日“07:00 - 21:00”。

我的解决方案：

首先，我考虑使用工作日的代表值“Mo = 1”，“Tu = 2”...“Su = 7”。如果日期/值本身没有明确提及，但以间隔形式存在，则这一点很重要。

对于每个值，我都在列中搜索其是否存在。 如果找到该值，我将直接获取随后的开放时间（不知道要使用哪个 R 命令） 如果不是，那么该值必须在一个区间内。例如“2”（星期二）不存在，那么脚本需要意识到星期二是在 Mo-Sa 之间。 （不知道该使用哪种方法）。

公共假期并不重要。

有什么解决方案的建议吗？

谢谢。

Answer 1

我不知道最好的方法，但也许我可以为您提供帮助。
首先，我们需要创建工作日的数组：

wdays <- c("Mo", "Tu", "We", "Th", "Fr", "Sa", "Su")

现在让我们编写代码以将文本从“ mo，we-fr”转换为vector c（1，1，3，3，4，5） 。算法：

1. 删除有关节日的信息（“ pH”，“ SH”）;
2. 用数字替换工作日的名称（“ Mo” - ＆gt; 1，“ tu” - ＆gt; 2 2 代码>等）;
3. -用：替换。例如，3-5将为3：5，它是R型代码；
4. 将c（添加到开始，）到结尾。例如，1,3：5将为c（1，3：5）;
5. c（1，3：5）是R风格向量，我们可以通过文本创建向量（eval（parse（parse（text =“ c（1，3：5）”）））< /代码>）。

完整代码：

GetWDays <- function(x, wdays) {
    holi <- c("PH", "SH")
    x <- gsub(paste0("(,|^)", holi, collapse = "|"), "", x) #delete holidays
    
    for (i in 1:7) {
        x <- gsub(wdays[i], i, x)
    }
    
    x <- gsub("-", ":", x)
    x <- paste0("c(", x, ")")
    
    wday_idx <- eval(parse(text = x))
    return(wday_idx)
}

让我们创建具有开放时间的功能（例如“ Mo-Fr 6：30-19：00; SA 09：00-17：00; SU，pH 09：00-15：00”）作为输入并返回数据。框架，带有7列（对于每个工作日）。算法：

1. 通过;拆分文本;现在，我们将使用文本的一部分（例如，“ mo-fr 6：30-19：00”）;
2. 通过（space）拆分文本; “ mo-fr 6：30-19：00” - ＆gt; “ mo-fr”和“ 6：30-19：00”
3. 第一部分（“ mo-fr”），我们将> getwdays ，我们从第二部分制作矢量（大小将就像第一部分大小一样）。示例：“ mo-fr” - ＆gt; c（1,2,3,4,5），“ 6：30-19：00” - ＆gt; REP（“ 6：30-19：00”，5）;
4. 从2个向量制作数据。
5. 从第一步使用bind_rows。现在我们有了大数据。框架，但是某些工作日可能丢失了，并且某些工作日可能在time中具有“ OFF”;
6. 因此，添加缺少工作日的行（通过Merge），然后替换“ off”和na “ x”（（根据您的意愿）；
7. transpose data.frame并返回

完整代码：

GetTimetable <- function(x) {
    wdays <- c("Mo", "Tu", "We", "Th", "Fr", "Sa", "Su")
    
    
    tmp <- strsplit(strsplit(x, ";")[[1]], " ")
    tmp <- lapply(tmp, function(x) {Day <- GetWDays(x[1], wdays); data.frame(Day, Time = rep(x[2], length(Day)))})
    tmp <- bind_rows(tmp) %>% arrange(Day) %>% as.data.frame()
    tmp <- merge(data.frame(Day = 1:7), tmp, all.x = T, by = "Day")
    tmp$Time[is.na(tmp$Time) | tmp$Time == "Off"] = "X"
    
    tmp <- tmp %>% t() %>% "["(2, ) %>% as.list() %>% setNames(wdays) %>% bind_cols()
    return(tmp)
}

如果要应用getTimetable每行可以使用此代码：

df_time <- df$osm_openning %>% lapply(GetTimetable) %>% bind_rows()

并且如果要将此data.frame添加到数据，则可以执行此类操作。 ：

df <- bind_cols(df, df_time)