[go: up one dir, main page]
Scribd
Upload
42 views12 pages

Assignment-10: Date: 27-04-21

The document discusses analyzing sales data from a dataset with 50 sales entries. It contains code to perform tasks like sampling data, selecting columns, filtering, arranging, and creating plots. Pie charts and a histogram are generated for regions, countries, and units sold. A bar plot is also created for sales channel and order priority.

Uploaded by

Sriharshitha Deepala
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
42 views12 pages

Assignment-10: Date: 27-04-21

The document discusses analyzing sales data from a dataset with 50 sales entries. It contains code to perform tasks like sampling data, selecting columns, filtering, arranging, and creating plots. Pie charts and a histogram are generated for regions, countries, and units sold. A bar plot is also created for sales channel and order priority.

Uploaded by

Sriharshitha Deepala
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 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