通过R脚本将持续时间以HH：MM：SS格式存储在xlsx文件中

Question

我正在从R脚本编写一个包含活动持续时间的xlsx文件。

我应该能够在创建的xlsx文件中进行持续时间的求和/平均运算。

如果我使用以下脚本：

library(xlsx)
d<-c("08:23:55", "09:34:45", "11:21:50")

d<-(as.integer(substr(d, 1, 2))*60 + as.integer(substr(d, 4, 5))) / (24*60)

class(d)

d
write.xlsx(d, "t1.xlsx", row.names=FALSE, append=FALSE)

我需要将列格式更改为生成的xlsx文件中的时间。然后，我可以将列视为时间并执行求和/平均运算。我想避免手动更改列格式的步骤。我也尝试过以下脚本：

    library(xlsx)
    library(chron)

    d<-c("08:23:55", "09:34:45", "11:21:50")

    d<-(as.integer(substr(d, 1, 2))*60 + as.integer(substr(d, 4, 5))) / (24*60)
    d<-format(as.POSIXct((d) * 86400, origin = "1970-01-01", tz = "UTC"), "%H:%M:%S")
   d<-chron(times=d, format = c(times = "h:m:s"))
   options(xlsx.datetime.format="H:M:S")
   class(d)
   d
   write.xlsx(d, "t1.xlsx", row.names=FALSE, append=FALSE)

在此脚本中，即使更改了电子表格中列的格式，我也无法对生成的文件进行求和/平均运算。

请提出解决方案，以便我可以生成带有格式时间列的电子表格。我应该在持续时间列上执行求和/平均功能。