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
96
棒グラフ、帯グラフ(、円グラフ) / 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
試作とデモンストレーション / Prototyping and Demonstrations
ks91
PRO
0
160
プロンプトに対する攻撃と対策 / Attacks Against Prompts and Countermeasures
ks91
PRO
0
41
対話による知の拡張 / Extending Knowledge Through Dialogues
ks91
PRO
0
33
サイボーグ化する社会 / Society Becoming A Cyborg
ks91
PRO
0
13
アカデミーキャンプ 2024年5月の実験セッション / Experimental session at the Academy Camp May 2024
ks91
PRO
0
22
シリアスゲームとしての RPG / RPG as a Serious Game
ks91
PRO
0
44
"September 12th" ゲームのプロンプトの構造 / Prompt Structure of "September 12th" Game
ks91
PRO
0
54
コードや知識を組み込む / Incorporate Code and knowledge
ks91
PRO
0
190
大規模言語モデルの原理と使いこなしの原則 / Principles of Large Language Models and Their Use
ks91
PRO
0
56
Other Decks in Business
See All in Business
Pale Blue会社紹介
paleblue
0
22k
採用ピッチブック
macloud
2
49k
Pacific Meta Company Deck
pacificmeta
0
3.8k
Mercari-Fact-book_en
mercari_inc
1
18k
株式会社CAMPFIRE|会社紹介資料
campfire
0
62k
enechain company deck
enechain
PRO
3
71k
Beyond Engineering: The Future of Platforms
mfpais
PRO
1
330
(公開版)スクラムマスターはどのように成長するのか
junki
8
1.3k
Product Info
urbanxtechnologies
0
600
2023年度ICT職専門研修(海外派遣研修)報告書_No.3_行政におけるパブリッククラウド活用の世界動向把握による庁内のDX及び区市町村のDX協働の推進力向上
tokyo_metropolitan_gov_digital_hr
1
170
プロダクトの価値を最大化する「言語化筋トレ」のすすめ / "Verbalizing muscle training” to maximize the value of products
ar_tama
21
10k
ドワンゴエンジニアインターンシップ/engineer internship
dwango_recruit
0
860
Featured
See All Featured
Code Review Best Practice
trishagee
56
15k
ParisWeb 2013: Learning to Love: Crash Course in Emotional UX Design
dotmariusz
104
6.7k
Infographics Made Easy
chrislema
238
18k
How To Stay Up To Date on Web Technology
chriscoyier
782
250k
How GitHub Uses GitHub to Build GitHub
holman
468
290k
Fantastic passwords and where to find them - at NoRuKo
philnash
39
2.5k
No one is an island. Learnings from fostering a developers community.
thoeni
16
2.1k
Faster Mobile Websites
deanohume
300
30k
Code Reviewing Like a Champion
maltzj
515
39k
Scaling GitHub
holman
457
140k
For a Future-Friendly Web
brad_frost
172
9k
Happy Clients
brianwarren
92
6.4k
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