0

と同じグラフを作成しようとしていますが、異なるデータを使用しています。これが私のコードです:

library(SciViews)

args <- commandArgs(TRUE)
pdfname <- args[1]
datafile <- args[2]

pdf(pdfname)
eqdata = read.csv(datafile , header = T,sep=",")
(longley.cor <- correlation(eqdata$feqs))
# Synthetic view of the correlation matrix
summary(longley.cor) 
p <- plot(longley.cor)
print(p)
dev.off()   

とデータ

ques,feqs
"abc",20
"def",10
"ghi",40
"jkl",10
"mno",20
"pqr",10

このコマンドを使用します

Rscript ./rscript/correlation.R "/home/co.pdf" "/home/data_correlation.csv"

ここに画像の説明を入力してください

コード出力

ここに画像の説明を入力してください

このように生成したい

ここに画像の説明を入力してください

4

1 に答える 1

1

パッケージplotcorr内の機能を試すことができます。ellipseヘルプページには、とりわけこの例が示されています。

ここに画像の説明を入力してください

あなたが探しているものはどれですか?

編集:

後でテキストを追加できます。円は1個の変数グリッドに配置されます。例えば:

data(mtcars)
Corrmat  <- cor(mtcars)
cols <- ifelse(Corrmat>0, rgb(0,0,abs(Corrmat)), rgb(abs(Corrmat),0,0))

library(ellipse)
plotcorr(Corrmat,col=cols)

n <- nrow(Corrmat)
for (i in 1:n)
{
    for (j in 1:n)
    {
        text(j,i,round(Corrmat[n-i+1,j],2),col="white",cex=0.6)     
    }
}
于 2012-04-04T11:12:42.860 に答える