3

一連の xy 散布図を作成したいと考えています。ここで、y は常に同じ変数であり、x は相関があるかどうかを確認したい変数です。例として、データセットを使用してみましょmtcarsう。

私はRに比較的慣れていませんが、良くなっています。

以下のコードは機能します。リスト チャートには、X 軸が「x」として表示されることを除いて、すべてのチャートが含まれています。それを変数の名前にしたいと考えています。のさまざまな組み合わせを試しましたがxlab=、うまくいかないようです

使用するnames(data)と、使用したい名前が表示されます。names(data)の最初の繰り返しの最初のもの、2 回目の繰り返しなどを参照したいと思いますapply。どうすればそれを行うことができますか?

次のステップは、それらを格子状に一緒に印刷することです。印刷機能を使用してトリックを行うか、lapplyまたはsapply行うと思います-これもアイデアに感謝します。解決策は必要ありません。

load(mtcars)
   mypanel <- function(x,y,...) {
   panel.xyplot(x,data[,y],...)
   panel.grid(x=-1,y=-1)
   panel.lmline(x,y,col="red",lwd=1,lty=1)
   } 
   data <- mtcars[,2:11]
   charts <- apply(data,2,function(x) xyplot (mtcars[,1] ~ x, panel=mypanel,ylab="MPG"))

これはすべて、パネル機能を使用して循環させることができなかったために始まりました。

4

1 に答える 1

3

このコードが「機能した」とは思いませんでした。そうするように変更しました：

mypanel <- function(x,y,...) {
   panel.xyplot(x, y, ...)
   panel.grid(x=-1, y=-1)
   panel.lmline(x,y,col="red",lwd=1,lty=1)
   } 
data <- mtcars[,2:11]
charts <- lapply(names(data), function(x) { xyplot (mtcars[,1] ~ mtcars[,x], 
                                               panel=mypanel,ylab="MPG", xlab=x)})

パネル関数から「data[,y]」を削除し、列ベクトルの代わりに名前を渡す必要があったため、x ラベルに使用するものがありました。

于 2013-01-15T01:37:24.917 に答える