情节中的标志值?

Flag values in plot?

我使用 TeachingDemos 包为我的数据创建了一个点图,如下所示。我想用不同的颜色绘制一些数据点。这些在下面用 * 标记。 Sitbu 已经回答了这部分,但现在我想在密度图和历史图中标记这些点?

输入:

a1<- c(0.2,0.3,0.5)
a2<-c(1,0.9,0.7)
a3<-c(0.8,0.1,0.12)
a4<-c(0.4,2,0.33)
a<-cbind(a1,a2,a3,a4)
a
     a1  a2   a3   a4
[1,] 0.2 1.0* 0.80 0.40
[2,] 0.3 0.9* 0.10 2.00*
[3,] 0.5 0.7 0.12 0.33

dots(a)

1

我想要这样的情节: 2

另外,我想在密度图和直方图中标记那个点?

density(a)

hist(a)
lines(d, col="red")

您没有提供用于创建绘图的代码,但通常您可以在绘图中使用 col 参数来更改点的颜色。通过将 col 设置为颜色值向量,您可以更改图中每个点的颜色。

您似乎正在使用 TeachingDemos 包中的 dots() 函数。查看它的源代码,我可以按如下方式重现您的第一个情节:

x <- a
y <- as.vector(table(x))
plot(x, y, ylab = "Count")

现在的诀窍是,从 x 中挑选应该是红色的点并将它们的颜色设置为红色。这可以通过首先为每个点创建一个包含 "black" 的向量,然后用 "red":

覆盖一些来完成
dot_col <- rep("black", length(a))
red_x <- c(1.0, 0.9, 2.00)
dot_col[match(red_x, x)] <- "red"
plot(x, y, col = dot_col, ylab = "Count")