2

ベース R グラフィックスを使用して、数千のデータ ポイントで散布図を作成しています。これらのうちの 1 つのポイントは、最高の 'y' 値を持ちます。この点を埋めて、見た目を変えたいと思います。過去に、次のいずれかでこれを達成しました。もちろん、ポイント数は非常に少なく、簡単に管理できました。現在、3000ポイントまで貯まっています。何か案は？

col=c{'black','black','black','red','black','black'}
pch=c(16,16,16,17,16,16)
4

2 に答える 2

3

オプション1：最大値を特定し、カラーベクトルを作成します

set.seed(47)
n <- 1e4
xx <- runif(n)
yy <- rexp(n)
colors <- rep("black", n)
colors[which.max(yy)] <- "red"
plot(xx, yy, col = colors, pch = 16)

オプション2：最大値を個別にプロットします。これは、特に色だけでなく、より多くの特性を調整したい場合は、おそらく簡単です。

plot(xx, yy, pch = 16)
points(xx[which.max(yy)], yy[which.max(yy)], col = "red", pch = 17, cex = 2)
于 2013-02-14T22:06:53.483 に答える
0

次のようにする方が少し速いと思います：

plot(xx, yy, col=(yy==max(yy)), pch=19)

これにより、 と のベクトルが作成され、それらはs とsに強制されるため、そのステートメントに a を付けて、白の使用を避ける必要がある場合がありますTRUE。FALSE10+1

plot(xx, yy, col=(yy==max(yy))+1, pch=19)
于 2013-02-14T22:09:52.427 に答える