質問編集履歴
1
「該当のソースコード」部分の内容を変更しました
    
        title	
    CHANGED
    
    | 
         
            File without changes
         
     | 
    
        body	
    CHANGED
    
    | 
         @@ -1,4 +1,4 @@ 
     | 
|
| 
       1 
     | 
    
         
            -
             
     | 
| 
      
 1 
     | 
    
         
            +
            ### 前提・実現したいこと
         
     | 
| 
       2 
2 
     | 
    
         
             
            Rstudioでコレスポンデンス分析をしています。
         
     | 
| 
       3 
3 
     | 
    
         
             
            ggplot2で結果をプロットするために下記サイトを参考に行と列の座標でデータフレームを作成しようとしたところ下記のエラーメッセージが発生しました。
         
     | 
| 
       4 
4 
     | 
    
         
             
            (https://sugioka.wiki.fc2.com/wiki/R%E3%81%A7%E3%82%B3%E3%83%AC%E3%82%B9%E3%83%9D%E3%83%B3%E3%83%87%E3%83%B3%E3%82%B9%E5%88%86%E6%9E%90%E3%82%92%E3%81%99%E3%82%8B5%E3%81%A4%E3%81%AE%E9%96%A2%E6%95%B0)
         
     | 
| 
         @@ -14,27 +14,35 @@ 
     | 
|
| 
       14 
14 
     | 
    
         
             
            ### 該当のソースコード
         
     | 
| 
       15 
15 
     | 
    
         | 
| 
       16 
16 
     | 
    
         
             
            ```R
         
     | 
| 
       17 
     | 
    
         
            -
            STORY 
         
     | 
| 
       18 
     | 
    
         
            -
                V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12
         
     | 
| 
       19 
     | 
    
         
            -
            物語1   1  2  5  0  0  0  0  0  0   0   0   0
         
     | 
| 
       20 
     | 
    
         
            -
             
     | 
| 
      
 17 
     | 
    
         
            +
            install.packages("FactoMineR")
         
     | 
| 
       21 
     | 
    
         
            -
            物語3   5 14 16 12  0  0  0  0  0   0   0   0
         
     | 
| 
       22 
     | 
    
         
            -
            物語4   1  7  5  9  0  0  0  0  0   0   0   0
         
     | 
| 
       23 
     | 
    
         
            -
            物語5   3 18  2  3  0  0  0  3  0   0   0   0
         
     | 
| 
       24 
     | 
    
         
            -
            物語6   1  8  2  0  2  0  0  2  0   0   0   0
         
     | 
| 
       25 
     | 
    
         
            -
            物語7   4 15  4  0  2  6  4  0  3   0   0   0
         
     | 
| 
       26 
     | 
    
         
            -
            物語8   8 10  8  0  5  8  9  0 10  29   0   0
         
     | 
| 
       27 
     | 
    
         
            -
            物語9   7  7  7  0  1  0 20  0  3   0  19   0
         
     | 
| 
       28 
     | 
    
         
            -
            物語10  7 12  1  0 12  0 28  0  6   5   4   6
         
     | 
| 
       29 
     | 
    
         
            -
             
         
     | 
| 
       30 
     | 
    
         
            -
             
     | 
| 
      
 18 
     | 
    
         
            +
            library(FactoMineR)
         
     | 
| 
       31 
19 
     | 
    
         | 
| 
       32 
     | 
    
         
            -
             
     | 
| 
      
 20 
     | 
    
         
            +
            STORY = read.csv("cross2.csv",header = F,skip = 1,as.is = T,stringsAsFactors = F)
         
     | 
| 
      
 21 
     | 
    
         
            +
            rownames(STORY)=c("物語1","物語2","物語3","物語4","物語5","物語6","物語7","物語8","物語9","物語10")
         
     | 
| 
      
 22 
     | 
    
         
            +
             
     | 
| 
       33 
23 
     | 
    
         
             
            install.packages("ggplot2")
         
     | 
| 
       34 
24 
     | 
    
         
             
            library(ggplot2)
         
     | 
| 
       35 
25 
     | 
    
         | 
| 
      
 26 
     | 
    
         
            +
            install.packages("ca")
         
     | 
| 
      
 27 
     | 
    
         
            +
            library(ca)
         
     | 
| 
       36 
     | 
    
         
            -
             
     | 
| 
      
 28 
     | 
    
         
            +
            ca1=ca(STORY)
         
     | 
| 
      
 29 
     | 
    
         
            +
             
     | 
| 
       37 
     | 
    
         
            -
              
     | 
| 
      
 30 
     | 
    
         
            +
            aux2 = c(rep("STORY",10), rep("STORY",12))
         
     | 
| 
       38 
     | 
    
         
            -
              
     | 
| 
      
 31 
     | 
    
         
            +
            name2 = c(STORY, colnames(STORY))
         
     | 
| 
       39 
     | 
    
         
            -
              
     | 
| 
      
 32 
     | 
    
         
            +
            auth_lets2 = data.frame(name2, aux2, rbind(ca1$rowcoord[,1:2], ca1$colcoord[,1:2]))
         
     | 
| 
      
 33 
     | 
    
         
            +
            Error in data.frame(name2, aux2, rbind(ca1$rowcoord[, 1:2], ca1$colcoord[,  : 
         
     | 
| 
      
 34 
     | 
    
         
            +
               引数に異なる列数のデータフレームが含まれています: 10, 22
         
     | 
| 
      
 35 
     | 
    
         
            +
             
     | 
| 
      
 36 
     | 
    
         
            +
            【以下はcross2.csvのファイル内容です】
         
     | 
| 
      
 37 
     | 
    
         
            +
            V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,V11,V12
         
     | 
| 
      
 38 
     | 
    
         
            +
            1,2,5,0,0,0,0,0,0,0,0,0
         
     | 
| 
      
 39 
     | 
    
         
            +
            2,6,7,4,0,0,0,0,0,0,0,0
         
     | 
| 
      
 40 
     | 
    
         
            +
            5,14,16,12,0,0,0,0,0,0,0,0
         
     | 
| 
      
 41 
     | 
    
         
            +
            1,7,5,9,0,0,0,0,0,0,0,0
         
     | 
| 
      
 42 
     | 
    
         
            +
            3,18,2,3,0,0,0,3,0,0,0,0
         
     | 
| 
      
 43 
     | 
    
         
            +
            1,8,2,0,2,0,0,2,0,0,0,0
         
     | 
| 
      
 44 
     | 
    
         
            +
            4,15,4,0,2,6,4,0,3,0,0,0
         
     | 
| 
      
 45 
     | 
    
         
            +
            8,10,8,0,5,8,9,0,10,29,0,0
         
     | 
| 
      
 46 
     | 
    
         
            +
            7,7,7,0,1,0,20,0,3,0,19,0
         
     | 
| 
      
 47 
     | 
    
         
            +
            7,12,1,0,12,0,28,0,6,5,4,6
         
     | 
| 
       40 
48 
     | 
    
         
             
            ```
         
     |