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
Kenji Saito
PRO
December 09, 2023
Business
0
72
散布図と相関 / Scatter Plots and Correlations
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第5回で使用したスライドです。
Kenji Saito
PRO
December 09, 2023
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
対話による知の拡張 / Extending Knowledge Through Dialogue
ks91
PRO
0
19
プロンプトに対する攻撃と対策 / Attacks Against Prompts and Countermeasures
ks91
PRO
0
18
傾聴の理論 〜 傾聴する相棒の創り方 / Theory of Listening and How to Create a Listening Partner
ks91
PRO
0
18
試作とデモンストレーション / Prototyping and Demonstrations
ks91
PRO
0
100
アカデミーキャンプ 2025GWeeeeeeK「がんばれ!!ロボコン」 DAY 3 / Academy Camp 2025GWeeeeeeK "Go For It!! Robocon" DAY 3
ks91
PRO
0
8
アカデミーキャンプ 2025GWeeeeeeK「がんばれ!!ロボコン」 DAY 2 / Academy Camp 2025GWeeeeeeK "Go For It!! Robocon" DAY 2
ks91
PRO
0
13
BIG HEXAPOD ROBOT KIT for Raspberry Pi 組み立てサポートマニュアル / BIG HEXAPOD ROBOT KIT for Raspberry Pi Assembly Support Manual
ks91
PRO
0
22
TANK ROBOT KIT for Raspberry Pi 組み立てサポートマニュアル / TANK ROBOT KIT for Raspberry Pi Assembly Support Manual
ks91
PRO
0
21
ロボットとのコミュニケーションマニュアル / Manual for Communicating with Robots
ks91
PRO
0
14
Other Decks in Business
See All in Business
提案のレベルを上げる #QiitaConference
konifar
63
21k
『プロダクト戦略』を紐解く — 言語化・組織実装・実行までのリアル —
shunikeda
0
710
スタートアップ・フィット・ジャーニー Version 2
tumada
11
2.2k
家族アルバム みてね 事業紹介 / Our Business
familyalbum
4
35k
Sales Marker Culture book
salesmarker
PRO
31
46k
FABRIC TOKYO会社紹介資料 / We are hiring(2025年4月30日更新)
yuichirom
36
320k
採用ピッチ|テクノロジー本部|EC開発部
dmm2025
0
280
ITエンジニアのためのコーポレートファイナンス入門シリーズ! #4 財務分析の基本〜おかわり〜
tkhresk
3
260
2025年度採用資料
tcmktdev
0
1.9k
よくわからないことが多い場合の計画づくり(アジャイルな計画づくり)
yohhatu
0
120
株式会社スペース 会社紹介
spacerecruit
0
470
OJTはキミに決めた!! ~ その覚悟で、チームが変わる ~
natty_natty254
0
200
Featured
See All Featured
A designer walks into a library…
pauljervisheath
205
24k
Fantastic passwords and where to find them - at NoRuKo
philnash
51
3.2k
Adopting Sorbet at Scale
ufuk
76
9.4k
"I'm Feeling Lucky" - Building Great Search Experiences for Today's Users (#IAC19)
danielanewman
227
22k
How to Create Impact in a Changing Tech Landscape [PerfNow 2023]
tammyeverts
52
2.5k
For a Future-Friendly Web
brad_frost
177
9.7k
How to Think Like a Performance Engineer
csswizardry
23
1.6k
Facilitating Awesome Meetings
lara
54
6.3k
Bash Introduction
62gerente
613
210k
[Rails World 2023 - Day 1 Closing Keynote] - The Magic of Rails
eileencodes
34
2.2k
The Invisible Side of Design
smashingmag
299
50k
GraphQLとの向き合い方2022年版
quramy
46
14k
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