在R编程中，如何找到理想切割钻石的7个最昂贵价格（数据集）？

我在一个名为Diamonds的数据集上做R编程问题。首先是为了安装和加载数据集。键入以下命令

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

现在因为有这么多的值和名称，我需要找出理想切割钻石的7个最昂贵价格（数据集）

我所做的是，我创建了一个名为diamond.ideal的数据框，并在该数据框中放置了来自数据集diamonds的3列和值。这是密码

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

[990:997]是行数（我想） 这是截图

我不知道这些数字是否正确，数据集上的值太多了。 我只是想知道最高值是否正确？

---

或者有没有其他方法可以通过使用不同的函数（如table（）或cut（）或其他函数）找到理想钻石的7个最昂贵价格？

有几种方法可以做到这一点。这是一个采取你的方法

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

库（ggplot2）
数据（钻石）
xy[订单（xy$价格，降价=真），][1:7，]
#一个tibble:7x10
克拉切割颜色清晰度深度表价格x y z
1 1.51理想G如果61.7 55 18806 7.37 7.41 4.56
2.07理想G SI2 62.5 55 18804 8.20 8.13 5.11
3 2.15理想G SI2 62.6 54 18791 8.29 8.35 5.21
4 2.05理想G SI1 61.9 57 18787 8.10 8.16 5.03
5 1.60理想F VS1 62.0 56 18780 7.47 7.52 4.65
6 2.06理想I VS2 62.2 55 18779 8.15 8.19 5.08
7 1.71理想G VVS2 62.1 55 18768 7.66 7.63 4.75
>头部（xy[订单（xy$价格，降价=真），]，7）
#一个tibble:7x10
克拉切割颜色清晰度深度表价格x y z
1 1.51理想G如果61.7 55 18806 7.37 7.41 4.56
2.07理想G SI2 62.5 55 18804 8.20 8.13 5.11
3 2.15理想G SI2 62.6 54 18791 8.29 8.35 5.21
4 2.05理想G SI1 61.9 57 18787 8.10 8.16 5.03
5 1.60理想F VS1 62.0 56 18780 7.47 7.52 4.65
6 2.06理想I VS2 62.2 55 18779 8.15 8.19 5.08
7 1.71理想G VVS2 62.1 55 18768 7.66 7.63 4.75

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