library
(ggplot2)
gfg < -
data.frame
(x=
c
(4, 9, 5, 6, 10, 2, 3, 7, 8, 1),
y=
c
(9, 4, 3, 1, 5, 2, 8, 10, 7, 6),
group=
c
(
'A'
,
'B'
,
'C'
,
'D'
,
'E'
))
gfg$group < -
factor
(gfg$group, levels=
c
(
"C"
,
"E"
,
"B"
,
"A"
,
"D"
))
gfg_plot < -
ggplot
(gfg,
aes
(x, y)) +
geom_bar
(stat=
"identity"
) +
facet_grid
(.~group)
gfg_plot