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
さまざまなグラフ描画(1) / Various graphical representatio...
Search
Kenji Saito
PRO
November 29, 2024
Technology
0
64
さまざまなグラフ描画(1) / Various graphical representations (1)
早稲田大学大学院経営管理研究科「企業データ分析」2024 冬のオンデマンド教材 第7回で使用したスライドです。
Kenji Saito
PRO
November 29, 2024
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
We Never Took the Kobayashi Maru Test Until Now. What Do You Think of Our Solutions? — Journeys of the Mind Through a No-Win Game
ks91
PRO
0
12
思いつきが武器になる:研究というゲームを始めよう / Ideas Are Your Equipments : Let the Game of Research Begin!
ks91
PRO
0
68
ロボットを雰囲気(ヴァイブ)でプログラミングするこどもたち / Children Vibe-Programming Robots
ks91
PRO
0
21
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 3
ks91
PRO
0
30
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 2
ks91
PRO
0
32
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 1
ks91
PRO
0
160
未来へのフォワードキャスト / Forward Cast to the Future
ks91
PRO
0
86
発表と総括 / Presentations and Summary
ks91
PRO
0
61
サイバーフィジカル社会、金融の未来とアイデアソン / Cyber Physical Society, Future of Finance, and Ideathon
ks91
PRO
0
78
Other Decks in Technology
See All in Technology
ソフトウェア エンジニアとしての 姿勢と心構え
recruitengineers
PRO
26
12k
コスト削減の基本の「キ」~ コスト消費3大リソースへの対策 ~
smt7174
2
320
退屈なことはDevinにやらせよう〜〜Devin APIを使ったVisual Regression Testの自動追加〜
kawamataryo
4
1.1k
LLM翻訳ツールの開発と海外のお客様対応等への社内導入事例
gree_tech
PRO
0
430
ZOZOマッチのアーキテクチャと技術構成
zozotech
PRO
2
1.1k
生成AI時代に必要な価値ある意思決定を育てる「開発プロセス定義」を用いた中期戦略
kakehashi
PRO
1
250
事業価値と Engineering
recruitengineers
PRO
8
5.4k
異業種出身エンジニアが気づいた、転向して十数年経っても変わらない自分の武器とは
macnekoayu
0
260
Grafana MCPサーバーによるAIエージェント経由でのGrafanaダッシュボード動的生成
hamadakoji
1
1k
データアナリストからアナリティクスエンジニアになった話
hiyokko_data
0
260
Grafana Meetup Japan Vol. 6
kaedemalu
1
200
Snowflakeの生成AI機能を活用したデータ分析アプリの作成 〜Cortex AnalystとCortex Searchの活用とStreamlitアプリでの利用〜
nayuts
0
140
Featured
See All Featured
GraphQLとの向き合い方2022年版
quramy
49
14k
Keith and Marios Guide to Fast Websites
keithpitt
411
22k
Intergalactic Javascript Robots from Outer Space
tanoku
272
27k
Thoughts on Productivity
jonyablonski
69
4.8k
Building an army of robots
kneath
306
46k
Sharpening the Axe: The Primacy of Toolmaking
bcantrill
44
2.5k
GitHub's CSS Performance
jonrohan
1032
460k
Let's Do A Bunch of Simple Stuff to Make Websites Faster
chriscoyier
507
140k
Code Reviewing Like a Champion
maltzj
525
40k
Done Done
chrislema
185
16k
Designing for humans not robots
tammielis
253
25k
A Tale of Four Properties
chriscoyier
160
23k
Transcript
Boxes and whiskers — generated by Stable Diffusion XL v1.0
2024 7 (1) (WBS) 2024 7 (1) — 2024-11 – p.1/18
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2024-winter 2024 7 (1) — 2024-11 – p.2/18
( 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/16 ) / (2 ) OK / 2024 7 (1) — 2024-11 – p.3/18
( ) ( ) 2024 7 (1) — 2024-11 –
p.4/18
(line chart) x y cda-demo “ -1.R” Git “ -1.R”
1 2024 7 (1) — 2024-11 – p.5/18
“ .txt” 1 1 <- read.table(" .txt", header=T) A 4
plot( 1$ , 1$A , type="o", pch=0, ylim=c(40, 80), xaxp=c(1,4,3), ylab=" ", xlab=" ", main="A ") ‘type="o"’ ‘pch=0’ ‘xaxp=c(1,4,3)’ x 1 4 3 1.5 2024 7 (1) — 2024-11 – p.6/18
1 2 3 4 40 50 60 70 80 A⤌ࡢᖹᆒⅬࡢ᥎⛣
ᶍヨᅇ ᖹᆒⅬ 2024 7 (1) — 2024-11 – p.7/18
plot ( ) type ( ) : "p" ( )
"l" ( ) "o" ( ) "h" ( ) cf. https://r-charts.com/base-r/line-types/ (Line plot types) pch (plotting character)( ) : 0 ( ) 1 (◦) 2 (△) 3 (+) 4 (×) cf. https://r-charts.com/base-r/pch-symbols/ lty (line type)( ) : 1 ( ) 2 ( ) 3 ( ) cf. https://r-charts.com/base-r/line-types/ (Line types) lwd (line width)( ) 2024 7 (1) — 2024-11 – p.8/18
(1/2) A B plot( 1$ , 1$A , type="o", lty=1,
pch=1, col=1, ylim=c(40, 80), xaxp=c(1,4,3), ylab=" ", xlab=" ", main="A,B,C,D ") par(new=T) plot( 1$ , 1$B , type="o", lty=2, pch=2, col=2, ylim=c(40, 80), xaxp=c(1,4,3), axes=F, ann=F) ‘par(new=T)’ ( ) B plot ‘axes=F’ ‘ann=F’ ‘ylim’ ‘xaxp’ ‘lty’ ‘pch’ ‘col’ 2024 7 (1) — 2024-11 – p.9/18
(2/2) C D par(new=T) plot( 1$ , 1$C , type="o",
lty=3, pch=3, col=3, ylim=c(40, 80), xaxp=c(1,4,3), axes=F, ann=F) par(new=T) plot( 1$ , 1$D , type="o", lty=4, pch=4, col=4, ylim=c(40, 80), xaxp=c(1,4,3), axes=F, ann=F) legend("topleft", legend=names( 1)[2:5], lty=1:4, pch=1:4, col=1:4) ‘legend(. . .)’ ( top-left) 2024 7 (1) — 2024-11 – p.10/18
1 2 3 4 40 50 60 70 80 A,B,C,D⤌ࡢᖹᆒⅬࡢ᥎⛣
ᶍヨᅇ ᖹᆒⅬ A⤌ B⤌ C⤌ D⤌ 2024 7 (1) — 2024-11 – p.11/18
(radar chart) n n 0 n n 2024 7 (1)
— 2024-11 – p.12/18
(1/2) AI(GPT-4) install.packages("fmsb") library("fmsb") 2 <- read.table(" .txt", header=T) maxmin
<- data.frame( =c(7,0), =c(7,0), =c(7,0), =c(7,0), =c(7,0)) fmsb ( ) maxmin 2024 7 (1) — 2024-11 – p.13/18
(2/2) data <- rbind(maxmin, 2) radarchart(data, seg=7, centerzero=T, title="GPT-4 ")
legend("topleft", legend=c(" ", " "), lty=1:2, pch=16, col=c("black", "red")) ‘rbind(. . .)’ ‘radarchart(. . .)’ 2 3 ( 1∼ ) ‘seg=7’ 7 ‘centerzero=T’ 0 2024 7 (1) — 2024-11 – p.14/18
GPT-4 ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ ༠ㄪᛶ ㄔᐇᛶ እྥᛶ ᚰ㓄ᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ 2024
7 (1) — 2024-11 – p.15/18
2 barplot(as.matrix( 2), beside=T, ylim=c(0, 7), yaxp=c(1,7,6), col=c("black", "red"), density=c(25,
50), legend.text=c(" ", " "), args.legend=list(x="topleft"), main="GPT-4 ") ‘as.matrix(. . .)’ ( ) ‘args.legend’ 2024 7 (1) — 2024-11 – p.16/18
༠ㄪᛶ እྥᛶ 㛤ᨺᛶ ᨃែࡢᑐ㇟ ᨃែࡢ⤖ᯝ GPT-4 ࡼࡿே㛫ࡢᛶ᱁ࡢᨃែ 1 2 3
4 5 6 7 ㄔᐇᛶ ᚰ㓄ᛶ 2024 7 (1) — 2024-11 – p.17/18
2024 7 (1) — 2024-11 – p.18/18