樋口先生
投稿失礼いたします。
対応分析の座標の出力に関してお伺いしたくて
投稿させていただきました。
過去の投稿（2011年8月6日の投稿者：前田さんと先生のやり取り）を参考にして，
「R Source」形式で保存した対応分析の結果をRのコンソール画面にドラッグしました。
R上で，対応分析の結果が出たのですが，その際に，以下の文章が出てきました。
成分 固有値 寄与率
[1,] 1 0.0129 100
Need help getting started? Try the cookbook for R:
http://www.cookbook-r.com/Graphs/
要求されたパッケージ sp をロード中です
Checking rgeos availability: FALSE
Note: when rgeos is not available, polygon geometry computations in maptools depend on gpclib,
which has a restricted licence. It is disabled by default;
to enable gpclib, type gpclibPermit()
要求されたパッケージ Rcpp をロード中です
要求されたパッケージ RColorBrewer をロード中です
Non-function objects are not currently inserted (not traceable): .packageName
Modified functions inserted through trace(): wordlayout
[1] "iterations: 62"
警告メッセージ:
1: パッケージ ‘ggplot2’ はバージョン 3.1.3 の R の下で造られました
2: In grid.Call(L_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
Windows のフォントデータベースにフォントファミリが見付かりません
3: In grid.Call.graphics(L_text, as.graphicsAnnot(x$label), x$x, x$y, :
Windows のフォントデータベースにフォントファミリが見付かりません
>
この文章の意味が十分理解できないまま，過去の投稿にあった，
以下のコマンドを入力し，対応分析の入力の表を保存しようとしました。
#--------------------------------------------------------------------
savefile <- "C:\\temp0.csv"
out_data <- cbind(rownames(d), d)
if (nchar(savefile)) {
write.table(
out_data,
savefile,
sep=",",
quote=F,
row.names=F
)
print( paste("saved: ",savefile) )
}
#--------------------------------------------------------------------
その結果，以下の文章が出てきました。
> savefile <- "C:\\temp0.csv"
> out_data <- cbind(rownames(d), d)
> if (nchar(savefile)) {
+ write.table(
+ out_data,
+ savefile,
+ sep=",",
+ quote=F,
+ row.names=F
+ )
+ print( paste("saved: ",savefile) )
+ }
以下にエラー file(file, ifelse(append, "a", "w")) :
コネクションを開くことができません
追加情報: 警告メッセージ:
In file(file, ifelse(append, "a", "w")) :
ファイル 'C:\temp0.csv' を開くことができません: Permission denied
>
この一連の操作が，どこで間違っており，何が起こったのか
十分に把握できない状況です。
このような事態において，対応分析の結果の元となった表・座標を出すために，
どうすべきか教えてください。
ちなみに，khcoder-3a14b.exe (2018 10/21)を使用しておりまして，
自由記述の内容を男女比較したいと思っております。
しかし，コーディングのカテゴリーと性別で対応分析をしたため，
成分が一つしか算出されませんでしたので，
分析結果を，一次元，あるいは表で報告しようと考えております。
お忙しいところ恐縮ですが，どうぞよろしくお願い致します。