主页 / 问题 / 1165967
Accepted
VEL
Asked:2020-08-14 20:02:09 +0000 UTC2020-08-14 20:02:09 +0000 UTC

R如何在图表上绘制额外的点

  • 772

你能告诉我如何在图表上添加额外的点（标签）吗？

# данные
a = c(641,642,642,642,640,639,640,641,640,640,640,639,638,645,649,641,647,655,660,667,660,662,665,669,680,683,673,675,685,690)
b = c( 1, NA, NA, NA, NA, -1, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,  1, NA, NA, NA, -1, NA, NA,  1, NA, NA, NA, NA)
data = cbind(a,b)
       a  b
 [1,] 641  1
 [2,] 642 NA
 [3,] 642 NA
 [4,] 642 NA
 [5,] 640 NA
 [6,] 639 -1
 [7,] 640 NA
 [8,] 641 NA
 [9,] 640 NA
[10,] 640 NA

# строим график по данным (a)
plot(a,t="l")

如何在（b）列的图表上放置点（标记）？我附上了一个示例图表。

在此处输入图像描述

графика

1 个回答

  1. Best Answer

    为了解决这个问题，弄清楚函数plot和使用什么输出数据就足够了points。他们需要传递坐标和附加属性。

    该向量b包含有关需要绘制点的信息以及有关颜色的信息。我们从原始向量中获取点的坐标，并从符号中获取颜色。

    在下面的解决方案中，我重命名了输入数据，以便在绘图时更好地理解它们的使用意义。

    # кординаты Y
y <- c(641,642,642,642,640,639,640,641,640,640,640,639,638,645,649,641,647,655,660,667,660,662,665,669,680,683,673,675,685,690)
# кординаты X
x <- seq_along(y)
# разметка для нанесения точек
p <- c( 1, NA, NA, NA, NA, -1, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,  1, NA, NA, NA, -1, NA, NA,  1, NA, NA, NA, NA)
# индекс непустых элементов
p_idx <- !is.na(p)
# построение граифка
plot(x = x, y = y, type = "l")
# нанесение точек
points(x = x[p_idx], y = y[p_idx], col = ifelse(p[p_idx] > 0, "green", "red"))

    在此处输入图像描述

    解决方案ggplot2：

    y <- c(641,642,642,642,640,639,640,641,640,640,640,639,638,645,649,641,647,655,660,667,660,662,665,669,680,683,673,675,685,690)
x <- seq_along(y)
p <- c( 1, NA, NA, NA, NA, -1, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,  1, NA, NA, NA, -1, NA, NA,  1, NA, NA, NA, NA)
DF <- data.frame(x, y)
DF$color <- ifelse(p > 0, "green", "red")
ggplot(DF, aes(x = x, y = y)) +
  geom_line() + geom_point(data = DF[!is.na(DF$color), ], aes(color = color)) +
  scale_colour_identity() +
  theme_minimal()

    在此处输入图像描述

    • 3

相关问题