error displaying VERY large numbers

[schloerke]

Hello,

@minoo77777 is trying to display numbers that are very large and ggplot2 is having problems displaying the plot object.

Small repro example:

(x <- runif(10))
#  [1] 0.4156626 0.7514519 0.8369314 0.4988923 0.2471835 0.4177872 0.3411027
#  [8] 0.2414736 0.8016840 0.1863059

(y <- runif(10) * (10^250))
#  [1] 8.342025e+249 4.522077e+249 6.600850e+248 3.022238e+248 4.615520e+249
#  [6] 7.775300e+249 9.199057e+249 8.390373e+249 6.644477e+249 1.806842e+249

qplot(x, y)
# Error in if (score > best$score && (!only.loose || (lmin <= dmin && lmax >=  : 
#   missing value where TRUE/FALSE needed

Thank you for the help,
Barret

[hadley]

From the traceback, looks like this might be an issue in the labeling package.

[hadley]

Yeah, here's a minimal reprex:

labeling::extended(1e250, 2e250, 3, only.loose = FALSE)
#> Error in if ((w[1] * sm + w[2] * cm + w[3] * dm + w[4]) < best$score) break: missing value where TRUE/FALSE needed

I've reported the issue to the maintainer.

Here's two work arounds in ggplot2:

df <- tibble::tibble(
  x = runif(10),
  y = runif(10) * (10^250)
)

ggplot(df, aes(x, y / 1e200)) + geom_point()
ggplot(df, aes(x, y)) + geom_point() + scale_y_continuous(breaks = NULL)