在R语言中根据事件发生记录统计总时长

First, let's use the lubridate package to handle time conversions and calculations easily—it's the go-to tool for time-related tasks in R. Here's a step-by-step solution tailored to your data:

Step 1: Fix and Recreate Your Data #

Your provided data was truncated, so I filled in the missing seconds for the last timestamp to make it usable:

df <- structure(
  list(Time.stamp = structure(
    1:34, 
    .Label = c("00:07:00", "00:12:00", "00:18:00", "00:23:00", "00:28:00", "00:33:00", "00:38:00", "00:43:00", "00:48:00", "00:53:00", "00:58:00", "01:03:00", "01:08:00", "01:13:00", "01:18:00", "01:23:00", "01:28:00", "01:33:00", "01:38:00", "01:43:00", "01:48:00", "01:53:00", "01:58:00", "02:03:00", "02:08:00", "02:13:00", "02:18:00", "02:23:00", "02:28:00", "02:33:00", "02:38:00", "02:43:00", "02:48:00", "02:53:00"), 
    class = "factor"
  )), 
  row.names = c(NA, 34L), 
  class = "data.frame"
)

Step 2: Convert Timestamps to Calculable Time Objects #

Your Time.stamp column is stored as a factor—we need to convert it to a time format R can work with. lubridate::hms() is perfect for hours-minutes-seconds strings:

# Install lubridate if you haven't already
install.packages("lubridate")
library(lubridate)

# Convert factor to a proper time object
df$Time <- hms(df$Time.stamp)

Step 3: Calculate Total Duration (Two Common Scenarios) #

How you calculate duration depends on how your events are structured. Here are the two most likely cases:

Scenario 1: Consecutive timestamps are event intervals #

If each timestamp marks the end of one event and the start of the next, calculate the difference between consecutive rows and sum them:

# Compute time differences between each pair of consecutive timestamps
time_diffs <- diff(df$Time)

# Sum all intervals to get total duration
total_duration <- sum(time_diffs)

# View the result
total_duration

For your data, this sums all the 5-minute (and one 6-minute) gaps between timestamps.

Scenario 2: Timestamps are paired as start/end events #

If odd-indexed rows are event starts and even-indexed are ends (or vice versa), pair them up and sum the individual event durations:

# Split into start and end times (adjust indices if your pairing is reversed)
start_times <- df$Time[seq(1, nrow(df), 2)]
end_times <- df$Time[seq(2, nrow(df), 2)]

# Calculate duration for each event
event_durations <- end_times - start_times

# Sum to get total duration
total_duration <- sum(event_durations)

# View the result
total_duration

Step 4: Format the Result (Optional) #

To display the total duration in a human-readable hours:minutes:seconds format, convert it to a character string:

as.character(total_duration)

If your event structure is different (like having explicit start/end labels), just let me know and I can adjust the solution!

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