R组回程数据列

发布于04月26日

我有火车旅行的数据，以及我想计算的晚点或取消火车的数量.

Start     End        Delayed Cancelled
Paris     Rome       1       0
Brussels  Berlin     4       6
Berlin    Brussels   6       2
Rome      Paris      2       1

我如何将起始列和结束列进行分组，得出巴黎-罗马、罗马-巴黎、布鲁塞尔-柏林和柏林-布鲁塞尔的总和，从而得出火车线路延误和取消的总行程？

推荐答案

按字母顺序排列并按组总结:

df |> 
  group_by(route = if_else(Start < End, paste(Start, End, sep = "-"), paste(End, Start, sep = "-"))) |> 
  summarise(Delayed = sum(Delayed), Cancelled = sum(Cancelled))

#   route           Delayed Cancelled
#   <chr>             <int>     <int>
# 1 Berlin-Brussels      10         8
# 2 Paris-Rome            3         1

可复制数据:

df = data.frame(
  Start     = c("Paris", "Brussels", "Berlin", "Rome"),
  End       = c("Rome", "Berlin", "Brussels", "Paris"),
  Delayed   = c(1L, 4L, 6L, 2L),
  Cancelled = c(0L, 6L, 2L, 1L)
)