1

我有兴趣更改用于表示散点图中两个最有影响力的点的符号。在这种情况下,它们是数据框中的第 19 行和第 20 行。我的代码如下:

data1<-read.csv("data1.csv")

plot(h~w,data=data1,xlab="Weight",ylab="Height",
       main="Scatterplot of H vs W",pch=c(17,19)[data1[c(19,20),]])

显然,尽管有几个建议和数小时试图解决这个问题,但我无法让它发挥作用。任何建议,将不胜感激。

4

1 回答 1

3

pch 符号用于每个数据点,并被回收到您正在绘制的点数的长度。

考虑这个例子

x <- 1:10 + rnorm(10)
y <- 1:10
plot( y ~ x )

默认值为pch = 1,它会被回收以用于每个点。 在此处输入图像描述

与之对比:

plot( y ~ x , pch = rep(c(1,2),each=5))

在此处输入图像描述

前五个点带有一个符号,而下一个五个点带有另一个,这是因为您已经制作了一个值向量,为pch要绘制的 10 个值中的每一个指定绘图符号:

 rep(c(1,2),each=5)
 #[1] 1 1 1 1 1 2 2 2 2 2

在你的情况下,你需要做的就是

plot(h~w,data=data1,xlab="Weight",ylab="Height",
   main="Scatterplot of H vs W",pch=c(rep(1,times=18),17,19) )
于 2013-04-29T11:29:53.503 回答