Bag of Letter Beads

analysis.R

library(tidyverse)

letters <- read_csv("https://gist.githubusercontent.com/tyleransom/c197d17b745870a464926435b95d7d9c/raw/3fd2cf7f50ecd9c04bd5adfbe4892f490730a560/beads.csv")

ggplot(data=letters, aes(x=`letter/character`)) +
    geom_bar() +
    geom_text(stat='count', aes(label=..count..), vjust=-1) +
    theme_minimal()

beads.csv

letter/character,
N
L
B
B
B
S
T
E
U
Y
T
A
Y
H
S
U
U
O
U
I
L
R
S
R
P
O
R
T
M
P
L
P
T
H
U
A
Q
E
L
K
U
H
F
N
O
C
R
N
A
L
S
N
O
A
D
A
R
O
F
N
D
A
N
D
S
G
S
W
G
A
A
A
M
O
A
G
F
K
G
S
T
T
A
R
L
C
#
H
❤
F
R
O
Y
W
E
B
B
A
U
D
T
S
O
U
T
N
S
P
T
T
A
J
J
O
L
U
Z
D
O
N
A
H
L
U
F
A
L
U
I
U
U
L
L
E
G
T
A
E
X
F
E
X
A
X
N
F
E
B
K
A
H
R
I
B
T
U
N
Q
S
M
T
A
P
A
Y
N
S
J
Z
R
H
P
O
F
M
K
L
S
J
F
F
❤
R
C
A
Y
S
P
R
B
Q
I
K
T
A
N
Y
N
M
F
B
K
P
J
O
R
N
G
S
H
H
H
V
U
B
G
#
A
T
D
Y
U
E
P
P
V
F
K
H
O
L
F
R
B
L
T
J
E
D
M
D
P
S
S
O
P
E
A
A
S
Y
Z
J
H
L
V
S
J
E
C
H
N
A
S
T
L
I
F
O
V
J
O
G
R
B
R
Y
S
I
H
A
Z
B
P
E
R
B
Y
N
O
N
V
A
I
Q
Y
Q
A
T
R
Q
D
B
S
G
P
C
U
❤
J
D
C
L
L
Y
S
Y
L
U
T
A
U
V
G
T
J
L
T
G
A
E
B
M
F
E
L
S
F
E
W
F
C
S
E
X
A
A
N
I
I
K
G
E
Y
Z
E
G
L
Q
U
I
C
N