Rで複数のデータをforループを用いて1つのデータフレームにする。

Question

前提・実現したいこと

Rで複数のデータ（列数、列名ともに共通）のものを１つのデータフレームにしたい。

このデータはあるモデルを作成していてこれは繰り返し条件分岐による多数作成し、逐次的に結合していき最終的に１つのデータフレームにしたい。今回はこのデータができたとしてこれを逐次的に1つのデータフレームにする部分の実装を検討しています。

発生している問題・エラーメッセージ

1: In `[<-.factor`(`*tmp*`, ri, value = "2") :
   不正な因子水準です。NA が発生しました 

↑同じのが16個

> df
  X.1. X.2. X.3. X.1539242227.69899.
1    1    2    3    1539242227.69899
2 <NA> <NA> <NA>                <NA>
3 <NA> <NA> <NA>                <NA>
4 <NA> <NA> <NA>                <NA>
5 <NA> <NA> <NA>                <NA>

該当のソースコード

df <- data.frame(matrix(rep(NA, 4), nrow=1))[numeric(0), ]
colnames(df) <- c("column1", "column2", "column3", "time")

for (i in 1:5){
  data <- c(1*i, 2*i,3*i, as.character(Sys.time()+rnorm(1, mean = 10, sd = 4)))
  #cat(data,"\n")
  df <- rbind(df, data)
}
df

試したこと

https://takeshou.hatenadiary.jp/entry/20080110/1199933519
より
data <- sapply(data,as.character)
を追加しましたが同じエラー。
ちなみにforを用いない場合はできるようです。（しかし列ラベルの名前が変わります。ここは最悪構わないのですが原因が明確であればご教示いただけると助かります。）

またこのエラーに限定せず、別に良いやり方があればご教示ください。
よろしくお願いします。

補足情報（FW/ツールのバージョンなど）

RStudio
Version 1.1.383 – © 2009-2017 RStudio, Inc.

Answer 1

直接的なエラー（厳密にはwarning）の原因はデータフレームを生成する際に文字列がfactorになってしまっていることにあります。Rの「余計なお世話」仕様の一つでハマりやすいポイントです。

for (i in 1:5){
  data <- c(1*i, 2*i, 3*i, as.character(Sys.time()+rnorm(1, mean = 10, sd = 4)))
  if(i==1){
    df <- data.frame(matrix(data, nrow=1), stringsAsFactors = F)
#   df <- data.frame(matrix(data, nrow=1)) ←これではダメ
  }else{
    df <- rbind(df, data)
  }
}

colnames(df) <- c("column1", "column2", "column3", "time")

Comments

[I_KAMAKURA]

ありがとうございます！Rのfactorについてちょっとよくわかってなかったので腰すえて勉強してみます。