SPSSでR の編集

#contents

*目的 [#md4376b4]
なぜかSPSS17.0でRが使える。（本当は16から使えるらしい）~
SPSSが何故このようなことをやりだしたのかは不明だが、Rユーザーの裾野を広げるためには有効だと思う。(本気？)~
さあ！SPSSを使っているみなさん、心置きなくRを使いましょう！~
*メリット [#s2dd98b5]
-SPSS Baseのみで、SPSSの高価な（無駄な？）オプションを買わなくても、無料のRで代用できる。~
-SPSSで空間統計ができる(結局Rだが)~

*コメント（最新） [#s0343a6c]

#comment(below)
- ソフトを切り替えずに（手動でRを起動せずに）モザイクプロットなんかを作れて便利ですね。しかし、SPSSの出力画面に表示されるRのグラフはビットマップ画像でしょうか。印刷用メタファイルを得るためには、結局Rを手動で起動してグラフを作成するしかないという認識でただしいでしょうか？ -- [[K]] &new{2010-09-30 (木) 14:04:16};
- R2.9.1ではインストールさせてもらえず...2.7.2に戻してようやくインストールできました。 -- [[inoue]] &new{2009-08-12 (水) 16:54:45};
- SPSSも地に落ちたもんですね。流石にがっかり。ところで、＼の問題は解決してるんですかね？ -- [[okinawa]] &new{2009-07-18 (土) 10:45:14};
- SPSS Ver.18 に　R 本体とR 統合モジュールを付けてリリース!! --  &new{2009-07-17 (金) 03:42:58};
- Gene.spdをほんの少し改良しました。自動でC:/にフォルダを作成します。説明不足でしたが現在の所、データ解析可能数は約7000までとなっています。[[luchama]] &new{2009-02-02 (月) 11:13:31};
- いろいろな業界でマイクロアレイ解析の機会が増えていると思います。CELさえ手に入れれば自分で解析できます。SPSSでもできるよう例としてspdを作りました。皆様のアドバイスを頂きよりよいものを作成したいと思います。ちょっと工夫すれば高い費用を掛けずに解析ができます。 -- [[luchama]] &new{2009-01-24 (土) 20:13:31};
- SPSSのシンタックスでファイルパスに／を使えれば問題ないのに・・・。Mac版は持っていないですが、Mac版だとそのままいけるかもしれませんね。 -- [[okinawa]] &new{2009-01-21 (水) 08:49:20};
- バックスラッシュの問題は要求はしてますが、なかなか改善されません。 -- [[luchama]] &new{2009-01-21 (水) 08:24:50};
- dataframeのObject構造から自動的にdictを作成する関数が作れればいいですよね。SPSSのRplugin作っている人へ要求したほうがいいかも。（バックスラッシュの問題も） -- [[okinawa]] &new{2009-01-21 (水) 08:18:44};
- コメントありがとうございます。やはりdictをいじるしかなさそうですね。読み込みは簡単なのに・・・残念。 -- [[luchama]] &new{2009-01-20 (火) 19:32:08};
- SPSS Statistics-R Integration Packageに書いてあります。 -- [[okinawa]] &new{2009-01-20 (火) 17:36:19};
 BEGIN PROGRAM R.
 dict <- spssdictionary.GetDictionaryFromSPSS()
 print(dict)
 casedata <- spssdata.GetDataFromSPSS()
 varSpec <- c("meansal","Mean Salary",0,"F8","scale")
 print(varSpec)
 dict <- data.frame(dict,varSpec)
 print(dict)
 spssdictionary.SetDictionaryToSPSS("results",dict) <=ここ
 casedata <- data.frame(casedata,mean(casedata$salary))
 spssdata.SetDataToSPSS("results",casedata)　<=ここ
 spssdictionary.EndDataStep()　<=ここ
 END PROGRAM.
spssdictionary.SetDictionaryToSPSSとspssdictionary.EndDataStepではさまれた部分でspssdata.SetDataToSPSSを実行するのではないでしょうか。dictにSPSS用のテーブルのフォーマットを記述して(変数ビューの中身）、ウインドウ名（ここではresult)といっしょに渡し、次にデータフレームを書いて、EndDataStepでクローズする。~
新規にSPSSにデータフレームを渡す場合には、dictをデータフレームにあわせて作るしかないですね。~

- Rのデータフレームを新規にSPSSに取り込む方法がいまひとつわからない -- [[luchama]] &new{2009-01-20 (火) 16:55:54};
- luchamaさん、一人でやるのはなかなかつらいので助かります。luchamaさんが書かれたコードも勉強させていただきます。よろしければ、色々追加・変更していただいてもかまいませんので今後ともよろしくお願いします。 -- [[okinawa]] &new{2009-01-10 (土) 14:30:45};
- SPSS with R 改め　luchamaです。ヒートマップ作成spdを追加しました。解析内容はかなり偏っていると思いますが、コマンドの改変で対応できると思います。SPSSとRの連携に関して何かお手伝いできればと思います。 -- [[luchama]] &new{2009-01-10 (土) 11:39:17};
- ↓すごい！ -- [[okinawa]] &new{2009-01-10 (土) 09:02:54};
- マイクロアレイのヒートマップ作成spdを追加 -- [[SPSS with R]] &new{2009-01-10 (土) 08:44:56};
- SPSSで地図表示追加 -- [[okinawa]] &new{2009-01-07 (水) 17:14:54};
- 内容追加 -- [[okinawa]] &new{2009-01-06 (火) 17:40:27};
- SPSSでファイルを開きＲにデータを転送するサンプル追加 -- [[okinawa]] &new{2009-01-03 (土) 17:22:04};
- SPSSシンタックスの％％識別子％％理解しました。結局コントロールで取得したパラメータの値を保持していて、シンタックスに埋め込めるというだけですね。コマンドシンタックスは昔とった杵柄なのでOKと。 -- [[okinawa]] &new{2009-01-02 (金) 14:14:11};
- spss17来た。あーコマンドシンタックスめんどくさ. だれかご存知の方いませんか？-- [[okinawa]] &new{2008-12-30 (火) 18:25:52};
- SPSS17.0のバージョンアップに伴い、プラグインもバージョンアップしています。バージョンアップの内容は不明。 --  &new{2008-12-26 (金) 14:42:04};

- もうすぐSPSS17が手に入りそうだ・・・。もちろん自腹ではない。手に入ったら、こちらも充実させようと思う。たのしみたのしみ・・・。 -- [[okinawa]] &new{2008-12-24 (水) 14:33:06};

*SPSSトライアルバージョン（英語版）/　Rpluginのダウンロード [#y6761c0d]
SPSS(US)でspss17.0のトライアルバージョンを手に入れることができる（要登録）。~
また、Rpluginは無償で公開されている。~
~
SPSS:http://www.spss.com/downloads/Papers.cfm?ProductID=00035&Name=SPSS_Base~
Rplugin:http://www.spss.com/devcentral/index.cfm?pg=plugins~
~
ダウンロードしたファイルをそのままインストールする。（SPSSを先にインストールしないと、Rpluginはインストールできない）~
~
*利用（基本） [#f25e7535]
（１）SPSS起動~
#ref(SPSSでR/spss1.PNG,50%)~
SPSS起動後、ダイアログが出るので[キャンセル]を押すと、データエディタ画面になる。~
#ref(SPSSでR/spss2.PNG,50%)~
~
（２）シンタックス~
シンタックスとは、Rコンソールのようなものです。~
-新規シンタックスを作成~
#ref(SPSSでR/spss3.PNG,50%)~
-シンタックス画面。ここにプログラムを書いていく。~
#ref(SPSSでR/spss4.PNG,50%)~
~
（３）プログラム~
 BEGIN PROGRAM R .
 ・・・
 END PROGRAM .
・・・の部分にRのプログラムを書いていく。~
#ref(SPSSでR/spss6.PNG,50%)~
-実行させる。~
#ref(SPSSでR/spss7.PNG,50%)~
-結果が出力画面に出力される。~
#ref(SPSSでR/spss8.PNG,50%)~

*SPSSカスタムダイアログ [#na70d960]
ＳＰＳＳのカスタムダイアログビルダーで簡易なＧＵＩプログラムが作成できる。プログラムはＳＰＳＳシンタックスに％％識別子％％で取得したパラメータを組み合わせたもので、本格的なものは作れない。（カスタムダイアログの作成はマニュアルを参照してください）~
#ref(SPSSでR/spss5.PNG,50%)~

以下は、カスタムダイアログのサンプル(*.spd)です。インストールは、ユーティリティのカスタムダイアログのインストールで行ってください。ユーティリティ内にインストールされます。~
**SPSSでファイルを開きＲにデータを転送するサンプル [#b5ff8e73]
#ref(SPSS2R.spd)~
ダイアログとファイルブラウザコントロールのみ使用。起動するコマンドシンタックスは以下の通り。~
 GET FILE=%%item_7%%.
 BEGIN PROGRAM R.
 casedata <- spssdata.GetDataFromSPSS()
 plot(casedata[1:2])
 END PROGRAM.
％％item_7％％がファイルブラウザコントロールから受け取るパラメータ（読み込むファイルのパス）~
注意）現在、％％item_7％％をＲ内で使おうとすると￥がうまく処理できないためエラーとなる。元々、SPSSシンタックスのファイルパスのセパレータは／じゃなかったの？~
この辺はRpluginのパッケージで関数作ってなんとかして欲しいところ。~
~
-ユーティリティに追加されたところ~
#ref(SPSSでR/spss10.PNG,50%)~
-実行~
#ref(SPSSでR/spss11.PNG,50%)~
-任意のsavをロードしてデータフレームの１と２でプロット（もちろん日本語もＯＫ）~
#ref(SPSSでR/spss15.PNG,50%)~
~
-カスタムダイアログの内部構造~
＊ダイアログ設定画面~
#ref(SPSSでR/spss12.PNG,50%)~
＊コントロール~
#ref(SPSSでR/spss13.PNG,50%)~
＊シンタックス
#ref(SPSSでR/spss14.PNG,50%)~

**SPSSで地図表示 [#hfa7b721]
SPSSでできないものに空間統計があるが、Rではお手の物。~
[[空間的なデータの分析]]の地図作成練習用データからGISdata.zipをダウンロードし、C:直下に解凍する。 C:/GISdata　となるように。~
#ref(plotshp.spd)~
#ref(SPSSでR/spss16.PNG,50%)~
任意のShapeFileのパスを指定してプロット~
#ref(plotshp2.spd)~
#ref(SPSSでR/spss17.PNG,50%)~

**マイクロアレイのヒートマップ作成 [#ufa3639a]
SPSSではできない、マイクロアレイデータのヒートマップ表示。~
spdを実行する前にRで以下のコマンドを実行 ~

install.packages(c("gplots","amap","RColorBrewer")) ~
source("http://bioconductor.org/biocLite.R") ~
biocLite(c("Heatplus", "genefilter")) ~

結果はC:/遺伝子解析結果に出力可能。~
#ref(Gene.spd)~

**CELファイルの正規化 [#ufa3639a]
・チップはAffymetrix GeneChip　mouse430 2を想定~
・MAS5後に結果を列ごとにmedianで割りLog2に数値化~
・正規化手法を変更する場合はコード内の"MAS5"を変更してください~
・EntrezおよびGenesymbolをアノテーション~
・結果は解析フォルダ内にcsvで出力~
・メニューの場所：分析-GeneCEL~
注意
　解析フォルダを選択する際には手入力で"\"を"/"に変更して下さい。~
　変更しないとエラーになります。また、解析には時間がかかります。~

spdを実行する前にRで以下のコマンドを実行~

source("http://bioconductor.org/biocLite.R")~
biocLite(c("affy", "mouse4302.db", "mouse4302cdf"))~

ファイルは例として次からダウンロード~
解凍せずにそのまま使用可能~
ftp://ftp.ncbi.nih.gov/pub/geo/DATA/supplementary/samples/GSM160nnn/GSM160432/GSM160432%2ECEL%2Egz~
ftp://ftp.ncbi.nih.gov/pub/geo/DATA/supplementary/samples/GSM160nnn/GSM160435/GSM160435%2ECEL%2Egz~

#ref(GeneCEL.spd)~

*SPSSのデータセットからR側にデータを取り込む [#v3a12532]

SPSSのデータセットからR側にデータを取り込むには、spssdata.GetDataFromSPSS()関数を使う。~
 BEGIN PROGRAM R.
 casedata <- spssdata.GetDataFromSPSS()
 print(casedata)
 END PROGRAM.
とりこまれたデータは、自動的にdata.frameになっています。~

補足：カスタムダイアログ、例えばテキストボックスから値をR側に取り込むにはテキストボックスに指定した識別子を%%で囲んで記述する。
　　　
* 関数 [#rbd98fb1]
-Get information about data files in the current SPSS Statistics session
 spssdata.GetCaseCount
 spssdata.GetDataSetList
 spssdata.GetSplitVariableNames
 spssdictionary.GetDataFileAttributeNames
 spssdictionary.GetDataFileAttributes
 spssdictionary.GetDictionaryFromSPSS
 spssdictionary.GetMultiResponseSetNames
 spssdictionary.GetMultiResponseSet
 spssdictionary.GetUserMissingValues
 spssdictionary.GetValueLabels
 spssdictionary.GetVariableAttributeNames
 spssdictionary.GetVariableAttributes
 spssdictionary.GetWeightVariable
 spssdictionary.IsWeighting
 spssxmlworkspace.CreateXPathDictionary
 spssxmlworkspace.EvaluateXPath
-Get data from the active dataset and create new datasets
 spssdata.GetDataFromSPSS
 spssdata.GetSplitDataFromSPSS
 spssdata.SetDataToSPSS
 spssdictionary.CreateSPSSDictionary
 spssdictionary.SetDataFileAttributes
 spssdictionary.SetDictionaryToSPSS
 spssdictionary.SetMultiResponseSet
 spssdictionary.SetUserMissing
 spssdictionary.SetValueLabel
 spssdictionary.SetVariableAttributes
-Create pivot tables
 spsspivottable.Display
-Get output results
 spssxmlworkspace.EvaluateXPath
-Control Display of R Graphics
 spssRGRaphics.Submit
 spssRGRaphics.SetOutput
-Get version information
 GetSPSSPlugInVersion
 GetSPSSVersion
 spsspkg.Version
-Locale and Output Language Settings
 GetSPSSLocale
 SetOutputLanguage
~
*その他 [#uc3ee9c0]
Rpluginをインストールすると、Rのライブラリフォルダにspss_17.0なるものが作成される。ただし、このパッケージはRからは呼び出すことはできない。~

*参考リンク [#db115cf4]
-[[PASW Statistics Developer:http://www.spss.co.jp/software/pasw_sd/]]
-[[SAS から R:http://cwoweb2.bai.ne.jp/~jgb11101/files/R_SAS_to_R.pdf]]
-[[R for SAS and SPSS Users:http://rforsasandspssusers.com/]]
-[[http://rwiki.sciviews.org/doku.php?id=getting-started:translations:spss2r]]
-Migrating from SPSS/Excel to R
--[[Part 1:http://www.r-bloggers.com/migrating-from-spssexcel-to-r/]],[[Part 2:http://www.r-bloggers.com/migrating-from-spssexcel-to-r-part-2-preparing-your-data/]],[[Part 3:http://www.r-bloggers.com/migrating-from-spssexcel-to-r-part-3-preparing-your-data/]],
-Rz: GUI Tool for Data Management like SPSS or Stata
-[[how to read spss, stata, and sas files into r:http://www.r-bloggers.com/how-to-read-spss-stata-and-sas-files-into-r/]]
-[[R Passes SPSS in Scholarly Use, Stata Growing Rapidly:http://r4stats.com/2014/08/20/r-passes-spss-in-scholarly-use-stata-growing-rapidly/]]
-[[Adding the SPSS MEAN.n Function to R:http://r4stats.com/2014/09/03/adding-the-spss-mean-n-function-to-r/]]
-[[translate2R: Migrate SPSS scripts to R at the push of a button:http://blog.eoda.de/2014/10/22/translate2r-migrate-spss-scripts-to-r-at-the-push-of-a-button/]]
-[[ Ubuntu で GNU PSPP のインストール, R での SPSS ファイルの読み込み :http://www.kkaneko.com/rinkou/r/pspp.html]]

*コメントバックアップ１ [#e6861694]
-[[R and SPSS:http://www.spssresearch.com/r-and-spss/]] によると、上にあるプラグイン[["SPSS-R integration Plug In":https://www.ibm.com/developerworks/mydeveloperworks/wikis/home/wiki/We70df3195ec8_4f95_9773_42e448fa9029/page/Downloads%20for%20IBM%C2%AE%20SPSS%C2%AE%20Statistics?lang=en]]が使えるって？
-SPSS クローン、PSPP で、R を呼び出せないかな。
- 表から引っ越ししてきました。 -- [[okinawa]] &new{2008-09-27 (土) 09:04:32};
- 個人的には、Rでサンプルサイズ１億以上のデータを扱えるなら、SASなんか使いませんよ． --  &new{2008-09-27 (土) 10:11:36};
- ff packageとか使っても１億以上のデータは扱えないのでしょうか？ -- [[okinawa]] &new{2008-09-27 (土) 17:19:05};
- サンプルサイズが1億とはいっても，変数の数がいくつかで可否は分かれるのでは。変数も1万とか1億じゃ無理でしょ(^_^;)まあ。計算時間はおいておくとしましょう。 --  &new{2008-09-27 (土) 18:01:45};
- 本当なら、Enterprise R とか Standard R とか、利用者のタイプでのランク分けが必要なんでしょうね。 -- [[okinawa]] &new{2008-09-27 (土) 18:38:23};
- UseR!2008でもGUI部分の発表がいくつもありましたが、決定打は、なかなかないですね。RのRによるRのためのGUIがでてこないかな〜。 -- [[okinawa]] &new{2008-09-27 (土) 18:42:07};
- どんな場合にもRを使いましょうということ自体硬直しているんで，目的・場合に応じて，ふさわしいものを使えばよいだけでしょう。自分の用途でRが使える使えないといっても，意味ない。あなたがRは駄目だと思えばそうなんだし，Rが最高と思えばそうなんだし。Rを支持する人の割合が重要なんでしょう。 --  &new{2008-09-27 (土) 20:06:43};
- そういう意味では、SPSSや他の統計分析ソフトででRが使えるようになるのは、Ｒ支持者を広めるのには役立つと思うのでＯＫと。お騒がせしました。 -- [[okinawa]] &new{2008-09-29 (月) 10:24:11};
- つまり, RにGUIを付けたとすれば, ヘルプ機能には冴子先生ならぬリプリー先生がついて来る訳ですね. わかります.:-) -- [[なかま]] &new{2008-10-03 (金) 12:19:28};
- うっ、偉すぎる。R女史っていないのでしょうか？ --  &new{2008-10-03 (金) 18:01:49};
- 冴子先生 って誰？ --  &new{2008-10-03 (金) 18:22:19};
- http://www.wdic.org/w/MOE/%E5%86%B4%E5%AD%90%E5%85%88%E7%94%9F --  &new{2008-10-03 (金) 18:42:23};
- SPSS17からRの使い方がいまひとつわからん。 --  &new{2008-10-04 (土) 18:04:25};
- SPSS17が手元にないので想像の域を出ませんが、R pluginを入れてカスタムダイアログビルダーで画面を作るんじゃないでしょうか。 -- [[okinawa]] &new{2008-10-05 (日) 08:49:08};
- SPSS17からRが使えました。図の出力等に便利です。コマンドの受け渡しはシンタックスから簡単におこなえます。これで、オプションの購入が必要なくなるかも？ --  &new{2008-10-07 (火) 20:11:16};
- できましたら、利用方法などを公開していただけませんでしょうか？よろしくお願いします。 -- [[okinawa]] &new{2008-10-07 (火) 22:30:22};
- SPSS17からRの使い方簡単なまとめ　
&#65533;SPSS Statistics Base via R pluginの対応するR2.7をインストール　&#65533;http://www.spss.com/devcentral/にアクセスしSPSS Statistics Base via R pluginをダウンロードしインストール
これで、SPSSのシンタックスから使えるようになります。
Rを呼び出すコマンドはSPSSのシンタックスに　"BEGIN PROGRAM R.　・・・・　End PROGRAM" と記述することで可能です。
Rのコマンドは・・・・の所に記述することにより使用可能です。
使い始めたばかりですが、Rを呼び出すコマンドの前にspssのコマンドを記述することにより、高度な連携が可能です。もちろん、ダイアログに登録し使うことができます。Rを簡単にGUIで使用でき感動です。　 -- [[SPSS with R]] &new{2008-10-14 (火) 21:11:45};
- Oops! 信頼できない証明書を受け入れてはいけない... -- [[匿名希望]] &new{2008-10-15 (水) 00:16:31};
- ありがとうございました。 -- [[okinawa]] &new{2008-10-15 (水) 09:30:52};
- どうやら、対応するRのバージョンはプラグインをインストールする際にRのフォルダを指定すれば、2.70以外でも動きます。 -- [[SPSS with R]] &new{2008-10-15 (水) 10:09:24};
- spss17の現物を持ってないので、トライアルバージョンで試してみました。簡単にできますね。 -- [[okinawa]] &new{2008-10-15 (水) 11:35:53};
- でもTinn-Rを使ってるので、なんか違和感ありますね。SPSSの「きもい」動きも昔のまま。 -- [[okinawa]] &new{2008-10-15 (水) 11:56:10};
- これで、ＳＰＳＳで空間統計が利用できるようになった（上に書いてあるけど）。SASには地球統計があるけど --  &new{2008-10-15 (水) 13:49:51};
- おお！そうじゃった。ちゃんとmaptoolsも使えるではないか。 -- [[okinawa]] &new{2008-10-15 (水) 14:07:44};
- だんだん慣れてきたら、結構つかいやすいのう。でもSPSSは高いのう。 -- [[okinawa]] &new{2008-10-15 (水) 14:09:15};
- しかし、これでは、SPSS のオプション統計パッケージの販売に影響が出るのでは？ -- [[秋の夕暮れ]] &new{2008-10-15 (水) 14:58:51};
- 日本語もちゃんと通りますね。 -- [[okinawa]] &new{2008-10-15 (水) 15:22:57};
- 日本語版のSPSS17でも動作するのでしょうか？ --  &new{2008-10-16 (木) 01:55:07};
- 日本語版で使用できますよ。もちろん日本語も通ります。 -- [[SPSS with R]] &new{2008-10-16 (木) 08:05:14};
- SPSS with R さん、ご親切にありがとうございます。 --  &new{2008-10-16 (木) 10:22:58};
- この際、SPSS のオプション統計パッケージのR版のプログラムを公開するとか。（なんか本書けそうですね。どなたかやられてみてはいかがでしょうか。SPSS経由でRに引きずり込むと。） -- [[okinawa]] &new{2008-10-16 (木) 10:35:00};
- SPSS&R使って思ったのですが、SPSSは結局のところDataEditor(Excel似）から統計機能が使えるようになってるだけですね（SAS-JMPもそうだし）。もしかして、RにDataEditorの「すごいの」があればいいのかもしれない。 -- [[okinawa]] &new{2008-10-16 (木) 10:44:21};
*アクセス数： [#tdc929b1]
&counter;
人

タイムスタンプを変更しない