Upgrade to Pro
— share decks privately, control downloads, hide ads and more …
Speaker Deck
Features
Speaker Deck
PRO
Sign in
Sign up for free
Search
Search
rでgoogle_analyticsデータ解析~グラフィックス編~ #TechLunch
Search
Livesense Inc.
PRO
April 23, 2014
Technology
0
63
rでgoogle_analyticsデータ解析~グラフィックス編~ #TechLunch
2011/06/29(水) @ Livesense TechLunch
発表者:福田 絵里
Livesense Inc.
PRO
April 23, 2014
Tweet
Share
More Decks by Livesense Inc.
See All by Livesense Inc.
27新卒_Webエンジニア職採用_会社説明資料
livesense
PRO
0
2.4k
株式会社リブセンス・転職会議 採用候補者様向け資料
livesense
PRO
0
51
株式会社リブセンス 会社説明資料(報道関係者様向け)
livesense
PRO
0
1.5k
データ基盤の負債解消のためのリプレイス
livesense
PRO
0
440
26新卒_総合職採用_会社説明資料
livesense
PRO
0
11k
株式会社リブセンス会社紹介資料 / Invent the next common.
livesense
PRO
1
37k
26新卒_Webエンジニア職採用_会社説明資料
livesense
PRO
1
13k
中途セールス職_会社説明資料
livesense
PRO
0
260
EM候補者向け転職会議説明資料
livesense
PRO
0
130
Other Decks in Technology
See All in Technology
DevIO2025_継続的なサービス開発のための技術的意思決定のポイント / how-to-tech-decision-makaing-devio2025
nologyance
1
370
EncryptedSharedPreferences が deprecated になっちゃった!どうしよう! / Oh no! EncryptedSharedPreferences has been deprecated! What should I do?
yanzm
0
150
スマートファクトリーの第一歩 〜AWSマネージドサービスで 実現する予知保全と生成AI活用まで
ganota
1
200
複数サービスを支えるマルチテナント型Batch MLプラットフォーム
lycorptech_jp
PRO
0
280
「どこから読む?」コードとカルチャーに最速で馴染むための実践ガイド
zozotech
PRO
0
280
JTCにおける内製×スクラム開発への挑戦〜内製化率95%達成の舞台裏/JTC's challenge of in-house development with Scrum
aeonpeople
0
190
エラーとアクセシビリティ
schktjm
1
1.2k
[ JAWS-UG 東京 CommunityBuilders Night #2 ]SlackとAmazon Q Developerで 運用効率化を模索する
sh_fk2
3
370
roppongirb_20250911
igaiga
0
190
AI開発ツールCreateがAnythingになったよ
tendasato
0
120
未経験者・初心者に贈る!40分でわかるAndroidアプリ開発の今と大事なポイント
operando
3
320
Codeful Serverless / 一人運用でもやり抜く力
_kensh
7
360
Featured
See All Featured
Imperfection Machines: The Place of Print at Facebook
scottboms
268
13k
Chrome DevTools: State of the Union 2024 - Debugging React & Beyond
addyosmani
7
840
The Language of Interfaces
destraynor
161
25k
Product Roadmaps are Hard
iamctodd
PRO
54
11k
CSS Pre-Processors: Stylus, Less & Sass
bermonpainter
358
30k
How GitHub (no longer) Works
holman
315
140k
JavaScript: Past, Present, and Future - NDC Porto 2020
reverentgeek
51
5.6k
How to Create Impact in a Changing Tech Landscape [PerfNow 2023]
tammyeverts
53
2.9k
Sharpening the Axe: The Primacy of Toolmaking
bcantrill
44
2.5k
Into the Great Unknown - MozCon
thekraken
40
2k
For a Future-Friendly Web
brad_frost
180
9.9k
A Tale of Four Properties
chriscoyier
160
23k
Transcript
RでGoogleAnalyticsデータ解析 ~グラフィックス編~ Eri Fukuda 2011/06/29
Contents 主目的 Rを利用して、Google Analytics Data Export APIからデータを取り出 し、統計解析を行う。 今回の目標 Rを利用して、Analyticsデータのグラフィック化する。
1. デバイスと関数 2. データのグラフィック化 3. おまけ
デバイスと関数 作図デバイス:グラフを出力するウィンドウ 作図関数:グラフを出力する関数 高水準作図関数 ← 要データ 低水準作図関数 ← データ不必要
対話的作図関数(作図デバイス上で直接編集)
ArbeitStock(PC版)の日にち毎の訪問者数取得(Firefox 利用者に限定) install.packages("RCurl", repos = "http://cran.md.tsukuba.ac.jp") install.packages("XML", repos = "http://cran.md.tsukuba.ac.jp")
library(RGoogleAnalytics) ga <- RGoogleAnalytics() options(RCurlOptions = list(capath = system.file("CurlSSL", "cacert.pem", package = "RCurl"), ssl.verifypeer = FALSE)) ga$SetCredentials("INSERT_USER_NAME", "INSERT_PASSWORD") profiles <- ga$GetProfileData() query <- QueryBuilder() query$Init(start.date = "2011-03-01", end.date = "2011-03-31", dimensions = "ga:date", metrics = "ga:visits", sort = "ga:date", filters = "ga:browser=~^Firefox", table.id = "ga:15300579") ga.data <- ga$GetReportData(query) ga.data$data ArbeitStock(PC版)のプロファイルID 訪問者数 日にちごと Firefox利用者に絞り込み
ga:date ga:visits 1 20110301 1932 2 20110302 1776 3 20110303
1713 4 20110304 1636 5 20110305 1111 6 20110306 1179 7 20110307 1774 8 20110308 1722 9 20110309 1690 10 20110310 1577 11 20110311 1071 12 20110312 608 13 20110313 706 14 20110314 961 15 20110315 1166 16 20110316 1186 17 20110317 1187 18 20110318 1163 19 20110319 1007 20 20110320 988 21 20110321 1261 22 20110322 1589 23 20110323 1541 24 20110324 1562 25 20110325 1476 26 20110326 1172 27 20110327 1205 28 20110328 1785 29 20110329 1779 30 20110330 1798 31 20110331 1784 ArbeitStock(PC版)の日にち毎の訪問者数取得(Firefox 利用者に限定)
作図の標準的な関数:plot() オプション:pch, col, type, main, lwd, xlim, ylim, etc...
おまけ
画像をバイナリデータとして読むこともでき、読み込み後は行列とし て扱うことが可能。 パッケージ:readBin, Bitmap, rimage, 等 library(rimage) img <- read.jpeg("livesense.jpg")
plot(img) write(img, "liveImg.dat") jpgから、datへ plot( rgb2grey(img) ) plot(equalize(img)) plot( maxImg( rgb2grey(img) ) ) plot( minImg( rgb2grey(img) ) ) plot( normalize( sobel(img) ) ) 各種画像加工 • 画像からRファイル書き出し
画像をバイナリデータとして読むこともでき、読み込み後は行列とし て扱うことが可能。 パッケージ:readBin, Bitmap, rimage, 等 library(rimage) img <- read.jpeg("livesense.jpg")
plot(img) write(img, "liveImg.dat") jpgから、datへ plot( rgb2grey(img) ) plot(equalize(img)) plot( maxImg( rgb2grey(img) ) ) plot( minImg( rgb2grey(img) ) ) plot( normalize( sobel(img) ) ) 各種画像加工 グレースケール ヒストグラムの平坦化 最大値フィルタ 最小値フィルタ ソーベルフィルタ • 画像からRファイル書き出し
• TeachingDemos package require(TeachingDemos) plot(dice(1,6)) set.seed(17) faces(matrix(sample(1:1000,128) ,4 ,32) ,main="random
faces") faces2(matrix( runif(18*10), nrow=10), main='random faces2') 統計的概念やRの使用法を学ぶためのパッケージ
• sinx^y=siny^x par(mfrow=c(1,2)) x <- seq(0, 9.5, length=50) y <-
seq(0, 6, length=50) f <- function(x,y) {r <- sin(x^y)} z <- outer(x,y,f) persp(x, y, z, theta = -10, phi = 50, col = "lightblue", ltheta = -120, shade = 0.75, box = T) f <- function(x,y) {r <- sin(y^x)} z <- outer(x,y,f) persp(x, y, z, theta = -10, phi = 50, col = "pink", ltheta = -120, shade = 0.75, box = T) z=sinx^y と z=siny^x のグラフ
RでGoogleAnalyticsデータ解析 ~統計処理編~ 次回テーマ