R 如何删除TSIBLE对象聚合中的时间组件？

我一直在使用tsibble包，但我不知道如何从聚合结果中删除时间组件。 所以在下面的数据集中，我想得到按地区和州划分的平均行程。将TSIBLE转换为TIBLE的正确方法可能是，我只是不确定，还是我缺少了一些实现聚合的选项

library(tsibble)
library(dplyr)

tourism %>% group_by(Region, State) %>% summarise(Mean_trips = mean(Trips))

# A tsibble: 6,080 x 4 [1Q]
# Key:       Region, State [76]
# Groups:    Region [76]
   Region   State           Quarter Mean_trips
   <chr>    <chr>             <qtr>      <dbl>
 1 Adelaide South Australia 1998 Q1       165.
 2 Adelaide South Australia 1998 Q2       112.
 3 Adelaide South Australia 1998 Q3       148.

## This is not what I want, this is what I want:

tourism %>% as_tibble %>% group_by(Region, State) %>% summarise(Mean_trips = mean(Trips))

# A tibble: 76 x 3
# Groups:   Region [76]
   Region                     State              Mean_trips
   <chr>                      <chr>                   <dbl>
 1 Adelaide                   South Australia        143.  
 2 Adelaide Hills             South Australia          7.18

如果我们在旅游数据上使用select Quarter，它会给出一条信息性错误消息

library(tsibble)
library(dplyr)

tourism %>% select(-Quarter)

错误：无法删除列季度索引。您是否需要尽可能多地使用数据帧

因此，as_tible是转换为tible的正确方法

tourism %>% 
    as_tibble %>% 
    group_by(Region, State) %>% 
    summarise(Mean_trips = mean(Trips))

#   Region                     State              Mean_trips
#   <chr>                      <chr>                   <dbl>
# 1 Adelaide                   South Australia        143.  
# 2 Adelaide Hills             South Australia          7.18
# 3 Alice Springs              Northern Territory      14.2 
# 4 Australia's Coral Coast    Western Australia       47.4 
#...

---

为了完整起见： 从tsibble的

列式动词，包括选择、转换、总结、， 变异&蜕变，保持时间的上下文悬而未决。就是， 无法删除TSIBLE的索引变量。如果有钥匙 变量更改后，它将验证它是否为TSIBLE 内部。使用as_tible可省略时间上下文

---

时间部分不能删除，因为tible是转换为tible的正确选择。

我认为as tible是正确的方法，正如做旅游时建议的那样%>%选择QuarterOk然后如果这是正确的方法，请将其作为答案！非常感谢。参考手册：列式动词，包括select、transmute、summary、mutate和transmute，保持时间上下文悬而未决。也就是说，不能删除TSIBLE的索引变量。如果更改了任何键变量，它将在内部验证它是否为TSIBLE。使用as_tible可省略时间上下文。