x1 <-
c
(31,13,25,31,16)
x2 <-
c
(12,23,43,12,22,45,32)
x3 <-
c
(234,123,210)
label1 <-
c
(
'geek'
,
'geek-i-knack'
,
'technical-scipter'
,
'content-writer'
,
'problem-setter'
)
label2 <-
c
(
'sun'
,
'mon'
,
'tue'
,
'wed'
,
'thur'
,
'fri'
,
'sat'
)
label3 <-
c
(
'solved'
,
'attempted'
,
'unsolved'
)
data1 <-
data.frame
(x1,label1)
data2 <-
data.frame
(x2,label2)
data3 <-
data.frame
(x3,label3)
par
(mfrow =
c
(1,3))
library
(ggplot2)
library
(gridExtra)
plot1<-
ggplot
(data1,
aes
(x=label1, y=x1, group=1)) +
geom_point
(color=
"green"
)
plot2<-
ggplot
(data2,
aes
(x=label2, y=x2, group=1)) +
geom_point
()
plot3<-
ggplot
(data3,
aes
(x=label3, y=x3, group=1)) +
geom_point
(color=
c
(
"red"
,
"yellow"
,
"blue"
))
grid.arrange
(plot1, plot2, plot3, ncol=3)