Question

我正在为格子中的xyplot的不同面板添加文本，并且想知道是否有人知道不指定ax和y坐标的方法，或者是否有类似于图例的东西，你可以说左上角或右上角等等？ / p>

我问，因为我想在绘图代码中使用scales = free，但是当我使用mytext代码中的文本时，最终会覆盖图形的某些部分并且不会形成良好的情节。我想有一种方法来绘制图形而不需要绘制单独的图，因为在我的真实数据集中，我有多达10个分组因子级别（代码中的sams）。提供的示例不像真实数据那样极端。

示例数据

d_exp<-data.frame(sams=c(rep("A",6),rep("B",6),rep("C",6)),
    gear=c(rep(1:2,9)),
    fraction=c(.12,.61,.23,.05,.13,.45,0.3,.5,.45,.20,.35,.10,.8,.60,.10,.01,.23,.03),
    interval=c(rep(c(0,10,20),6)))

d_exp<-d_exp[order(d_exp$sams,d_exp$gear,d_exp$interval),]

刻度=相同的绘图。指定了mytext x和y坐标。

    mytext<-c("N=3","N=35","N=6")

   panel.my <- function(...) {
    panel.superpose(col=c("red","blue"),lwd=1.5,...)
    panel.text(x=2.5,y=0.5,labels=mytext[panel.number()],cex=.8) 
}

xyplot(fraction~interval | sams, data=d_exp,groups=gear,type="l",
    scales=list(relation="same",y=list(alternating=1,cex=0.8),x=list(alternating=1,cex=.8,abbreviate=F)),
    strip = strip.custom(bg="white", strip.levels = T),drop.unused.levels=T,as.table=T,
    par.strip.text=list(cex=0.8),panel=panel.my)

与scale = free相同。文本位于奇数位置，因为所有文本都具有相同的坐标。

xyplot(fraction~interval | sams, data=d_exp,groups=gear,type="l",
    scales=list(relation="free",y=list(alternating=1,cex=0.8),x=list(alternating=1,cex=.8,abbreviate=F)),
    strip = strip.custom(bg="white", strip.levels = T),drop.unused.levels=T,as.table=T,
    par.strip.text=list(cex=0.8),panel=panel.my)

感谢您的帮助。

Answer 1

您可以使用grid.text()以与范围无关的方式指定单位。例如

library(grid)
panel.my <- function(...) {
    panel.superpose(col=c("red","blue"),lwd=1.5,...)
    grid.text(x=.5,y=.8,label=mytext[panel.number()]) 
}

使用grid.text x和y值默认使用npc单位，范围从0到1.因此x=.5表示居中且{{1}意味着80％的方式到达顶部。

panel.text xyplot R

1 个答案: