R Notebook_Tutorial 1

###the objective off this notebook is to show this table as a plot using basic commands of R

dates <-data.frame(
  birdsp=c("sparrow","kingfisher","eagle","hummingbird","sparrow","kingfisher","eagle","hummingbird","sparrow","kingfisher","eagle","hummingbird"),
  wings_pan =c(22,26,195,8,24,23,201,9,21,25,185,9)
)
dates

##use the function mean() to calculate the wingspan for each bird specie

sparrow <- mean(22,24,21)
kingfisher <- mean(26,23,25)
eagle <- mean(195,201,185)
hummingbird <- mean(8,9,9)

##chain these four objects in a vector

wingspan<- c(sparrow,kingfisher,eagle,hummingbird)

##create a vector with the species name

bird_sp <-c("sparrow","kingfisher","eagle","hummingbird")

to plot bird_sp, this object should be a factor, let’s do it

bird_sp<-as.factor(bird_sp)

##the next step is create a dataframe using the vectors bird_sp and wingspan

wings<-data.frame(bird_sp,wingspan)

##the last step is plot the barplot

barplot(wings$wingspan, names.arg = wings$bird_sp,xlab = "Bird species",ylab ="Average wingspan (cm)",ylim = c(0, 200),col ="gold")