9

如何xyplot在保留轴刻度刻度线的同时删除 周围的框？本着 Edward Tufte 极简主义数据图形美学的精神，这些轴线是“非数据墨水”，可以（应该？）被“擦除”。

library(lattice)
my.df <- data.frame(x=-10:10)
my.df$y <- my.df$x^2
xyplot(y~x,data=my.df)

标准 xyplot 输出

似乎格子显示参数（例如axis.line$col）同时控制轴线和轴刻度：

xyplot(y~x,data=my.df,
       par.settings=list(axis.line=list(col="transparent")))

与axis.line$col=

...这不是想要的结果，所以看起来没有一种简单的方法可以在离开盒子时关闭线路。

我能想到的最好的方法是蛮力破解，我使用以下方法手动构建刻度线panel.segments：

at.x=pretty(c(-10,10))
at.y=pretty(c(0,100))
xyplot(y~x,data=my.df,
       par.settings=list(axis.line=list(col="transparent")),
       scales=list(x=list(at=at.x,labels=at.x),
       y=list(at=at.y,labels=at.y)),
       panel=function(...){
           panel.xyplot(...)
           panel.segments(x0=at.x,x1=at.x,y0=-4,y1=-2)
           panel.segments(x0=-11.5,x1=-11,y0=at.y,y1=at.y)
       }
       )

带有 panel.segments 的手工刻度线

这接近于预期的结果，但是要使刻度线的长度合理并从数据点偏移一个“不错的”距离，需要进行相当多的操作。这些值不会从一个图形转换为下一个图形。另外，请注意轴标签现在距离刻度线太远了。我确信有一种方法可以减少填充，但这只会使代码更丑陋且更不便携。

那么，如何才能只抑制构成绘图区域周围“框”的线条，同时保持刻度线和轴标签完好无损呢？如果这种方法也可以用来抑制一些但不是所有的线（例如，保留左边和下面的线，但抑制上面和右边的线），则可以加分。

4

2 回答 2

11

这仍然有点hacky，但至少您不必手动进行任何计算。它使用一个par.settings自定义axis函数的组合，该函数接受一个参数line.col并通过调用临时更改轴线颜色trellis.par.set：

编辑（删除不必要的格子设置更改）

xyplot(y~x,data=my.df, par.settings = list(axis.line = list(col = "transparent")),
  # Pass custom axis function to argument 'axis'
  axis = function(side, line.col = "black", ...) {
    # Only draw axes on the left and bottom
    if(side %in% c("left","bottom")) {
      # Call default axis drawing function
      axis.default(side = side, line.col = "black", ...)
    }
  }
)

目前，我总结了为什么line.col = "black"在自定义轴函数的参数中需要魔法。我的猜测是它与与省略号 ( ...) 匹配的参数有关。也许明天我会更聪明，找到真正的原因。

这导致：

在此处输入图像描述

于 2012-10-15T19:43:34.637 回答
-2

最简单的做法是使用自定义轴功能（axis）。只需将 lwd（线宽）设置为零并将刻度线（lwd.ticks）设置为其他值。它就像一个魅力！

plot(NA,NA,type="n",xaxt="n", lwd=linewidth, xlim=c(1,24), xlab="", ylab="",ylim=c(-300,500))
axis(side = 4, tck = .05, **lwd=0, lwd.ticks=1**, line = 0, labels = NA, col= cols_border[1], col.axis = cols_black)
axis(side = 4, lwd = 0, line = -4.5, las = 1, cex.axis=axis_fontsize, col= cols_border[1], col.axis = cols_black)
mtext("Light deviations (lum/sec)",side=4, padj=-2.5, cex=title_fontsize, col="black")
于 2013-09-03T05:22:42.370 回答