各製品の資料を入手。
詳細はこちら →
製品をチェック
au PAY Market のデータをR で分析：JDBC での接続
CData JDBC Driver で標準的なR 関数とお好みの開発環境を使ってau PAY Market を分析。
最終更新日：2023-09-21
この記事で実現できるau PAY Market 連携のシナリオ
こんにちは！ウェブ担当の加藤です。マーケ関連のデータ分析や整備もやっています。
CData JDBC Driver for auPAYMarket とRJDBC package を使って、R でリモートau PAY Market データ を利用できます。CData Driver を使うことで、業界が認めた基準で書かれたドライバーを活用して、オープンソースでポピュラーなR 言語のデータにアクセスできます。この記事では、ドライバーを使ってau PAY Market にSQL クエリを実行する方法、および標準R 関数を呼び出してau PAY Market をビジュアライズする方法について説明します。
R をインストール
マルチスレッドのMicrosoft R Open を実行すること、またはBLAS/LAPACK ライブラリにリンクされたオープン R を実行することによって、マルチスレッドおよびマネージドコードから利益を得られたドライバーのパフォーマンスにマッチできます。ここでは、Microsoft R Open 3.2.3 を使用します。CRAN レポジトリのJan. 1, 2016 snapshot からパッケージをインストールするために事前設定されています。このsnapshot は再現性を保証します。
RJDBC パッケージをロード
ドライバーを使うにはRJDBC パッケージをダウンロードします。RJDBC パッケージをインストールしたら、次のコードを入力してパッケージをロードします。
library(RJDBC)
JDBC データソースとしてau PAY Market に接続
下記の情報を使いau PAY Market にJDBC データソースとして接続します。
- Driver Class：cdata.jdbc.aupaymarket.auPAYMarketDriver に設定。
- Classpath：Driver JAR の場所を設定します。デフォルトではインストールディレクトリの［lib］サブフォルダです。
dbConnect やdbSendQuery のようなDBI 関数は、R にデータアクセスコードを書くための統一インターフェースを提供します。
driver <- JDBC(driverClass = "cdata.jdbc.aupaymarket.auPAYMarketDriver", classPath = "MyInstallationDir\lib\cdata.jdbc.aupaymarket.jar", identifier.quote = "'")
これで、DBI 関数を使ってau PAY Market に接続しSQL クエリを実行する準備が整いました。dbConnect 関数を使ってJDBC 接続を初期化します。一般的なJDBC 接続文字列は次のとおりです。
conn <- dbConnect(driver,"ApiKey=MyApiKey;ShopId=MyShopId")
au PAY マーケットに接続するには、ShopId およびApiKey が必要です。
au PAY マーケットへのアクセスの設定
ShopId およびApiKey を取得するには、以下の手順に従ってください。
- Wow! manager サイトにログインして、「各種お申し込み」メニューの「API利用申請」に移動します。
- API利用規約に同意します。
- 「APIキーの発行はこちら」をクリックします。
- 「発行」ボタンをクリックして、API キーを生成します。
- 「接続元IPアドレスを登録」に、対象とするIP アドレスを入力します。
- 「登録」ボタンをクリックして、設定を保存します。
au PAY マーケットアカウントの認証
次の接続プロパティを設定して接続します。
- ShopId：接続先のau PAY マーケットShop ID を設定。
- ApiKey：API キーを設定。au PAY マーケットストアアカウントから取得したAPI キーです。
- UseSandbox：Sandbox 環境に接続する場合はTrue を設定。
スキーマ Discovery
ドライバーはau PAY Market API をリレーショナルデータベース、ビュー、ストアドプロシージャとしてモデルします。次のコードを使ってテーブルリストを検出します。
dbListTables(conn)
SQL クエリの実行
dbGetQuery 関数を使ってau PAY Market API がサポートするすべてのSQL クエリを実行できます：
items <- dbGetQuery(conn,"SELECT ItemCode, Price FROM Items")
次のコマンドを使って、結果を［data viewer］ウィンドウで見ることができます。
View(items)
au PAY Market データ をプロット
CRAN レポジトリで利用可能なあらゆるデータ初期化パッケージを使ってau PAY Market を分析する準備が整いました。ビルトインバーのplot 関数を使って簡単なバーを作成できます。
par(las=2,ps=10,mar=c(5,15,4,2)) barplot(items$Price, main="au PAY Market Items", names.arg = items$ItemCode, horiz=TRUE)
関連コンテンツ
