使用同一日期字段计算日期差 按条件统计电池年月运行分钟总和

Hey there! Let's work through your two technical requirements using R, given your dataset is an R data frame. Let's break this down step by step.

要基于单个Time.stamp字段计算日期/时间差，首先需要把这个字段从因子类型转换为日期时间格式，之后就能轻松计算相邻记录的时间间隔，或者与某个基准时间的差值。

实现步骤： #

• 第一步：将Time.stamp转换为POSIXct格式（R中常用的标准日期时间类型）
• 第二步：使用diff()函数计算相邻时间的差值，或用difftime()计算与特定时间的差

示例代码：

# 先还原你的数据集
df <- structure(list(
  Time.stamp = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 10L, 11L, 12L, 12L, 13L), 
                         .Label = c("01/04/2016 00:00", "01/04/2016 00:01", "01/04/2016 00:02", 
                                    "01/04/2016 00:03", "01/04/2016 00:04", "01/04/2016 00:05", 
                                    "01/04/2016 00:06", "01/04/2016 00:07", "01/04/2016 00:08", 
                                    "01/04/2016 00:09", "01/04/2016 00:11", "01/04/2016 00:12", 
                                    "01/04/2016 00:13"), class = "factor"),
  Battery.voltage = c(51L, 52L, 45L, 48L, 49L, 55L, 54L, 52L, 51L, 49L, 48L, 47L, 45L, 50L, 51L),
  Condition = structure(c(1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L), 
                        .Label = c("No", "Yes"), class = "factor")),
  .Names = c("Time.stamp", "Battery.voltage", "Condition"),
  class = "data.frame", row.names = c(NA, -15L))

# 转换时间格式：注意你的日期是dd/mm/yyyy格式，需指定format参数
df$time_datetime <- as.POSIXct(df$Time.stamp, format = "%d/%m/%Y %H:%M")

# 计算相邻记录的时间差（单位：分钟）
df$time_diff_mins <- c(NA, diff(df$time_datetime, units = "mins"))

# 计算每条记录与第一条记录的时间差（单位：分钟）
df$time_from_start_mins <- as.numeric(difftime(df$time_datetime, df$time_datetime[1], units = "mins"))

# 查看结果
head(df[c("Time.stamp", "time_diff_mins", "time_from_start_mins")])

说明： #

• diff()函数返回相邻元素的差值，第一条记录因无前序数据，差值为NA
• difftime()可灵活指定时间差的单位（分钟、小时、天等）

你的需求是：当Battery.voltage < 50（即Condition = "Yes"）时计入运行时长，最终按年月统计总分钟数。注意数据中存在重复时间戳（比如01/04/2016 00:09出现两次），需先处理时间间隔再筛选统计。

实现步骤： #

1. 转换时间格式为POSIXct
2. 计算每条记录对应的运行时长（当前记录到下一条记录的时间差）
3. 筛选Condition = "Yes"的记录，累加有效时长
4. 按年月分组，计算总时长

示例代码：

# 转换时间格式（已完成可跳过）
df$time_datetime <- as.POSIXct(df$Time.stamp, format = "%d/%m/%Y %H:%M")

# 计算每条记录的运行时长（当前到下一条的时间差，最后一条设为0）
df$run_mins <- c(diff(df$time_datetime, units = "mins"), 0)

# 筛选符合条件的记录
filtered_df <- df[df$Condition == "Yes", ]

# 提取年月信息用于分组
filtered_df$year_month <- format(filtered_df$time_datetime, "%b %Y")

# 用dplyr分组求和（也可使用base R的aggregate函数）
library(dplyr)
summary_df <- filtered_df %>%
  group_by(year_month) %>%
  summarise(Sum_of_mins_running_in_battery = sum(run_mins)) %>%
  rename(Month_year = year_month)

# 查看结果
print(summary_df)

输出示例（对应你的数据集）： #

# A tibble: 1 × 2
  Month_year Sum_of_mins_running_in_battery
  <chr>                                <dbl>
1 Apr 2016                                 7

（说明：你的数据中符合条件的记录总时长为7分钟：00:02-00:03是1分钟，00:03-00:04是1分钟，00:04-00:05是1分钟；00:09-00:11是2分钟；00:11-00:12是1分钟；00:12-00:13是1分钟，总和1+1+1+2+1+1=7）

如果数据集包含更多年月的数据，结果会自动按不同年月分组展示，比如：

Month_year Sum_of_mins_running_in_battery
Apr 2016                                 7
May 2016                               350
Jun 2016                               450

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