Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Assignment-10: Date: 27-04-21

Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1of 12

Assignment-10:  

                                     Date: 27-04-
21

CODE:

setwd("C:/Users/D SRIHARSHITHA/Desktop/winter sem (2020-


21)/FDA/FDA_Lab/Fda10")
Fifty_Sales <-read.csv("50 Sales.csv")
#a
print(sample_frac(Fifty_Sales,0.25))
#b
dplyr::select(Fifty_Sales,starts_with('T'))
#c
rename(Fifty_Sales, c("product type"="Item.Type"))
#d
filter(Fifty_Sales, Region=='Asia' & Units.Sold >= 8000)
#e
arrange(Fifty_Sales, Country)
OUTPUT:
a)
CODE(For Regions):
P <- table(Fifty_Sales$Region)
lbl <- paste(names(P),"=", P,'%', sep=" ")
pie(P, labels=lbl, col=rainbow(length(lbl)), main="Pie Chart For Regions")

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:

You might also like