在已分组的条形图上定位标记

Question

我的问题类似于this question，但位于R的plotly中。 在上述高图情况下，建议对点的x坐标添加偏移量。不过，我不确定这在R中如何工作。

作为示例代码，我有：

library(data.table)
library(plotly)

data <- data.table('value' = runif(16, 0, 10),
                   'object' = c(rep('Object 1', 4),
                                rep('Object 2', 4),
                                rep('Object 3', 4),
                                rep('Object 4', 4)),
                   'category' = c('A', 'B', 'C', 'D'),
                   'val2' = runif(16, 20, 30))

p1 <- plot_ly(data,
              x = ~category,
              y = ~value,
              color = ~object,
              type = 'bar') %>%
          layout(barmode = 'group')

p2 <- plot_ly(data,
              x = ~category,
              y = ~val2,
              color = ~object,
              type = 'scatter')

subplot(p2, p1, nrows = 2, shareX = TRUE)

在生成的绘图中，标记在x轴上围绕每个类别居中，而我希望它们位于它们各自的对象栏上方。

在R plotly中有可能吗，还是我必须绕行ggplot2？