teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

「該当のソースコード」部分の内容を変更しました

2019/07/25 14:26

投稿

SMV
SMV

スコア12

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
- 物語2 6 7 4 0 0 0 0 0 0 0 0
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
- ca1 = ca(STORY)
18
+ library(FactoMineR)
31
19
 
32
- #ggplot2をロードする
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
- aux = c(rep("STORY",10), rep("STORY",12))
30
+ aux2 = c(rep("STORY",10), rep("STORY",12))
38
- name = c(STORY, colnames(STORY))
31
+ name2 = c(STORY, colnames(STORY))
39
- auth_lets = data.frame(name, aux, rbind(ca1$rowcoord[,1:2], ca1$colcoord[,1:2]))
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
  ```