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
56
さまざまなグラフ描画(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
スマートコントラクトと分散ファイナンス / Smart Contracts and Decentralized Finance
ks91
PRO
0
50
シン・ブロックチェーン / Truth of Blockchain
ks91
PRO
0
78
パスワード/パスフレーズと認証 / Password, Passphrase and Authentication
ks91
PRO
0
32
git と GitHub / git and GitHub
ks91
PRO
0
32
ソフトウェアの開発と保守 / Software Development and Maintenance
ks91
PRO
0
46
インターネットの特徴 / Features of the Internet
ks91
PRO
0
31
インターネットのガバナンス / Governance of the Internet
ks91
PRO
0
29
暗号学的ハッシュ関数 / Cryptographic Hash Function
ks91
PRO
0
35
デジタル署名 / Digital Signature
ks91
PRO
0
30
Other Decks in Technology
See All in Technology
初めてのAzure FunctionsをClaude Codeで作ってみた / My first Azure Functions using Claude Code
hideakiaoyagi
1
220
LinkX_GitHubを基点にした_AI時代のプロジェクトマネジメント.pdf
iotcomjpadmin
0
170
HiMoR: Monocular Deformable Gaussian Reconstruction with Hierarchical Motion Representation
spatial_ai_network
0
110
Wasm元年
askua
0
140
Witchcraft for Memory
pocke
1
300
AWS CDK 実践的アプローチ N選 / aws-cdk-practical-approaches
gotok365
6
740
GeminiとNotebookLMによる金融実務の業務革新
abenben
0
230
第9回情シス転職ミートアップ_テックタッチ株式会社
forester3003
0
230
強化されたAmazon Location Serviceによる新機能と開発者体験
dayjournal
2
210
Clineを含めたAIエージェントを 大規模組織に導入し、投資対効果を考える / Introducing AI agents into your organization
i35_267
4
1.6k
GitHub Copilot の概要
tomokusaba
1
130
Amazon Bedrockで実現する 新たな学習体験
kzkmaeda
2
540
Featured
See All Featured
Visualization
eitanlees
146
16k
Building Applications with DynamoDB
mza
95
6.5k
Faster Mobile Websites
deanohume
307
31k
Site-Speed That Sticks
csswizardry
10
660
Creating an realtime collaboration tool: Agile Flush - .NET Oxford
marcduiker
30
2.1k
Save Time (by Creating Custom Rails Generators)
garrettdimon
PRO
31
1.2k
Designing for humans not robots
tammielis
253
25k
Bash Introduction
62gerente
614
210k
Optimising Largest Contentful Paint
csswizardry
37
3.3k
4 Signs Your Business is Dying
shpigford
184
22k
Code Reviewing Like a Champion
maltzj
524
40k
Build your cross-platform service in a week with App Engine
jlugia
231
18k
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