使用GGPLOT2:在制作散点图时保留数据表的某些行

Question

进入R课的第三周（请耐心等待我，即使很明显哪里出了问题！），我正在与使用R ggplot2库的作业问题作斗争。使用内置的钻石数据框架，问题是为原木（克拉）和原木（价格）绘制散点图回归线，但只绘制公平理想的切割钻石。

这就是剧情应该是什么样的

一个简单的背景，这里有三个变量是克拉(num)、切割（公平、良好、非常好、溢价、理想）和价格（int）。

我从以下代码开始：

set.seed(123) 
d <- ggplot(diamonds[sample(nrow(diamonds),5000),] #this was provided to us in the homework

d + geom_point(aes(x = log(carat), y = log(price), colour = cut) +
  labs(title = 'Regression line for Fair and Ideal Cut Diamonds') +
  stat_smooth(aes(x = log(carat), y = log(price), colour = cut), method = "gam")

这是我得到的

现在，我知道这是不正确的，因为“color=cut”显示了所有的剪裁，但我只想要“公平”和“理想”。教授暗示我们应该尝试diamonds$cut%在%c(...)中，所以我尝试了许多不同的方法。最新的（错误的）代码之一是：

d + geom_point(aes(x = log(carat), y = log(price), colour = diamonds[diamonds$cut%in%c("Fair","Ideal")]), alpha = 0.5) +
 labs(title = 'Regression line for Fair and Ideal Cut Diamonds') +
 stat_smooth(aes(x = log(carat), y = log(price), colour = diamonds[diamonds$cut%in%c("Fair","Ideal")]), method = "gam")

无论我试图在哪里子集diamonds$cut（例如，'['的逻辑索引向量的长度必须等于列数，astitute必须长度为1或与数据（5000）相同：color），我都会继续得到错误消息。

我如何提取公正和理想的切割来制作这张图？

任何帮助都很感激！

Answer 1

这是将data参数定义为ggplot2的方法，然后在ggplot参数中声明它，尽管我不确定在AES(color=cut)中将cut列指定为映射变量时，如何筛选cut列。尽管情节并不完全像你的帖子所说的那样，如果这一点很重要的话。希望这能有所帮助。

library(ggplot2)

set.seed(123)
z <- diamonds[sample(nrow(diamonds),5000),]
z <- z[z$cut %in% c("Fair", "Ideal"),]

d <- ggplot(data = z) +
  geom_point(aes(x = log(carat), y = log(price), colour = cut), alpha = 0.5) +
  labs(title = 'Regression line for Fair and Ideal Cut Diamonds') +
  stat_smooth(aes(x = log(carat), y = log(price), colour = cut), method = "gam")
d

^{于2019-03-21由reprex包(V0.2.1)创建}