r - R で 2 つのデータセットを比較する散布図

Question

散布図を使用して同じ長さの 2 つのデータセットを比較し、指定された p 値を持つ遺伝子のリストに基づいて、発現差のある遺伝子に色を付けたいと思います。より具体的には、以下のようになります。

x 軸をデータ A に、y 軸をデータ B に置き換え、重要な P 値 <0.05) プローブは青色で表示されます。

 A = rnorm(100) ### datset A

 B = rnorm(100) ### datset B 

 p = rnorm(100) ### p-values

最初に通常の散布図を作成して、同じ種類のプロットを再現しようとしました。私が元々持っているデータは、15000 プローブ用です。

       col = rep('black', length(A))
       col[p< 0.05] <- 'blue'
       plot(A, B, col=col)