r - ggplotly 在正方向上绘制负条

Question

我在 ggplotly 中使用 geom_bar 图，它将负条呈现为正。任何想法为什么会出现这种情况，特别是如何解决这个问题？

library(ggplot2)
library(plotly)
dat1 <- data.frame(
  sex = factor(c("Female","Female","Male","Male")),
  time = factor(c("Lunch","Dinner","Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(-13.53, 16.81, 16.24, 17.42)
)

# Bar graph, time on x-axis, color fill grouped by sex -- use position_dodge()
g <- ggplot(data=dat1, aes(x=time, y=total_bill, fill=sex)) +
  geom_bar(stat="identity", position=position_dodge())
ggplotly(g)

为什么第一个柱会在正方向，值为负？

我使用的版本是最新的:

plotly_3.4.13

ggplot2_2.1.0

Answer 1

如果您将绘图对象写入另一个变量，则可以修改绘图属性，包括用于渲染绘图的“数据”。

对于您的特定示例，请将其附加到您的代码中:

#create plotly object to manipulate
gly<-ggplotly(g)

#confirm existing data structure/values
gly$x$data[[1]]  
# see $y has values of 13.53, 16.81 which corresponds to first groups absolute values  

#assign to original data
gly$x$data[[1]]$y <- dat1$total_bill[grep("Female",dat1$sex)]

#could do for second group too if needed
gly$x$data[[2]]$y <- dat1$total_bill[grep("Male",dat1$sex)]

#to see ggplotly object with changes
gly