Quirk with geom_bar和ggplotly

Question

我在R的ggplotly包中看到了我认为是plotly函数的怪癖。

尝试在ggplot函数中包含geom_bar图（stat = identity和ggplotly）时，负值会被强制转换为正值。

以下是玩具示例：

library(ggplot2)
library(plotly)

set.seed(12345)

x <- data.frame(
    x = 1:10,
    obs = floor(rnorm(10) * 100)
)

# x  obs
# 1   58
# 2   70
# 3  -11
# 4  -46
# 5   60
# 6 -182
# 7   63
# 8  -28
# 9  -29
# 10  -92

test_plot <- ggplot(x, aes(factor(x), obs)) + geom_bar(stat = "identity")
test_plot

ggplotly(test_plot)

使用其他geoms时似乎没有强制使用这些值。我错过了什么吗？

感谢您的帮助。

Answer 1

你可以试试这个：

library(plotly)
set.seed(12345)

df <- data.frame(
  x = as.factor(1:10),
  obs = floor(rnorm(10) * 100)
)
plot_ly(x = df$x, y = df$obs, type = 'bar', name = 'Plotly') %>%
  layout(xaxis = list(title = 'x'), yaxis = list(title = 'obs'), barmode = 'group')