具有不同颜色的ggplot的散点图

Question

我有我的数据，如下所示：

X   Y
1.92    0.79
6.80    0.55
4.53    -2.08
-1.13   -5.69
-5.60   -6.21
2.87    7.34
6.93    1.68

我想绘制一个正点散点图，用不同的颜色表示正点和负点。我如何使用ggplot做到这一点？谢谢

编辑： 这是我到目前为止尝试过的：

dat_input<-read.table("test.txt", header=TRUE)
shoot_input<-gather(dat_input, factor_key = TRUE)
ggplot(dat_input,  aes(x=shoot_input[1:7,2], y= shoot_input[8:14,2], color=key)) + geom_point()

Answer 1

您可以使用dplyr::case_when在data.frame中使用正列信息创建新列

library(tidyverse)

dat_input <- read_table2("X   Y
1.92    0.79
6.80    0.55
4.53    -2.08
-1.13   -5.69
-5.60   -6.21
2.87    7.34
6.93    1.68")

dat_input <- dat_input %>% 
  mutate(positives = case_when(
    X > 0 & Y > 0 ~ "Both positive",
    X < 0 & Y < 0 ~ "Both negative",
    TRUE ~ "One positive"
  ))

ggplot(dat_input, aes(x = X, y = Y, colour = positives)) +
  geom_point()

^{由reprex package（v0.3.0）于2020-04-30创建}