MATH2270/MATH2237 Assignment 1

Student Details

Nithin Meda (s3651728)

Data Table Provide a short description and link to the data table selected for this assignment

Cricket is one of the most famous Game in the World.There are three formats in Cricket among them Test Cricket format is the toughest format for a player.It is a bat-and-ball game played between two teams of eleven players each on a cricket field.Taking 300 or more wickets across a playing career is considered a significant achievement in Test cricket.In t1 dataset where I listed Cricket Bowlers who took 300 or more wickets around the world.

Rpubs Link: http://rpubs.com/nithinmeda/

https://en.wikipedia.org/wiki/List_of_bowlers_who_have_taken_300_or_more_wickets_in_Test_cricket

Code

t1 <- read_excel("E:/RMIT/Data Visuliztion/t1.xlsx")
View(t1)
str(t1)

## Classes 'tbl_df', 'tbl' and 'data.frame':    31 obs. of  15 variables:
##  $ Bowler: chr  "Muttiah Muralitharan^" "Shane Warne^" "Anil Kumble^" "Glenn McGrath^" ...
##  $ Team  : chr  " Sri Lanka" " Australia" " India" " Australia" ...
##  $ Mat.  : num  133 145 132 124 133 132 131 86 108 85 ...
##  $ Inn.  : num  230 273 236 243 249 242 227 150 202 156 ...
##  $ Balls : num  44039 40705 40850 29248 29396 ...
##  $ Runs  : num  18180 17995 18355 12186 14277 ...
##  $ Wkt   : num  800 708 619 563 522 519 434 431 421 419 ...
##  $ Ave.  : num  22.7 25.4 29.6 21.6 27.4 ...
##  $ Econ. : num  2.47 2.65 2.69 2.49 2.91 2.53 2.78 2.63 2.39 3.22 ...
##  $ SR.   : num  55 57.4 65.9 51.9 56.3 57.8 63.9 50.8 57.8 41.4 ...
##  $ BBI   : chr  "18872" "26146" "27303" "45505" ...
##  $ BBM   : chr  "16/220" "12/128" "14/149" "46661" ...
##  $ 5wl   : num  67 37 35 29 25 22 23 36 16 26 ...
##  $ 10wl  : num  22 10 8 3 3 3 2 9 1 5 ...
##  $ Period: chr  "19922010" "19922007" "19902008" "19932007" ...

g <- t1 %>% select(Bowler,Wkt,Team) %>% arrange(desc(Wkt)) %>% arrange(Wkt) %>% 
  mutate(Bowler = factor(Bowler, levels = .$Bowler))

ggplot(g, aes(x=Bowler, y=Wkt,label=Wkt,col=Team)) + 
  geom_point(stat='identity',size=2) + 
  geom_text(aes(label=Wkt),position = position_dodge(1),hjust=-0.3) +
  geom_segment(aes(x=Bowler, 
                   xend=Bowler, 
                   y=300, 
                   yend=Wkt)) + 
  labs(title="Cricketer who have taken 300 or
   more wickets in Test Cricket", 
       caption="Cricketer : No of Wickets") +  ylim(300, 950)+
  theme(axis.text.x = element_text(angle=65, vjust=0.6))+ coord_flip()

Visualisation

In above Lollipop Visulisation Chart where Sri Lanka cricketer Muttiah Muralitharan has the highest aggregate with 800 wickets follwed by Rangan Hearth and chaminda Vass from Srilanka.From Australia where Shane Warne took highest wickets 708 followed by Glenn Mcragth ,Denis Lille and Brett Lee.From India Anil Kumble took highest Wickets 619 followed by Kapil Dev,Harbhajan singh,Ashwin and Zaheer Khan, from England where James Anderson took highest wickets 522 followed by Stuart Board,Ian Botham ,Bob Wills and Fred Trueman from England James Anderson and Stuart Board are still playing the cricket.In West Indies where Courtney Walsh is the Highest Wicket Taker follwed by Curtly Ambrose,Malcom Marshall and Lance Gibbs.In Pakistan Wasim Akram is the highest wicket taker he took 414 wickets followed by Waquar Younis and Imran Khan.From NewZealand where Richard Hardlee and Daniel Vettori only two players who took more than three Wickets.From South Africa where Shaun Pollock is the highest wicket taker followed by Dale steyn and Allan Donald.Difference between Dale Steyn and Shaun Pollock is only two wickets.

Caption

Cricketers who have taken 300 or more Wickets in Test cricket