前田です。
何度も申し訳ありません。
下記、[6]について実行した所、
単語についての座標値は取得できましたが、
外部変数の座標値が取得できません。
[6]を実行した際、以下のエラーメッセージが出力されますが、
こちらが関係しているのでしょうか。
「エラー if (biplot) { : 引数が論理変数として解釈することができません」
ご回答頂けたらと思います。
よろしくお願いいたします。
> [6] 以下のコマンドを実行する(Rのコンソール画面に貼り付けてエンター・
> キーを押す)ことで、プロット作成に必要な座標データ等がC:\temp1.csvに保
> 存されます。
>
> #--------------------------------------------------------------------
> savefile <- "C:\\temp1.csv"
> out_data <- cbind(c$cscore[,d_x], c$cscore[,d_y], 1 ) # 語
> if ( exists("biplot") ){ # 変数・見出し
> if (biplot){
> out_data <- rbind(
> out_data,
> cbind(c$rscore[,d_x], c$rscore[,d_y], 2)
> )
> }
> }
> out_data <- cbind(rownames(out_data), out_data) # 仕上げ
> colnames(out_data) <- c("label","x","y","type")
> if (nchar(savefile)) { # 保存
> write.table(
> out_data,
> savefile,
> sep=",",
> quote=F,
> row.names=F
> )
> print( paste("saved: ",savefile) )
> }
> #--------------------------------------------------------------------
>
>