在scale_x_datetime中抑制警告

Question

这不是重复，因为该推定副本中的所有方法都不适用于此处。他们都不会导致警告消失。

事实上，我在下面的Konrad得到了答案 - 使用suppressMessages。在断言为可能重复的链接中，他们建议suppressWarnings，这不起作用。

在最终确定如何让R在ggplot日期轴上正确使用我的时区（在此处的帖子中找到scale_x_datetime之后，在使用我的本地时区之前，即使数据具有时区已设定），但它现在抱怨警告：

Scale for 'x' is already present. Adding another scale for 'x', which will replace the existing scale. 

这很烦人，因为我必须做很多事情，并且不想养成忽略所有警告的习惯。我该怎么办呢？我显然已尝试suppressWarnings（有和没有打印）和options(warn=-1).

• R-Version是3.1.3
• ggplot2_1.0.1

• scales_0.2.4

  library(lubridate,quietly=T,warn.conflicts=T)
  library(ggplot2,quietly=T,warn.conflicts=T)
  library(scales,quietly=T,warn.conflicts=T)
  
  
  sclip.time <-  ymd_hms("2014-06-16 00:00:00",tz="US/Pacific")
  eclip.time <-  ymd_hms("2014-06-17 23:59:59",tz="US/Pacific")
  
  sdata.time <-  ymd_hms("2014-06-16 00:00:00",tz="US/Pacific")
  edata.time <-  ymd_hms("2014-06-17 23:59:59",tz="US/Pacific")
  
  
  xdata <- seq(sdata.time,edata.time,length.out=100)  
  xfrac <- seq(0,4*3.1416,length.out=100)
  ydata <- pmax(0.25,sin(xfrac))
  ydata <- sin(xfrac)
  ddf <- data.frame(x=xdata,y=ydata)
  
  date_format_tz <- function(format = "%Y-%m-%d", tz = "UTC") {
    function(x) format(x, format, tz=tz)
  }
  
  options(warn=-1)
  
  suppressWarnings(
  ggplot(ddf) + 
    geom_line(aes(x,y),col="blue") +
    geom_vline(xintercept=as.numeric(sclip.time),color="darkred") +
    geom_vline(xintercept=as.numeric(eclip.time),color="darkgreen") +
    xlim(sclip.time,edata.time) +
    scale_x_datetime(  breaks = date_breaks("1 day"),
                       labels = date_format_tz("%Y-%m-%d %H:%M", tz="US/Pacific"))
  )
  

  

Answer 1

您必须使用suppressMessages和print的组合，如下面的代码段所示：

suppressMessages(print(
  ggplot(ddf) + 
    geom_line(aes(x,y),col="blue") +
    geom_vline(xintercept=as.numeric(sclip.time),color="darkred") +
    geom_vline(xintercept=as.numeric(eclip.time),color="darkgreen") +
    xlim(sclip.time,edata.time) +
    scale_x_datetime(  breaks = date_breaks("1 day"),
                       labels = date_format_tz("%Y-%m-%d %H:%M", tz="US/Pacific"))
))

Answer 2

你可能得到你想要的方法是使用“try”函数，选项silent = T：

try(silent=T, [R-script]) 

这样做通常是一个坏主意，因为你对可能发生的错误视而不见，但如果你真的确定你正在做什么......

Answer 3

实际上，该消息确实表明您的以下代码段存在问题：

  ... + xlim(sclip.time,edata.time) +
  scale_x_datetime(  breaks = date_breaks("1 day"),
                     labels = date_format_tz("%Y-%m-%d %H:%M", tz="US/Pacific"))

第一个命令已经添加了一个比例，第二个命令将替换了该比例。因此，该消息告诉您第一个命令无效。

您应该将两者结合起来，并将限制添加到scale_x_datetime：

  ... +
  scale_x_datetime(breaks = date_breaks("1 day"),
                   labels = date_format_tz("%Y-%m-%d %H:%M", tz="US/Pacific"),
                   limits = c(sclip.time,edata.time))