2

素朴な疑問かもしれません。df があり、R でデータの相関プロットを生成したいと考えています。

head(df)

            x  y
1 -0.10967469  1
2  1.06814661 93
3  0.71805993 46
4  0.60566332 84
5  0.73714006 12
6 -0.06029712  5

私はcorPlotというパッケージを見つけ、ピアソン法とスピアマン法に基づいて 2 つのプロットを生成しました。

corPlot(df, method = 'pearson')
corPlot(df, method = 'spearman')

ピアソン法による私の出力は次のとおりです。

ここに画像の説明を入力

私が認識していない同じ相関プロットを生成する別のパッケージがあるかどうか疑問に思いましたか?

前もって感謝します、

4

3 に答える 3

0

チェックアウトする必要があり?pairsます。変数の組み合わせの散布図を作成するのに最適ですが、

  1. 下三角(2 つの変数をlower.panel引数に取る関数を渡す)
    • たとえば、pairs(df, lower.panel=points散布図の場合
  2. 対角線(1 つの変数を取る関数をdiag.panelortext.panel引数に渡す)
    • これはトリッキーです！ヒストグラムの作成方法については、ヘルプ ファイルを参照してください
  3. 上三角(2 つの変数をupper.panel引数に取る関数を渡す)
    • 例:pairs(df, upper.panel=function(x,y)text(0,0,cor(x,y)))ただし、以下を参照してください

ヘルプ ファイルからの散布図と相関関係 ( ?pairs):

panel.cor <- function(x, y, digits = 2, prefix = "", cex.cor, ...)
{
    usr <- par("usr"); on.exit(par(usr))
    par(usr = c(0, 1, 0, 1))
    r <- abs(cor(x, y))
    txt <- format(c(r, 0.123456789), digits = digits)[1]
    txt <- paste0(prefix, txt)
    if(missing(cex.cor)) cex.cor <- 0.8/strwidth(txt)
    text(0.5, 0.5, txt, cex = cex.cor * r)
}
pairs(USJudgeRatings, lower.panel = panel.smooth, upper.panel = panel.cor)

データを使用して、次の操作を行います。

pairs(df, lower.panel=plot, upper.panel=panel.cor)

私はその機能が大好きで、そのまま使っています。xと だけだと少し奇妙に見えるかもしれませんyが、

于 2015-08-12T15:44:21.420 に答える
0

corrplot ライブラリを試してください。これはこのリンクの例です

library(corrplot)
M <- cor(mtcars)
corrplot(M, method = "circle")
于 2015-08-12T14:49:15.103 に答える