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 Charts (and Pie Chart)
Search
Kenji Saito
PRO
December 10, 2023
Business
0
230
棒グラフ、帯グラフ(、円グラフ) / Bar Charts (and Pie Chart)
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第6回で使用したスライドです。
Kenji Saito
PRO
December 10, 2023
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
続・インクルーシブな社会へ / Continuing Towards an Inclusive Society
ks91
PRO
0
17
AGI (人工一般知能) と創る新しく奇妙な社会 / New and Stranger Society built with AGI
ks91
PRO
0
64
回帰分析/大規模言語モデルと統計 / Regression Analysis, Large Language Models and Statistics
ks91
PRO
0
69
多重比較/相関分析 / Multiple Comparison and Correlation Analysis
ks91
PRO
0
65
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 3
ks91
PRO
0
61
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 2
ks91
PRO
0
48
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 1
ks91
PRO
1
74
インクルーシブな社会へ / Toward an Inclusive Society
ks91
PRO
0
22
P 値と有意差/分散分析 / P-value, Significant Difference and Analysis of Variance
ks91
PRO
0
71
Other Decks in Business
See All in Business
リンクアンドモチベーション 営業コンサルタント向け紹介資料 / Introduction to Link and Motivation for Sales and Consultants
lmi
0
110k
Sales Marker Culture Book(English)
salesmarker
PRO
2
3.8k
不二製油グループ本社 (02/07/2025 プレスリリース)
tsogo817421
2
230
PdM Days「組織と人をどう育てるか 〜プロダクトマネジメントエコシステムを紐解く〜」
muture
0
250
RAKSUL会社紹介資料 / RAKSUL Introduction
raksulrecruiting
9
83k
株式会社SAFELY 会社紹介 / Company
safely_pr
1
290
クラスメソッド_営業向け会社紹介資料_202502 / introduction to classmethod for sales
classmethod_jinji
0
360
Morght_Culture_Deck.pdf
morght
0
400
総合研究院の研究活動と企業等との連携促進|Science Tokyo(東京科学大学)
sciencetokyo
PRO
0
1.7k
生成AIを活用した勉強法 ~電車内でできたAWS Certified AI Practitioner過去問対策~
yuta3110
0
310
Lisse/採用ピッチ資料
lisse
0
280
第3回関東Kaggler会 LT Kaggleはうつ病患者の役に立つ
utm529f
2
210
Featured
See All Featured
Writing Fast Ruby
sferik
628
61k
Done Done
chrislema
182
16k
The Straight Up "How To Draw Better" Workshop
denniskardys
232
140k
Bash Introduction
62gerente
611
210k
個人開発の失敗を避けるイケてる考え方 / tips for indie hackers
panda_program
100
18k
No one is an island. Learnings from fostering a developers community.
thoeni
21
3.1k
Building an army of robots
kneath
303
45k
Product Roadmaps are Hard
iamctodd
PRO
50
11k
Why Our Code Smells
bkeepers
PRO
336
57k
CoffeeScript is Beautiful & I Never Want to Write Plain JavaScript Again
sstephenson
160
15k
Exploring the Power of Turbo Streams & Action Cable | RailsConf2023
kevinliebholz
30
4.6k
CSS Pre-Processors: Stylus, Less & Sass
bermonpainter
356
29k
Transcript
generated by Stable Diffusion XL v1.0 2023 6 ( )
(WBS) 2023 6 ( ) — 2023-12 – p.1/23
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 6 ( ) — 2023-12 – 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/21 ) / (2 ) OK / 2023 6 ( ) — 2023-12 – p.3/23
( ) ( ) 2023 6 ( ) — 2023-12
– p.4/23
(bar chart) y ( ) cda-demo “ .R” Git 1
2023 6 ( ) — 2023-12 – 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( . . . )’ : 2023 6 ( ) — 2023-12 – p.6/23
1 2 3 4 5 6 7 8 9 10
ฟᖍ␒ྕ1ࠥ10ࡢⱥㄒࡢヨ㦂⤖ᯝ ฟᖍ␒ྕ ᚓⅬ 0 20 40 60 80 2023 6 ( ) — 2023-12 – 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 ") : 2023 6 ( ) — 2023-12 – p.8/23
1 2 3 4 5 6 7 8 9 10
ⱥㄒ ᩘᏛ ฟᖍ␒ྕ1ࠥ10ࡢⱥㄒ࣭ᩘᏛࡢヨ㦂⤖ᯝ ฟᖍ␒ྕ ᚓⅬ 0 20 40 60 80 100 2023 6 ( ) — 2023-12 – p.9/23
100% barplot 2023 6 ( ) — 2023-12 – 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 ") # 2023 6 ( ) — 2023-12 – 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 2023 6 ( ) — 2023-12 – p.12/23
Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
20 40 60 80 100 2023 6 ( ) — 2023-12 – p.13/23
( ) barplot(data, col=cm.colors(4), ylab=" (%)", legend.text=names(data1), main=" ") ‘horiz’
R ggplot2 2023 6 ( ) — 2023-12 – p.14/23
Xᆅᇦ Yᆅᇦ D♫〇 C♫〇 B♫〇 A♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
20 40 60 80 100 2023 6 ( ) — 2023-12 – p.15/23
barplot(data, beside=T, col=cm.colors(4), ylab=" (%)", legend.text=names(data1), main=" ") ‘beside=T’ 2023
6 ( ) — 2023-12 – p.16/23
Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
10 20 30 40 50 2023 6 ( ) — 2023-12 – p.17/23
## ## col ## density density <- c(50, 25, 13,
7) barplot(data, beside=T, density=density, ylab=" (%)", legend.text=names(data1), main=" ") ‘density’ 2023 6 ( ) — 2023-12 – p.18/23
Xᆅᇦ Yᆅᇦ A♫〇 B♫〇 C♫〇 D♫〇 ᆅᇦูࢩ࢙ ࢩ࢙ (%) 0
10 20 30 40 50 2023 6 ( ) — 2023-12 – p.19/23
2023 6 ( ) — 2023-12 – p.20/23
pie(data1, col=cm.colors(4), main="X ") pie(data2, col=cm.colors(4), main="Y ") ‘pie( .
. . )’ 2023 6 ( ) — 2023-12 – p.21/23
A♫〇 B♫〇 C♫〇 D♫〇 Xᆅᇦ࡛ࡢࢩ࢙ A♫〇 B♫〇 C♫〇 D♫〇 Yᆅᇦ࡛ࡢࢩ࢙
X B C Y A B D % p.15 p.17 2023 6 ( ) — 2023-12 – p.22/23
2023 6 ( ) — 2023-12 – p.23/23