library(readr)
BigDiamonds <- read_csv("C:/Users/Dell/Downloads/BigDiamonds.csv/BigDiamonds.csv")
## Warning: Missing column names filled in: 'X1' [1]
## Parsed with column specification:
## cols(
## X1 = col_integer(),
## carat = col_double(),
## cut = col_character(),
## color = col_character(),
## clarity = col_character(),
## table = col_double(),
## depth = col_double(),
## cert = col_character(),
## measurements = col_character(),
## price = col_integer(),
## x = col_double(),
## y = col_double(),
## z = col_double()
## )
str(BigDiamonds)
## Classes 'tbl_df', 'tbl' and 'data.frame': 598024 obs. of 13 variables:
## $ X1 : int 1 2 3 4 5 6 7 8 9 10 ...
## $ carat : num 0.25 0.23 0.34 0.21 0.31 0.2 0.2 0.22 0.23 0.2 ...
## $ cut : chr "V.Good" "Good" "Good" "V.Good" ...
## $ color : chr "K" "G" "J" "D" ...
## $ clarity : chr "I1" "I1" "I2" "I1" ...
## $ table : num 59 61 58 60 59 60 63 61 57.5 65 ...
## $ depth : num 63.7 58.1 58.7 60.6 62.2 64.4 62.6 59.2 63.6 54.9 ...
## $ cert : chr "GIA" "GIA" "GIA" "GIA" ...
## $ measurements: chr "3.96 x 3.95 x 2.52" "4.00 x 4.05 x 2.30" "4.56 x 4.53 x 2.67" "3.80 x 3.82 x 2.31" ...
## $ price : int NA NA NA NA NA NA NA NA NA NA ...
## $ x : num 3.96 4 4.56 3.8 4.35 3.74 3.72 3.95 3.87 3.83 ...
## $ y : num 3.95 4.05 4.53 3.82 4.26 3.67 3.65 3.97 3.9 4 ...
## $ z : num 2.52 2.3 2.67 2.31 2.68 2.38 2.31 2.34 2.47 2.14 ...
## - attr(*, "spec")=List of 2
## ..$ cols :List of 13
## .. ..$ X1 : list()
## .. .. ..- attr(*, "class")= chr "collector_integer" "collector"
## .. ..$ carat : list()
## .. .. ..- attr(*, "class")= chr "collector_double" "collector"
## .. ..$ cut : list()
## .. .. ..- attr(*, "class")= chr "collector_character" "collector"
## .. ..$ color : list()
## .. .. ..- attr(*, "class")= chr "collector_character" "collector"
## .. ..$ clarity : list()
## .. .. ..- attr(*, "class")= chr "collector_character" "collector"
## .. ..$ table : list()
## .. .. ..- attr(*, "class")= chr "collector_double" "collector"
## .. ..$ depth : list()
## .. .. ..- attr(*, "class")= chr "collector_double" "collector"
## .. ..$ cert : list()
## .. .. ..- attr(*, "class")= chr "collector_character" "collector"
## .. ..$ measurements: list()
## .. .. ..- attr(*, "class")= chr "collector_character" "collector"
## .. ..$ price : list()
## .. .. ..- attr(*, "class")= chr "collector_integer" "collector"
## .. ..$ x : list()
## .. .. ..- attr(*, "class")= chr "collector_double" "collector"
## .. ..$ y : list()
## .. .. ..- attr(*, "class")= chr "collector_double" "collector"
## .. ..$ z : list()
## .. .. ..- attr(*, "class")= chr "collector_double" "collector"
## ..$ default: list()
## .. ..- attr(*, "class")= chr "collector_guess" "collector"
## ..- attr(*, "class")= chr "col_spec"
head(BigDiamonds)
## # A tibble: 6 × 13
## X1 carat cut color clarity table depth cert measurements
## <int> <dbl> <chr> <chr> <chr> <dbl> <dbl> <chr> <chr>
## 1 1 0.25 V.Good K I1 59 63.7 GIA 3.96 x 3.95 x 2.52
## 2 2 0.23 Good G I1 61 58.1 GIA 4.00 x 4.05 x 2.30
## 3 3 0.34 Good J I2 58 58.7 GIA 4.56 x 4.53 x 2.67
## 4 4 0.21 V.Good D I1 60 60.6 GIA 3.80 x 3.82 x 2.31
## 5 5 0.31 V.Good K I1 59 62.2 EGL 4.35 x 4.26 x 2.68
## 6 6 0.20 Good G SI2 60 64.4 GIA 3.74 x 3.67 x 2.38
## # ... with 4 more variables: price <int>, x <dbl>, y <dbl>, z <dbl>
class(BigDiamonds)
## [1] "tbl_df" "tbl" "data.frame"
BigDiamonds=data.frame(BigDiamonds)
BigDiamonds=na.omit(BigDiamonds)
BigDiamonds$pricepercarat=BigDiamonds$price/BigDiamonds$carat
library(Hmisc)
## Loading required package: lattice
## Loading required package: survival
## Loading required package: Formula
## Loading required package: ggplot2
##
## Attaching package: 'Hmisc'
## The following objects are masked from 'package:base':
##
## format.pval, round.POSIXt, trunc.POSIXt, units
summarize(BigDiamonds$pricepercarat,BigDiamonds$color,max)
## BigDiamonds$color BigDiamonds$pricepercarat
## 1 D 49519.40
## 2 E 40871.01
## 3 F 37084.06
## 4 G 32998.33
## 5 H 31718.95
## 6 I 24982.45
## 7 J 22890.12
## 8 K 19516.77
## 9 L 14585.41