ggplotly() errors out on a geom_area() with one data point (introduced by ggplot2 v3.4.0)

Discovered via #2207 

Minimal reprex:

```r
d <- data.frame(x = 1, y = 1)

p <- ggplot(d, aes(x, y)) +
  geom_area() +
  geom_point()

ggplotly(p)
#> Warning in min(diff(unique_loc)) :
#>   no non-missing arguments to min; returning Inf
#> Error in order(dat[["x"]]) : argument 1 is not a vector
```