Question

我用以下代码制作了一个简单的散点图：

plot(FB_MW$Ärger, w2v$aerger,
 main = "Ärger", 
 xlab = "Rating Fragebogen (MW)", 
 ylab = "word2vec")

现在，我想根据平板电脑中名为“ w2v”的行上色。第1至6行应显示为蓝色，第7至12行应显示为红色。

另一种选择可能是通过名为w2v $ D的数位板的列确定颜色，该数位包含“是”和“否”值。

非常感谢！洛雷娜（Lorena）

Answer 1

您可以尝试：

w2v$color <- "blue"
w2v$color[w2v$D == "no"] <- "red"

plot(FB_MW$Ärger, w2v$aerger,
 main = "Ärger", 
 xlab = "Rating Fragebogen (MW)", 
 ylab = "word2vec",
 col  = w2v$color)

另一个选择是使用ggplot2，它通常稍微复杂一些。在这种情况下，很简单：

ggplot(w2v, aes(x=FB_MW$Ärger, y=aerger, color=D)) +
  geom_point() + 
  xlab("Rating Fragebogen (MW)") + 
  ylab("word2vec") + 
  labs(title="Ärger") + 
  theme(plot.title = element_text(hjust = 0.5))

根据行号的散点图的色点

1 个答案: