2

多変量データがあります。

このデータのドットプロットを描きたいので、次のコードを書きました。

a.data <- read.table("C:/Users/OGR001/Documents/veri2.csv", sep=",", header=TRUE)
library(lattice)
library(latticeExtra)


useOuterStrips(dotplot(reliability ~ factor(madde.sayisi) |  
                                    as.factor(orneklem)*as.factor(yontem),
                       groups=as.factor(formul),  
                       data=a.data, as.table=TRUE, 
                       horizontal=FALSE, 
                       jitter.x=TRUE))

ドットプロットは問題ありませんが、ここでドットに名前を付けたいと思います。

これどうやってするの？

4

3 に答える 3

1

car パッケージを使用すると、散布図のドットに簡単にラベルを付けることができます。説明のために虹彩データセットを使用できます。

library(car)
scatterplot(Sepal.Length ~ Sepal.Width, data=iris,labels=iris$Species,id.method=T)

ここに画像の説明を入力

于 2013-03-01T14:19:17.930 に答える
1

再現可能な例がなければ、あなたを助けるのは本当に難しいです! 格子プロットのカスタムパネルが少し難しいという理由だけで答えます。基本的に、次の行を追加する必要があります:

            panel=function(x,y,...){
                 panel.dotplot(x,y,...)
                 labs <- dat[list(...)$subscripts,]$labs ## labs is your factor column!
                 panel.text(x,y,labs,adj=c(1.2,0.5))
               }))

たとえば、ここでbarleyはlatticeパッケージを使用しています。

dat <- barley
dat$labs <- sample(c('SB','R','F'),nrow(dat),rep=T)

useOuterStrips(dotplot(variety ~ yield | site*year, 
                       data = dat,
                       groups = year,
                       horizontal=TRUE, 
                       jitter.x=TRUE,  ylab=NULL,
               panel=function(x,y,...){
                 panel.dotplot(x,y,...)
                 labs <- dat[list(...)$subscripts,]$labs
                 panel.text(x,y,labs,adj=c(1.2,0.5))
               }))

ここに画像の説明を入力

于 2013-03-01T13:53:52.957 に答える
0

編集：ラティスウィンドウでベースグラフィックスを使用できないというagstudyは正しいです。幸いltextなことに、基本的に同じことを行うコマンドがあるので、ltext以下に説明する基本グラフィックスの方法で使用して textください。

何が最も簡単かはわかりませんが、base::text確かにこれを行うことができます。sbデータフレームの要素または列を使用して、、、rおよびf座標セットを個別に選択できると仮定します。それで：

text(sb_x_coords, sb_y_coords, labels='sb',...)

フォントサイズ、色などを変更できます。他の 2 つのカテゴリについても繰り返します。

于 2013-03-01T13:51:43.020 に答える