Home/ Questions/Stabilizing the error with the best answers: error in plot.window(...) : need finite 'ylim' values
Next
Answered
Marie O'Connor
  • 23
Asked: 2022-05-17T13:55:55+00:00 In:

Stabilizing the error with the best answers: error in plot.window(…) : need finite ‘ylim’ values

  • 23

. Advertisement .

..3..

. Advertisement .

..4..

I’m building a new program, but when I run it, an error pops up. The error displayed is as follows:

error in plot.window(need finite 'ylim' values)

I have tried several workarounds, but they still do not get the desired results. If you have come across this situation and have a solution for the “error in plot.window(…) : need finite ‘ylim’ values” problem, pls let me know. Here is what I do:

# read in sample data and split it up by group (defined by ID)
 xy <- data.frame(NAME=c("NAME2","NAME2","NAME2","NAME2","NAME2","NAME3","NAME3","NAME3","NAME3","NAME5","NAME5","NAME5","NAME5"), ID=c(48,48,48,48,48,32,32,32,32,67,67,67,67),YEAR=c(1981,1983,1984,1988,1989,1984,1984,1988,1988,1899,1933,1948,1958),VALUE=c(0,205,-570,0,-310,-3680,-3680,NA,-3680,0,NA,13,-98))
 ind <- split(x = xy,f = xy[,'ID'])
 
 # Plot Scenario 1: if only years between 1946 and 2014 are present for each group do this:
  plot1 <- function(x) {
  fname <- paste0(x[1, 'ID'], '.png')
  png(fname, width=1679, height=1165, res=150)
  par(mar=c(6,8,6,5))
  plot(x = c(1946, 2014),
  y = range(x$VALUE),
  type='n',
  main=x[1, 'NAME'],
  xlab="Time [Years]",
  ylab="Value")
  axis(2, at = seq(-100000, 100000, 500), cex.axis=1, labels=FALSE, tcl=-0.3)
  points(ind[[i]][,c('YEAR','VALUE')], type="l", lwd=2)
  points(ind[[i]][,c('YEAR','VALUE')], type="p", lwd=1, cex=1, pch=21, bg='white')
  abline(h=0)
  dev.off()
 }
 
 # Plot Scenario 2 if years under 1946 are present do this:
 plot2 <- function(x) {
  fname <- paste0(x[1, 'ID'], '.png')
  png(fname, width=1679, height=1165, res=150) 
  par(mar=c(6,8,6,5))
  plot(x[,c('YEAR','VALUE')],
  type='n',
  main=x[1, 'NAME'],
  xlab="Time [Years]",
  ylab="Value [mm]")
 axis(2, at = seq(-100000, 100000, 500), cex.axis=1, labels=FALSE, tcl=-0.3)
 points(ind[[i]][,c('YEAR','VALUE')], type="l", lwd=2)
 points(ind[[i]][,c('YEAR','VALUE')], type="p", lwd=1, cex=1, pch=21, bg='white')
 abline(h=0)
 dev.off() 
 }
 
 # Execute functions
  lapply(ind, function(x) ifelse(any(x$YEAR < 1946 & x$YEAR < 2014), plot2(x), plot1(x)))

Thanks!

error in plot.window(...)
Share

1 Answer

  1. Best Answer
    Expert

    The cause:

    This error happens due to in the process of graphing a data frame the plot() function will look for numeric values based on columns. If there is “NA” values in any column, it will return an error message.

    Solution: 

    The best way to solve this problem is deleting NA missing values in plot1 by replace y = range(x$VALUE) with y = range(x$VALUE, na.rm=TRUE).

    I found you also have a problem in both functions you refer to ind[[i]], this means that at some points this code is a part of a loop. I think all the references to ind[[i]] is x.

    • 20

Leave an answer

You must login to add an answer.

Need An Account,