Assignment-10: Date: 27-04-21
Assignment-10: Date: 27-04-21
Assignment-10: Date: 27-04-21
Date: 27-04-
21
CODE:
OUTPUT:
CODE(For Countries):
Q <- table(Fifty_Sales$Country)
lbls <- paste(names(Q),"= ",Q, '%', sep=" ")
pie(Q, labels=lbls, col=rainbow(length(lbls)), main="Pie Chart For Countries")
OUTPUT:
b)
CODE:
#b
hist(Fifty_Sales$Units.Sold,xlab="Units Sold",
col="gold",border="maroon",main="Histogram For UnitsSold", xlim =
c(0,10000),ylim=c(0,20))
OUTPUT:
c)
CODE:
#c
C <- table(Fifty_Sales$Sales.Channel, Fifty_Sales$Order.Priority)
barplot(C, main="Barplot for Sales Channel and Order Priority",
col=c("maroon","yellow"),legend=rownames(C),beside=TRUE )
OUTPUT: