#Your Name: Muhammad Adnan Qureshi
#install.packages("ggplot2")
library(ggplot2)
dia <- data.frame(diamonds)
#Find Summary of Dataset
summary(dia)
## carat cut color clarity
## Min. :0.2000 Fair : 1610 D: 6775 SI1 :13065
## 1st Qu.:0.4000 Good : 4906 E: 9797 VS2 :12258
## Median :0.7000 Very Good:12082 F: 9542 SI2 : 9194
## Mean :0.7979 Premium :13791 G:11292 VS1 : 8171
## 3rd Qu.:1.0400 Ideal :21551 H: 8304 VVS2 : 5066
## Max. :5.0100 I: 5422 VVS1 : 3655
## J: 2808 (Other): 2531
## depth table price x
## Min. :43.00 Min. :43.00 Min. : 326 Min. : 0.000
## 1st Qu.:61.00 1st Qu.:56.00 1st Qu.: 950 1st Qu.: 4.710
## Median :61.80 Median :57.00 Median : 2401 Median : 5.700
## Mean :61.75 Mean :57.46 Mean : 3933 Mean : 5.731
## 3rd Qu.:62.50 3rd Qu.:59.00 3rd Qu.: 5324 3rd Qu.: 6.540
## Max. :79.00 Max. :95.00 Max. :18823 Max. :10.740
##
## y z
## Min. : 0.000 Min. : 0.000
## 1st Qu.: 4.720 1st Qu.: 2.910
## Median : 5.710 Median : 3.530
## Mean : 5.735 Mean : 3.539
## 3rd Qu.: 6.540 3rd Qu.: 4.040
## Max. :58.900 Max. :31.800
##
#Q1. Find the maximum price
max(dia$price)
## [1] 18823
#Q2. Find the minimum price
min(dia$price)
## [1] 326
#Q3. Find the average price
mean(dia$price)
## [1] 3932.8
#Q4. How many diamonds have price more than $10000?
sum(dia$price > 10000)
## [1] 5222
#Q5.
#Find relationship between Carat and Price.
#Does Carats have effect on Price? If yes, reciprocal or Proportional?
#Ans- Proportional
plot(dia$carat, dia$price) #pass arguments
#Hint: plot()
#Build the same plot as above with qplot
qplot(data=dia, carat, price) # For your ease, I am adding the answer
#Find the highest kind of cut amongsts diamonds.
#Hint: Use plotting to find it.
var1 <- dia$cut
summary(var1)
## Fair Good Very Good Premium Ideal
## 1610 4906 12082 13791 21551
plot(var1)
#Include a third variable depth as color
#hint: use color with qplot
#Documentation: ?colour
qplot(carat, price, data = dia, colour = color)
#Find Relation between price and cut using fill.
#Hint: use fill with qplot
#Documentation: ?fill
qplot(cut, price, data = dia, colour = color, fill = color)
