求助：R语言xyplot添加数据框行号，RStudio可行但knitr失效

我明白你遇到的困扰了——在RStudio交互环境里直接运行xyplot不赋值给p时，用trellis.focus加行号没问题，但放到knitr里就失效了。这其实是因为knitr中把plot赋值给对象后，默认不会立即渲染面板，trellis.focus需要依赖已经绘制好的面板环境，这时候自然找不到正确的上下文了。

最稳健的解决方案：自定义panel函数 #

与其事后修改已生成的plot，不如直接在绘制散点图的过程中添加行号，这种方式不管是交互环境还是knitr都能完美运行，代码也更清晰：

library(lattice)

# 替换成你实际的X数据框，这里是模拟示例
X <- data.frame(A = rnorm(100), B = rnorm(100), diffStr = sample(c("Group1", "Group2"), 100, replace = TRUE))
myPars <- list(superpose.symbol = list(pch = 16, col = c("blue", "green"))) # 你的自定义参数
myCex <- 0.8 # 你的cex值

xyplot(A ~ B, data = X, group = diffStr, par.settings = myPars,
       auto.key = list(title = "xxxx", space = "top", cex = myCex),
       panel = function(x, y, ...) {
         # 先绘制基础散点图
         panel.xyplot(x, y, ...)
         # 给每个点上方添加对应的数据框行号
         row_numbers <- seq.int(nrow(X))
         panel.text(x = x, y = y, labels = row_numbers, 
                    pos = 3, cex = 0.7, col = "red")
       })

为什么这个方法更好？ #

• 不需要依赖trellis.focus这种依赖绘制上下文的操作，避免了环境差异带来的问题
• 代码逻辑更连贯，所有绘图操作都在一个函数里完成，后期维护更方便
• 对knitr的各种输出格式（HTML、PDF等）兼容性拉满

如果你坚持要用trellis.focus的话 #

如果一定要保留原来的思路，那需要确保在调用trellis.focus前先把plot渲染出来，在knitr里可以这样写：

p <- xyplot(A ~ B ,data=X ,group=diffStr ,par.settings=myPars ,auto.key=list(title="xxxx", space="top", cex=myCex))
print(p) # 强制渲染plot，让面板环境生效
trellis.focus("panel",1,1)
panel.text(x=p$panel.args[[1]]$x,y=p$panel.args[[1]]$y,labels = seq.int(nrow(X)), pos=3, cex=0.7, col="red")
trellis.unfocus()

不过这种方式需要注意knitr的chunk设置，比如可能需要添加fig.keep='all'来确保所有绘图步骤都被捕捉到，整体不如第一种方法可靠。

内容的提问来源于stack exchange，提问作者Ab Bennett