小编Ste*_*ger的帖子

A 有一个带有代表小时和分钟的字符串的列。我想整理该列并将元素转换为仅表示分钟的整数。

这些字符串可以具有以下形式之一：

• “5”（表示 5 分钟）
• “XX分钟”（意思是xx分钟）
• “X 标准”（意味着 x 小时）
• “X Std. YY min”（表示 x 小时和 yy 分钟）

我编写了一个函数将这些字符串转换为分钟。

• “5”应该变成5。
• “45 分钟”应该变成 45。
• “2 标准”应该变成 120。
• “1 Std. 30 min”应该变成 90。

这是函数的样子：

convert_ZA_time <- function(string) {
    if (nchar(string) == 1) {
      result <- as.integer(string)
    }
    else if (endsWith(string, " Std")) {
      result <- as.integer(substring(string, 1, 1)) * 60
    }
    else if (endsWith(string, " min") && nchar(string) == 6) {
      result <- as.integer(substring(string, 1, 2))
    }
    else if (endsWith(string, " …