R programming

v <- c(25,62,12,34,55) pie(v) pie(v,col=rainbow(12)) pie(v,col=rainbow(12)) barplot(v) barplot(v,col=rainbow(12)) v <- c(25,62,12,34,55,12,3,42,15,30,45) barplot(v,col=rainbow(12)) v <- c(25,62,12,34,55,12,3,42,15,30,45,24,49,78) barplot(v,col=rainbow(12)) barplot(v,col=heat.colors(12)) barplot(v,col=terrain.colors(12)) barplot(v,col=topo.colors(12)) plot(1:10,1:10,type="n") plot(1:10,1:10,type="n") windowsFonts( A=windowsFont("Arial Black"), B=windowsFont("Bookman Old Style"), C=windowsFont("Comic Sans MS"), D=windowsFont("Symbol") ) plot(1:10,1:10,type="n") windowsFonts( A=windowsFont("Arial Black"), B=windowsFont("Bookman Old Style"), C=windowsFont("Comic Sans MS"), D=windowsFont("Symbol") ) text(3,3,"Hello World Default") plot(1:10,1:10,type="n") windowsFonts( A=windowsFont("Arial Black"), B=windowsFont("Bookman Old Style"), C=windowsFont("Comic Sans MS"), D=windowsFont("Symbol") ) text(3,3,"Hello World Default") text(4,4,family="A","Hello World from Arial Black") v v barplot(v) barplot(v,col=rainbow(10)) barplot(v,col=heat.colors(10)) barplot(v,col=terrrain.colors(10)) barplot(v,col=terrain.colors(10)) barplot(v,col=terrain.colors(1)) barplot(v,col=terrain.colors(4)) barplot(v,col=terrain.colors(5)) barplot(v,col=terrain.colors(6)) barplot(v,col=terrain.colors(12)) barplot(v,col=cm.colors(12)) input <- mtcars[,c("wt","mpg")] input input <- head(input) input plot (x=input$wt,y=input$mpg) plot (x=input$wt,y=input$mpg,xlab="weight",ylab="mpg") plot (x=input$wt,y=input$mpg,xlab="weight",ylab="mpg",pch=4) plot (x=input$wt,y=input$mpg,xlab="weight",ylab="mpg",pch=4,cex=2) plot (x=input$wt,y=input$mpg,xlab="weight",ylab="mpg",pch=4,cex=2,xlim=c(2,5)) mtcars women cars input plot (x=input$wt,y=input$mpg) plot (x=input$wt,y=input$mpg) input <- mtcars[,c("wt","mpg","dist","speed")] mtcars input <- mtcars[,c("wt","mpg","disp","cyl")] input <- head(input) input pairs(~wt+mpg+cyl+disp,data=mtcars) input <- mtcars[,c("wt","mpg","disp","cyl")] input <- head(input) input pairs(~wt+mpg+cyl+disp,data=input) input <- mtcars[,c("wt","mpg","disp")] input <- head(input) pairs(~wt+mpg+cyl+disp,data=input) values <- c(906, 264, 289, 339, 938) values pie(values) pie(values,labels=c("Rajkot","Ahmedabad","Vadodara,"Surat","Bhavanagar"")) pie(values,labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar")) per <- round(100*values/sum(values),1) per pie(values,labels=per) 100*values 100*values/sum(values) round(100*values/sum(values),1) per <- round(100*values/sum(values),1) pie(values,labels=per) pie(values,labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="red") pie(values,labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="red",lty=2) pie(values,labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border=c("red","green","blue","magenta"),lty=2) pie(values,labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border=rainbow(5),lty=2) pie(values,labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border=rainbow(5),lty=2) pie(values,col=rainbow(5),labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border=rainbow(5),lty=2) pie(values,col=rainbow(5),labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border=rainbow(5),lty=10) pie(values,col=rainbow(5),labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=10) pie(values,col=rainbow(5),labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=40) pie(values,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=40) pie(values,clockwise=TRUE,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=40) pie(values,clockwise=FALSE,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=40) pie(values,clockwise=TRUE,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=40) legend("topright",c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),fill=rainbow(5)) legend("topright",cex=1,c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),fill=rainbow(5)) legend("topright",cex=2,c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),fill=rainbow(5)) legend("topright",cex=0.5,c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),fill=rainbow(5)) pie(values,clockwise=TRUE,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=40) legend("topright",cex=0.5,c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),fill=rainbow(5)) pie(values,clockwise=TRUE,density=50,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),border="black",lty=40) pie(values,clockwise=TRUE,density=50,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),radius=1,border="black",lty=40) pie(values,clockwise=TRUE,density=50,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),radius=2,border="black",lty=40) pie(values,clockwise=TRUE,density=50,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),radius=1.5,border="black",lty=40) pie(values,clockwise=TRUE,density=50,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),radius=1.3,border="black",lty=40) pie(values,clockwise=TRUE,density=50,col=rainbow(5),main="Sample pie chart",labels=c("Rajkot","Ahmedabad","Vadodara","Surat","Bhavanagar"),radius=1,border="black",lty=40) any(grepl("plotrix"),installed.packages()) any(grepl("plotrix",installed.packages()) ) ) library("plotrix") pie3D(values) pie3D(values,explode=0.1) pie3D(values,explode=0.5) savehistory("D:/atmiya/subject/R/Command History/A_Command_History_08_03_2017.Rhistory")