1)Write a R code for armstrong number 2)What will be the output of the following R code? x <- c(“a”, “b”, “c”, “d”) for(i in 1:4) { + ## Print out each element of ‘x’ + print(x[i]) + }

Write the function used to plot the barcharts. Bargraph should have (title of graph, name of x axis, name of y axis, colour is red). Write the code and paste the screenshot of output.