, 이상적인 커팅의 다이아몬드 (데이터 세트)에 가장 비싼 7 가지 가격을 찾는 방법은 무엇입니까?

Question

Diamonds라는 데이터 세트에서 R 프로그래밍 질문을하고 있습니다. 먼저 데이터 세트를 설치하고로드하기 위해서. 이렇게 많은 가치와 이름, 나는 이상적인 컷의 다이아몬드 (세트)의 7 개 가장 비싼 가격을 찾을 필요가 있기 때문에 이제 다음 명령

install.packages("ggplot2") 
library(ggplot2) 
diamonds 

을 입력?

내가 한 것은 diamond.ideal이라는 데이터 프레임을 만들고 데이터 프레임 안에 데이터 세트 다이아몬드의 3 개의 열과 값을 넣었습니다. 여기 코드는

diamond.ideal <- data.frame(diamonds$cut,diamonds$color, diamonds$price) 
head(diamond.ideal) #or diamond.ideal 

는 여기

마지막으로, 나는 이상적인 컷의 다이아몬드에 대한 7 개 가장 비싼 가격을 찾을 필요가 출력의 스크린 샷입니까? [: 997 990] 행 번호 (내가 생각하는) 여기 내가 알고하지 않는 스크린 샷

입니다 있습니다 이 내 코드하지만

diamond.ideal[which(diamond.ideal$diamonds.cut == "Ideal", diamond.ideal$diamonds.price == max(diamond.cut$diamonds.price))[990:997],] 

맞아되지 확실하다 숫자가 맞으면 데이터 세트에 너무 많은 값이 있습니다. 그 가장 높은 값이 정확한지 알고 싶습니다. 또는 그가 테이블() 또는 커트() 또는 다른 사람과 같은 다른 기능을 사용하여 Ideal의 다이아몬드 7 가장 비싼 가격을 찾을 다른 방법이 있습니까?

Answer 1

이렇게하는 방법에는 여러 가지가 있습니다. 당신의 접근 방법을 생각해보십시오.

library(ggplot2) 
data(diamonds) 

xy <- diamonds[diamonds$cut == "Ideal", ] 

> xy[order(xy$price, decreasing = TRUE), ][1:7, ] 
# A tibble: 7 x 10 
    carat cut color clarity depth table price  x  y  z 
    <dbl> <ord> <ord> <ord> <dbl> <dbl> <int> <dbl> <dbl> <dbl> 
1 1.51 Ideal  G  IF 61.7 55 18806 7.37 7.41 4.56 
2 2.07 Ideal  G  SI2 62.5 55 18804 8.20 8.13 5.11 
3 2.15 Ideal  G  SI2 62.6 54 18791 8.29 8.35 5.21 
4 2.05 Ideal  G  SI1 61.9 57 18787 8.10 8.16 5.03 
5 1.60 Ideal  F  VS1 62.0 56 18780 7.47 7.52 4.65 
6 2.06 Ideal  I  VS2 62.2 55 18779 8.15 8.19 5.08 
7 1.71 Ideal  G VVS2 62.1 55 18768 7.66 7.63 4.75 

> head(xy[order(xy$price, decreasing = TRUE), ], 7) 
# A tibble: 7 x 10 
    carat cut color clarity depth table price  x  y  z 
    <dbl> <ord> <ord> <ord> <dbl> <dbl> <int> <dbl> <dbl> <dbl> 
1 1.51 Ideal  G  IF 61.7 55 18806 7.37 7.41 4.56 
2 2.07 Ideal  G  SI2 62.5 55 18804 8.20 8.13 5.11 
3 2.15 Ideal  G  SI2 62.6 54 18791 8.29 8.35 5.21 
4 2.05 Ideal  G  SI1 61.9 57 18787 8.10 8.16 5.03 
5 1.60 Ideal  F  VS1 62.0 56 18780 7.47 7.52 4.65 
6 2.06 Ideal  I  VS2 62.2 55 18779 8.15 8.19 5.08 
7 1.71 Ideal  G VVS2 62.1 55 18768 7.66 7.63 4.75