对数变换在这里特别有用，因为它使模式变为线性，而线性模式是最容易处理的。让我们进行下一步，去除这个强烈的线性模式。我们首先通过拟合一个模型来明确这个模式：

mod_diamond <- lm(lprice ~ lcarat, data = diamonds2)

然后我们看看这个模型告诉我们关于数据的什么信息。注意我对预测进行了逆变换，撤销了对数变换，以便我可以将预测叠加在原始数据上：

grid <- diamonds2 %>% data_grid(carat = seq_range(carat, 20)) %>% mutate(lcarat = log2(carat)) %>% add_predictions(mod_diamond, "lprice") %>% mutate(price = 2 ^ lprice) ggplot(diamonds2, aes(carat, price)) + geom_hex(bins = 50) + geom_line(data = grid, color = "red", size = 1)