Rのデータフレームにおいて、ファクター列を2値に変換する方法をお伝えいたします。
方法はとても単純で、データフレームの列ごとにファクター型かどうかをチェックし、ファクター型であればファクターごとに2値の列を新たに作成し追加します。
ソースコードは以下のようになります。


convertFactorToBinary <- function(df, sep = ".") {
  l <- list()
  for (i in 1:ncol(df)) {
    if ("factor" %in% class(df[[i]]) &&
        !("ordered" %in% class(df[[i]]))) {
      m <- sapply(levels(df[[i]]), function(x)
        as.integer(x == df[[i]]))
      for (j in 1:ncol(m)) {
        l[[paste(colnames(df)[i], colnames(m)[j], sep = sep)]] <- m[, j]
      }
    } else{
      l[[colnames(df)[i]]] <- df[[i]]
    }
  }
  return(data.frame(l))
}

データセットwarpbreaksを用いて実際に試してみます。
まずは、データセットの内容を確認します。


> data("warpbreaks")
> print(str(warpbreaks))
'data.frame':	54 obs. of  3 variables:
 $ breaks : num  26 30 54 25 70 52 51 26 67 18 ...
 $ wool   : Factor w/ 2 levels "A","B": 1 1 1 1 1 1 1 1 1 1 ...
 $ tension: Factor w/ 3 levels "L","M","H": 1 1 1 1 1 1 1 1 1 2 ...

> print(head(warpbreaks))
  breaks wool tension
1     26    A       L
2     30    A       L
3     54    A       L
4     25    A       L
5     70    A       L
6     52    A       L

次に、ファクター型の列を変換してみます。


> res <- convertFactorToBinary(warpbreaks, sep = "_") > print(str(res))
'data.frame':	54 obs. of  6 variables:
 $ breaks   : num  26 30 54 25 70 52 51 26 67 18 ...
 $ wool_A   : int  1 1 1 1 1 1 1 1 1 1 ...
 $ wool_B   : int  0 0 0 0 0 0 0 0 0 0 ...
 $ tension_L: int  1 1 1 1 1 1 1 1 1 0 ...
 $ tension_M: int  0 0 0 0 0 0 0 0 0 1 ...
 $ tension_H: int  0 0 0 0 0 0 0 0 0 0 ...

> print(head(res))
  breaks wool_A wool_B tension_L tension_M tension_H
1     26      1      0         1         0         0
2     30      1      0         1         0         0
3     54      1      0         1         0         0
4     25      1      0         1         0         0
5     70      1      0         1         0         0
6     52      1      0         1         0         0

ファクター列が2値になっていることが確認できました。

関連する記事

  • Ubuntu16.04でElectronの配布アプリケーションを作成する方法Ubuntu16.04でElectronの配布アプリケーションを作成する方法 Ubuntu16.04を用いて開発したElectronアプリケーションを配布に適したファイル群で出力する方法をお伝えします。 ここでは、サンプルアプリケーションとして、electron-quick-startを利用させていただき、配布のための環境構築からWindows用アプリケーションとして実行しているところまでをご紹介します。 環境 今回の作業環境を確認し […]
  • R言語 CRAN Task View:Rでの高性能並列コンピューティングR言語 CRAN Task View:Rでの高性能並列コンピューティング CRAN Task View: High-Performance and Parallel Computing with Rの英語での説明文をGoogle翻訳を使用させていただき機械的に翻訳したものを掲載しました。 Maintainer: Dirk Eddelbuettel Contact: Dirk.Eddelbuettel at […]
  • SlideShareで公開されているR言語関係のまとめSlideShareで公開されているR言語関係のまとめ SlideShareで公開されているR言語関係の資料をまとめてみたのでご紹介する。全てを網羅しているわけではないが、あなたのお役に立てれば幸いだ。 Rによる医療統計2015 第1部 医療統計の基礎知識 前編 2015-12-18 / 70 slides Rによる医療統計2015 第1部 後半 2015-12-18 / 57 […]
  • RaspberryPi Bluetoothスピーカーで音を出す方法 Raspberry Pi 3 Model B を用いてBluetoothスピーカーと接続した後、aplayコマンドがエラー出して音が出なかった問題の対応を備忘録として残しておく。 以下はすべてSSH接続によるCUIで行っている。 環境:Raspbian GNU/Linux 8.0 […]
  • R 関数に時間制限を設ける方法 ある処理にとても時間が掛かるため、一定時間経過後はその処理を途中で打ち切りたいときがある。 例えば、for文で、あるループだけが重いため全体として時間が掛かってしまう場合、その処理を一旦スキップしてfor文の先に処理を進めたい、などである。 ここでは、そのひとつの解決策として、関数に時間制限を設けて、一定時間経過後はその関数を強制終了するコードをご紹介する。 ただし […]
R データフレームのファクター列を2値に変換する方法