本記事では CData サポート担当からこんなことを聞かれたらどこを確認すべきか?という観点で、よく頂くお問合せ内容をご紹介します。
記事はこちら →Pure R スクリプトおよび 標準SQL を使って、R およびJava をインストール可能なあらゆるマシン上でFacebook Ads にアクセス。CData JDBC Driver for FacebookAds とRJDBC package を使って、R でリモートFacebook Ads data を利用できます。CData Driver を使うことで、業界が認めた基準で書かれたドライバーを活用して、オープンソースでポピュラーなR 言語のデータにアクセスできます。この記事では、ドライバーを使ってFacebook Ads にSQL クエリを実行する方法、および標準R 関数を呼び出してFacebook Ads をビジュアライズする方法について説明します。
マルチスレッドのMicrosoft R Open を実行すること、またはBLAS/LAPACK ライブラリにリンクされたオープン R を実行することによって、マルチスレッドおよびマネージドコードから利益を得られたドライバーのパフォーマンスにマッチできます。ここでは、Microsoft R Open 3.2.3 を使用します。CRAN レポジトリのJan. 1, 2016 snapshot からパッケージをインストールするために事前設定されています。このsnapshot は再現性を保証します。
ドライバーを使うにはRJDBC パッケージをダウンロードします。RJDBC パッケージをインストールしたら、次のコードを入力してパッケージをロードします。
library(RJDBC)
下記の情報を使いFacebook Ads にJDBC データソースとして接続します。
dbConnect やdbSendQuery のようなDBI 関数は、R にデータアクセスコードを書くための統一インターフェースを提供します。
driver <- JDBC(driverClass = "cdata.jdbc.facebookads.FacebookAdsDriver", classPath = "MyInstallationDir\lib\cdata.jdbc.facebookads.jar", identifier.quote = "'")
これで、DBI 関数を使ってFacebook Ads に接続しSQL クエリを実行する準備が整いました。dbConnect 関数を使ってJDBC 接続を初期化します。一般的なJDBC 接続文字列は次のとおりです。
conn <- dbConnect(driver,"")
Most tables require user authentication as well as application authentication. Facebook uses the OAuth authentication standard. To authenticate to Facebook, you can use the embedded OAuthClientId, OAuthClientSecret, and CallbackURL or you can obtain your own by registering an app with Facebook.
See the Getting Started chapter of the help documentation for a guide to using OAuth.
ドライバーはFacebook Ads API をリレーショナルデータベース、ビュー、ストアドプロシージャとしてモデルします。次のコードを使ってテーブルリストを検出します。
dbListTables(conn)
dbGetQuery 関数を使ってFacebook Ads API がサポートするすべてのSQL クエリを実行できます:
adaccounts <- dbGetQuery(conn,"SELECT AccountId, Name FROM AdAccounts WHERE Name = 'Acct Name'")
次のコマンドを使って、結果を[data viewer]ウィンドウで見ることができます。
View(adaccounts)
CRAN レポジトリで利用可能なあらゆるデータ初期化パッケージを使ってFacebook Ads を分析する準備が整いました。ビルトインバーのplot 関数を使って簡単なバーを作成できます。
par(las=2,ps=10,mar=c(5,15,4,2)) barplot(adaccounts$Name, main="Facebook Ads AdAccounts", names.arg = adaccounts$AccountId, horiz=TRUE)