单面板格子图，右侧（和底部）有轴

Question

似乎这应该是一件简单的事情，但我找不到解决方案。我想要一个基本的单格点图，让轴标签在右边（和底部），而不是左边（和底部）。有很多涉及多个面板的解决方案，但我处理的是单个面板。看起来这样必须要求调用panel.axis，但我的尝试会导致错误，或者没有投诉，但情节没有变化。

library("lattice")
set.seed(123)
DF <- data.frame(x = runif(5), y = runif(5))

xyplot(y ~ x, data = DF) # default is axes labeled on left and bottom

Answer 1

我似乎无法找到更直接的方法来执行此操作，但您可以创建一个自定义axis函数来控制值的放置位置。这是一个例子

myaxis <- function(side, labels="default", ticks="default", ...) {
  default <- lattice.getOption("default.args")$axis
  if(side %in% c("right","bottom")) {
    default(side=side, labels="yes", ticks="yes", ...)
  } else {
    default(side=side, labels="no", ticks="yes", ...)
  }
}

然后你就这样使用它

xyplot(y ~ x, data = DF, axis=myaxis)

获取