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
棒グラフ、帯グラフ(、円グラフ) / Bar chart, band chart (, pie...
Search
Kenji Saito
PRO
November 29, 2024
Technology
0
75
棒グラフ、帯グラフ(、円グラフ) / Bar chart, band chart (, pie chart)
早稲田大学大学院経営管理研究科「企業データ分析」2024 冬のオンデマンド教材 第6回で使用したスライドです。
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
53
シン・ブロックチェーン / Truth of Blockchain
ks91
PRO
0
82
パスワード/パスフレーズと認証 / Password, Passphrase and Authentication
ks91
PRO
0
32
git と GitHub / git and GitHub
ks91
PRO
0
34
ソフトウェアの開発と保守 / Software Development and Maintenance
ks91
PRO
0
47
インターネットの特徴 / Features of the Internet
ks91
PRO
0
34
インターネットのガバナンス / 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
5min GuardDuty Extended Threat Detection EKS
takakuni
0
160
「良さそう」と「とても良い」の間には 「良さそうだがホンマか」がたくさんある / 2025.07.01 LLM品質Night
smiyawaki0820
1
310
MySQL5.6から8.4へ 戦いの記録
kyoshidaxx
1
260
エンジニア向け技術スタック情報
kauche
1
280
How Community Opened Global Doors
hiroramos4
PRO
1
120
PHPでWebブラウザのレンダリングエンジンを実装する
dip_tech
PRO
0
210
【PHPカンファレンス 2025】PHPを愛するひとに伝えたい PHPとキャリアの話
tenshoku_draft
0
120
より良いプロダクトの開発を目指して - 情報を中心としたプロダクト開発 #phpcon #phpcon2025
bengo4com
1
3.1k
SalesforceArchitectGroupOsaka#20_CNX'25_Report
atomica7sei
0
200
"サービスチーム" での技術選定 / Making Technology Decisions for the Service Team
kaminashi
1
170
生まれ変わった AWS Security Hub (Preview) を紹介 #reInforce_osaka / reInforce New Security Hub
masahirokawahara
0
220
mrubyと micro-ROSが繋ぐロボットの世界
kishima
2
350
Featured
See All Featured
Save Time (by Creating Custom Rails Generators)
garrettdimon
PRO
31
1.2k
Raft: Consensus for Rubyists
vanstee
140
7k
Fight the Zombie Pattern Library - RWD Summit 2016
marcelosomers
233
17k
The Illustrated Children's Guide to Kubernetes
chrisshort
48
50k
How STYLIGHT went responsive
nonsquared
100
5.6k
The Myth of the Modular Monolith - Day 2 Keynote - Rails World 2024
eileencodes
26
2.9k
How to Create Impact in a Changing Tech Landscape [PerfNow 2023]
tammyeverts
53
2.8k
The Cult of Friendly URLs
andyhume
79
6.5k
Easily Structure & Communicate Ideas using Wireframe
afnizarnur
194
16k
Thoughts on Productivity
jonyablonski
69
4.7k
How GitHub (no longer) Works
holman
314
140k
Rails Girls Zürich Keynote
gr2m
94
14k
Transcript
Boxes and whiskers — generated by Stable Diffusion XL v1.0
2024 6 ( ) (WBS) 2024 6 ( ) — 2024-11 – p.1/23
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2024-winter 2024 6 ( ) — 2024-11 – p.2/23
( 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 6 ( ) — 2024-11 – p.3/23
( ) ( ) 2024 6 ( ) — 2024-11
– p.4/23
(bar chart) y ( ) cda-demo “ .R” Git “
.R” 1 2024 6 ( ) — 2024-11 – p.5/23
“ .txt” 1 1 <- read.table(" .txt", header=T) 10 barplot(
1$ [1:10], names.arg=c(1:10), xlab=" ", ylab=" ", main=" 1 10 ") ‘barplot( . . . )’ : 2024 6 ( ) — 2024-11 – p.6/23
1 2 3 4 5 6 7 8 9 10
ฟᖍ␒ྕ1ࠥ10ࡢⱥㄒࡢヨ㦂⤖ᯝ ฟᖍ␒ྕ ᚓⅬ 0 20 40 60 80 2024 6 ( ) — 2024-11 – p.7/23
( 10 ) 1 2 ## t(table) table ## (matrix)
2 <- t( data.frame( = 1$ [1:10], = 1$ [1:10])) (‘beside=T’) barplot( , beside=T, names.arg=c(1:10), legend.text=T, ylim=c(0, 100), xlab=" ", ylab=" ", main=" 1 10 ") : 2024 6 ( ) — 2024-11 – p.8/23
1 2 3 4 5 6 7 8 9 10
ⱥㄒ ᩘᏛ ฟᖍ␒ྕ1ࠥ10ࡢⱥㄒ࣭ᩘᏛࡢヨ㦂⤖ᯝ ฟᖍ␒ྕ ᚓⅬ 0 20 40 60 80 100 2024 6 ( ) — 2024-11 – p.9/23
100% barplot 2024 6 ( ) — 2024-11 – p.10/23
A∼D ( 100%) X Y data1 <- c( "A "=51,
"B "=21, "C "=20, "D "=8) data2 <- c( "A "=33, "B "=35, "C "=20, "D "=12) data <- matrix(c(data1, data2), length(data1), 2) # 4 2 colnames(data) <- c("X ", "Y ") # 2024 6 ( ) — 2024-11 – p.11/23
barplot(data, horiz=T, col=cm.colors(4), xlab=" (%)", legend.text=names(data1), main=" ") ‘horiz’ (
F (False)) ‘col’ ‘cm.colors(4)’ cm ( ) 4 ‘legend.text=names(data1)’ data1 2024 6 ( ) — 2024-11 – p.12/23
Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
20 40 60 80 100 2024 6 ( ) — 2024-11 – p.13/23
( ) barplot(data, col=cm.colors(4), ylab=" (%)", legend.text=names(data1), main=" ") ‘horiz’
R ggplot2 2024 6 ( ) — 2024-11 – p.14/23
Xᆅᇦ Yᆅᇦ D♫〇 C♫〇 B♫〇 A♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
20 40 60 80 100 2024 6 ( ) — 2024-11 – p.15/23
barplot(data, beside=T, col=cm.colors(4), ylab=" (%)", legend.text=names(data1), main=" ") ‘beside=T’ 2024
6 ( ) — 2024-11 – p.16/23
Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
10 20 30 40 50 2024 6 ( ) — 2024-11 – p.17/23
## ## col ## density density <- c(50, 25, 13,
7) barplot(data, beside=T, density=density, ylab=" (%)", legend.text=names(data1), main=" ") ‘density’ 2024 6 ( ) — 2024-11 – p.18/23
Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
10 20 30 40 50 2024 6 ( ) — 2024-11 – p.19/23
2024 6 ( ) — 2024-11 – p.20/23
pie(data1, col=cm.colors(4), main="X ") pie(data2, col=cm.colors(4), main="Y ") ‘pie( .
. . )’ 2024 6 ( ) — 2024-11 – p.21/23
A♫〇 B♫〇 C♫〇 D♫〇 Xᆅᇦ࡛ࡢࢩ࢙ A♫〇 B♫〇 C♫〇 D♫〇 Yᆅᇦ࡛ࡢࢩ࢙
X B C Y A B D % p.15 p.17 2024 6 ( ) — 2024-11 – p.22/23
2024 6 ( ) — 2024-11 – p.23/23