Scribd
Upload
64 views12 pages

Data Analysis with R: Sales Insights

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
64 views12 pages

Data Analysis with R: Sales Insights

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

Assignment-10:  

                                     Date: 27-04-
21

CODE:

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


21)/FDA/FDA_Lab/Fda10")
Fifty_Sales <-[Link]("50 [Link]")
#a
print(sample_frac(Fifty_Sales,0.25))
#b
dplyr::select(Fifty_Sales,starts_with('T'))
#c
rename(Fifty_Sales, c("product type"="[Link]"))
#d
filter(Fifty_Sales, Region=='Asia' & [Link] >= 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$[Link],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$[Link], Fifty_Sales$[Link])
barplot(C, main="Barplot for Sales Channel and Order Priority",
col=c("maroon","yellow"),legend=rownames(C),beside=TRUE )
OUTPUT:

You might also like