如何批量处理DataFrame中的冒号？R语言时间差计算求助

方法1：用tidyverse工具批量处理（推荐） #

如果你的数据框里有多个时间列，用dplyr配合stringr可以高效批量替换，不用逐个值修改：

• 替换指定列的冒号为空白（直接删除冒号）：

library(dplyr)
library(stringr)

# 假设QS1、QS2是你的时间列，替换冒号为空
data <- data %>%
  mutate_at(vars(QS1, QS2), ~str_replace_all(., ":", ""))

• 替换指定列的冒号为句号：

data <- data %>%
  mutate_at(vars(QS1, QS2), ~str_replace_all(., ":", "."))

• 如果要替换所有字符型列里的冒号：

data <- data %>%
  mutate_all(~ifelse(is.character(.), str_replace_all(., ":", ""), .))

方法2：用Base R原生函数处理 #

不想加载额外包的话，用gsub配合批量操作也能实现：

• 处理单个列：

# 删除QS1列的冒号
data$QS1 <- gsub(":", "", data$QS1)

• 批量处理所有字符型列：

# 先筛选出所有字符型列
char_columns <- sapply(data, is.character)
# 对这些列批量替换冒号
data[char_columns] <- lapply(data[char_columns], function(col) gsub(":", "", col))

额外建议：直接转时间类型计算睡眠时长 #

其实不用替换冒号也能计算睡眠时长，用hms包把字符串转成时间对象，直接做时间差计算更准确：

library(hms)

# 将入睡时间转成hms类型
data <- data %>%
  mutate(sleep_start = hms(QS1))
# 假设起床时间列是QS2，同样转成hms类型后计算时长
data <- data %>%
  mutate(sleep_duration = hms(QS2) - sleep_start)

内容的提问来源于stack exchange，提问作者Ella