日付をデータフレーム内の文字に変換する

Question

日付の列（日付、POSIXct、POSIXt）をデータフレームの文字列に変換したいと思います。たとえば、私はこのデータフレームを持っています。

df <- data.frame(date = Sys.Date(), time = Sys.time(), val = 1) 

このように手動で簡単に日付の列を文字列に変換できます。

df$date <- as.character(df$date) 
df$time <- as.character(df$time) 

日付の列を1つ1つ指定することなく全体を変換できる方法はありますか？ lapplyまたはsapplyを使ってどのように変換できますか？

Answer 1

まず、より完全な例をいくつかのデータ型で作成します。次に、いずれかがクラスDateまたはPOSIXtであるかを決定します。最後に、興味のあるものだけを修正します。

df <- data.frame(date = Sys.Date(), time = Sys.time(), x = 1, A = "Test") 

inx <- sapply(df, function(x) inherits(x, "Date") || inherits(x, "POSIXt")) 
df[inx] <- lapply(df[inx], as.character) 
str(df) 
#'data.frame': 1 obs. of 4 variables: 
# $ date: chr "2017-11-05" 
# $ time: chr "2017-11-05 08:30:19" 
# $ x : num 1 
# $ A : Factor w/ 1 level "Test": 1 

などPOSIXctやPOSIXlt両方として他の日付/時刻のクラスはクラスPOSIXtからそうあなただけのこの後者をテストする必要が継承することに注意してください。