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
散布図と相関 / Scatter Plots and Correlations
Search
Sponsored
·
Your Podcast. Everywhere. Effortlessly.
Share. Educate. Inspire. Entertain. You do you. We'll handle the rest.
→
Kenji Saito
PRO
December 09, 2023
Business
79
0
Share
散布図と相関 / Scatter Plots and Correlations
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第5回で使用したスライドです。
Kenji Saito
PRO
December 09, 2023
More Decks by Kenji Saito
See All by Kenji Saito
AI と創る新たな世界 / A New World Created with AI
ks91
PRO
0
11
ポスター発表&デモと総括 / Poster Presentations & Demonstrations and Summary
ks91
PRO
0
34
OpenClaw のインストールとデモ / Installing and Demonstrating OpenClaw
ks91
PRO
0
25
AI とサービス・デザイン / AI and Service Design
ks91
PRO
0
170
ルール・ロール・ツールを創る / Creating Rules, Roles and Tools
ks91
PRO
0
170
コーディング・エージェントの活用 / Using Coding Agents
ks91
PRO
0
47
AGI (Artificial General Intelligence) の論点 / Key Issues in AGI (Artificial General Intelligence)
ks91
PRO
0
36
ワールドカフェ再び、そしてゴール・ルール・ロール・ツール / World Café Revisited, and the Goals-Rules-Roles-Tools
ks91
PRO
0
200
AI の技術 / AI technology
ks91
PRO
0
180
Other Decks in Business
See All in Business
市場特性に応じたマルチプロダクト戦略と持続的な成長を支える組織デザイン
play_inc
0
3k
AnyMind Group Credential Deck(EN)
anymind
3
81k
Codexを安心して業務活用するには?──「権限・接続・実行」の考え方
hima2b4
0
220
"分からないまま走る"をやめたら不確実性に向き合えるチームになっていった話 ~開発指標で語るプロセス改善~
bicstone
1
110
会社紹介資料
gatechnologies
2
180k
Culture by Design: Shaping a Learning Ecosystem That Works for Everyone
tmiket
0
110
“使われているハーネス/使われていないハーネス”を可視化するところから始めた話
sugamoto
0
150
Practical Guide to Landing Your First Job on Upwork
x5gtrn
PRO
0
140
May 2026 - travel company results
marketingttc
0
110
AWTTの歩き方〜Tableau編〜
leafyoh
0
150
ITが何の略なのかも知らないままエンジニアになっちゃったのでインターネットに生き恥を晒してみた話
m_k__77
0
180
DMM.com コーポレートブック
dmm
2
480k
Featured
See All Featured
Dealing with People You Can't Stand - Big Design 2015
cassininazir
367
27k
Marketing Yourself as an Engineer | Alaka | Gurzu
gurzu
0
200
Lessons Learnt from Crawling 1000+ Websites
charlesmeaden
PRO
1
1.2k
ピンチをチャンスに:未来をつくるプロダクトロードマップ #pmconf2020
aki_iinuma
128
55k
Google's AI Overviews - The New Search
badams
0
1k
[SF Ruby Conf 2025] Rails X
palkan
2
1k
Designing for humans not robots
tammielis
254
26k
Leveraging Curiosity to Care for An Aging Population
cassininazir
1
240
Easily Structure & Communicate Ideas using Wireframe
afnizarnur
194
17k
A designer walks into a library…
pauljervisheath
211
24k
From Legacy to Launchpad: Building Startup-Ready Communities
dugsong
0
210
Color Theory Basics | Prateek | Gurzu
gurzu
0
320
Transcript
generated by Stable Diffusion XL v1.0 2023 5 (WBS) 2023
5 — 2023-12 – p.1/16
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 5 — 2023-12 – p.2/16
( 20 ) 1 • 2 R • 3 •
4 • 5 • 6 ( ) 7 (1) 8 (2) 9 R ( ) (1) 10 R ( ) (2) 11 R ( ) (1) 12 R ( ) (2) 13 GPT-4 14 GPT-4 15 ( ) LaTeX Overleaf 8 (12/21 ) / (2 ) OK / 2023 5 — 2023-12 – p.3/16
RStudio Git ( ) 2 2023 5 — 2023-12 –
p.4/16
RStudio Git ( ) RStudio Git Git ( GPL) GitHub
Git ( ) RStudio pull 2023 5 — 2023-12 – p.5/16
Git RStudio Git (OS ) Linux : ( OK) macOS
: Xcode (Apple ) Xcode AppStore https://apps.apple.com/jp/app/xcode/id497799835 Windows : https://gitforwindows.org OK https://github.com/ks91/cda-demo Git 2023 5 — 2023-12 – p.6/16
(scatter plot) 2 x y ( ) (◦ ) plot
(verb): mark out or allocate (points) on a graph cda-demo “ .R” 1 2023 5 — 2023-12 – p.7/16
“ .txt” 1 1 <- read.table(" .txt", header=T) plot( 1,
xlim=c(0, 100), ylim=c(0, 100), xlab=" ", ylab=" ", main=" ") : 2023 5 — 2023-12 – p.8/16
0 20 40 60 80 100 0 20 40 60
80 100 ṇࡢ┦㛵ࡢ ⱥㄒࡢヨ㦂⤖ᯝ ᩘᏛࡢヨ㦂⤖ᯝ 2023 5 — 2023-12 – p.9/16
“ .txt” 2 2 <- read.table(" .txt", header=T) plot( 2,
xlim=c(0, 20.0), ylim=c(13.0, 18.0), xlab=" ", ylab="100m ( )", main=" ") : 2023 5 — 2023-12 – p.10/16
0 5 10 15 20 13 14 15 16 17
18 ㈇ࡢ┦㛵ࡢ 㐌ᙜࡓࡾࡢㄢእ㐠ື㛫 100m㉮ࡢࢱ࣒ (⛊) 2023 5 — 2023-12 – p.11/16
1 2 plot( 1$ , 2$ , xlim=c(0, 100), ylim=c(13.0,
18.0), xlab=" ", ylab="100m ( )", main=" ") ( ) : 2023 5 — 2023-12 – p.12/16
0 20 40 60 80 100 13 14 15 16
17 18 ↓┦㛵ࡢ ⱥㄒࡢヨ㦂⤖ᯝ 100m㉮ࡢࢱ࣒ (⛊) 2023 5 — 2023-12 – p.13/16
3 1 2 3 3 <- data.frame( = 1$ ,
= 1$ , = 2$ , = 2$ ) plot( 3) 2 12 : plot 2023 5 — 2023-12 – p.14/16
ⱥㄒ 20 40 60 80 20 40 60 80 100
13 14 15 16 17 20 40 60 80 ᩘᏛ 㐠ື㛫 0 5 10 15 13 14 15 16 17 20 40 60 80 100 0 5 10 15 ▷㊥㞳 2023 5 — 2023-12 – p.15/16
2023 5 — 2023-12 – p.16/16