# title: 時間格式# date: 2020.6.7library(readxl)mydf <- read_excel("時間格式.xlsx")str(mydf)mydf# 取出時間格式mydf$TimeOny <- format(mydf$Time, format="%H:%M")mydf