0

rで表関数を使用して分割表を作成しようとしています。しかし、分割表の代わりに、(表の代わりに) 2 つの値のリストを取得しました。

私のデータには 15000 の観測と 2 つの変数があります。データは次のようになります。

      **Field.Label**                     |**Form.Name**
      ------------------------------------|---------------
      Applicant Name                      |F1
      ------------------------------------|---------------
      Phone                               |F1
      ------------------------------------|---------------
      Address                             |F1
      ------------------------------------|---------------
      Phone                               |F2
      ------------------------------------|---------------
      Address                             |F2
      ------------------------------------|---------------
      Title                               |F2
      ------------------------------------|---------------
      Phone                               |F3
      ------------------------------------|---------------
      ...                                 |...

次のコードを使用しました：

      CTable<-table(mydata$Field.Label, mydata$Form.Name)
      CTable<-as.data.frame(CTable)
      View(CTable)

そして、1,665,495 エントリで次のような結果が得られました (Field.Label には 8,541 レベルがあり、Form.Name には 195 レベルがあります。8,541 * 195 = 1,665,495):

      ** Field.Label**                    |** Form.Name** |**Freq**
      ------------------------------------|---------------|-----------
      Applicant Name                      |F1             |1
      ------------------------------------|---------------|-----------
      Phone                               |F1             |1
      ------------------------------------|---------------|-----------
      Address                             |F1             |1
      ------------------------------------|---------------|-----------
      Title                               |F1             |0
      ------------------------------------|---------------|-----------
      Applicant Name                      |F2             |0
      ------------------------------------|---------------|-----------
      Phone                               |F2             |1
      ------------------------------------|---------------|-----------
      Address                             |F2             |1
      ------------------------------------|---------------|-----------
      Title                               |F2             |1
      ------------------------------------|---------------|-----------
      Applicant Name                      |F3             |0
      ------------------------------------|---------------|-----------
      Phone                               |F3             |1
      ------------------------------------|---------------|-----------
      Address                             |F3             |0
      ------------------------------------|---------------|-----------
      Title                               |F3             |0
      ------------------------------------|---------------|-----------
      ...                                 |...

次のような分割表の結果を得るにはどうすればよいですか?

                                      |**F1** |**F2** |**F3** |
  ------------------------------------|-------|-------|-------|
  Applicant Name                      | 1     |0      |0      |
  ------------------------------------|-------|-------|-------|
  Phone                               | 1     |1      |1      |
  ------------------------------------|-------|-------|-------|
  Address                             | 1     |1      |0      |
  ------------------------------------|-------|-------|-------|
  Title                               | 0     |1      |0      |
  ------------------------------------|-------|-------|-------|

ありがとう！

4

1 に答える 1

1

Data.Table ソリューション:

library("data.table")
mydata <- fread('Field.Label,Form.Name
                 Applicant,F1
                 Phone,F1
                 Address,F1
                 Phone,F2
                 Address,F2
                 Title,F2
                 Phone,F3')

CTable <- dcast(setDT(mydata), Field.Label ~ Form.Name, fun = length)
CTable
#    Field.Label F1 F2 F3
# 1:     Address  1  1  0
# 2:   Applicant  1  0  0
# 3:       Phone  1  1  1
# 4:       Title  0  1  0
class(CTable)
# [1] "data.table" "data.frame"

ベース R ソリューション:

CTable <- table(mydata$Field.Label, mydata$Form.Name)
CTable <- data.frame(matrix(CTable, nrow = dim(CTable)[1], dimnames = dimnames(CTable)))
CTable
#           F1 F2 F3
# Address    1  1  0
# Applicant  1  0  0
# Phone      1  1  1
# Title      0  1  0
class(CTable)
# [1] "data.frame"
于 2016-08-05T19:35:54.063 に答える