ミリ秒を含む時間データが入力されたcsvファイル（data.csv）があります。RStudioを使って、時間データを編集したいと考えています。具体的には、列名（localtime）に「9:10:56.999」のように入力されています。localtime列のデータ型はcharacterです。教えていただきたいのは、
１．ミリ秒以下（小数点第一位）を四捨五入して「9:10:57」にする方法
２．上記の時間に3時間を足して「12:10:57」にする方法
解決方法をご存じの方、どうかご教示ください。よろしくお願いいたします。
RStudioはVersion 1.4.1106を使っています。
df2 <- round(df1$localtime, digits = 0)
round(df1$localtime, digits = 0) でエラー:
数学関数に数値でない引数が渡されました
日付は置いておいて時間のみを扱うのであればhmsパッケージがいいようです．
library(tidyverse)
library(hms)
localtime <- "09:10:56.999"
hms_localtime <- as_hms(localtime)
hms_localtime
# 09:10:56.999
round(hms_localtime) %>% as_hms()
# 09:10:57
(round(hms_localtime) + hms(hours = 3)) %>% as_hms()
# 12:10:57
@kiina
Questioner
df1$localtimeを呼び出した時点でこれは単なるベクトルになってしまっているので，列名等のもともとデータフレームのときに持っていた情報を失ってしまっており，cbindした後のlocaltimeはdf1にある文字列型の列を参照しているせいでしょう．
df1 <- data.frame(
localtime = c("09:10:56.999", "12:05:01.400", "16:01:01.100")
)
df2 <- as_hms(df1$localtime)
df3 <- cbind(df1, df2)
df3
# localtime df2
# 1 09:10:56.999 09:10:56.999
# 2 12:05:01.400 12:05:01.400
# 3 16:01:01.100 16:01:01.100
str(df3)
# 'data.frame': 3 obs. of 2 variables:
# $ localtime: chr "09:10:56.999" "12:05:01.400" "16:01:01.100"
# $ df2 : 'hms' num 09:10:56.999 12:05:01.400 16:01:01.100
# ..- attr(*, "units")= chr "secs"
この場合，df2となっている列に対してroundを使うか
round(df3$df2) %>% as_hms()
# 09:10:57
# 12:05:01
# 16:01:01
もしくは，もともとのlocaltimeを置き換えるかのどちらかでしょうか．
df1 <- df1 %>%
mutate(localtime = as_hms(localtime),
localtime = round(localtime),
localtime = as_hms(localtime))
df1
# localtime
# 1 09:10:57
# 2 12:05:01
# 3 16:01:01
@kiina
Questioner
@kiina
Questioner