data <-
data.frame
(
Languages<-
c
(
'Python'
,
'R'
,
'C++'
,
'Java'
,
'Ruby'
),
Batch_2020 <-
c
(199,398,319,910,735),
Batch_2021 <-
c
(952,942,933,851,771),
Batch_2022 <-
c
(1022,982,983,811,721))
fig <- plotly::
plot_ly
(data,x = ~Languages,y=~Batch_2020,
type =
'bar'
, name =
'2020'
) %>%
add_trace
(y=~Batch_2021,name =
'2021'
) %>%
add_trace
(y=~Batch_2022,name =
'2022'
) %>%
layout
(yaxis =
list
(title =
'Students_Count'
),
barmode =
'unstack'
,title=
"Student Statistics"
)
fig