【发布时间】:2021-09-04 14:42:08
【问题描述】:
我对 R 非常陌生。使用钻石数据集时,我试图缩小到具有所有切割且克拉重量大于 1.0 的特定颜色钻石。
我已经到了这一步,并且知道答案(颜色 J 具有克拉大小 > 1.0 的所有切割),但想要更好地编码。
当前代码:
agg<-filter(aggregate(carat ~ cut+color, ddat, median),carat>1.0)
感谢任何指导!
【问题讨论】:
我对 R 非常陌生。使用钻石数据集时,我试图缩小到具有所有切割且克拉重量大于 1.0 的特定颜色钻石。
我已经到了这一步,并且知道答案(颜色 J 具有克拉大小 > 1.0 的所有切割),但想要更好地编码。
当前代码:
agg<-filter(aggregate(carat ~ cut+color, ddat, median),carat>1.0)
感谢任何指导!
【问题讨论】:
您可以先获取median 值对于color 和cut 的每个值。 filter color all 的中值大于 1。
library(dplyr)
diamonds %>%
group_by(color, cut) %>%
summarise(med = median(carat)) %>%
filter(all(med > 1)) %>%
pull(color) %>% unique
#[1] J
#Levels: D < E < F < G < H < I < J
【讨论】: