Я не думаю, что это хорошая идея, чтобы изменить высоту баров.Вместо этого вы можете попробовать что-то вроде этого:
library(plotly)
df <- data.frame(x = rnorm(5000), y = -1)
p <- plot_ly(data = df, x = x, type = "histogram")
add_markers(p,
data = df,
x = ~x,
y = ~y,
type = 'scatter',
mode = 'markers',
marker = list(symbol = 'star', size = ~abs(x), color = 'green', alpha = 0.5, line = list(color = 'transparent')))
Теперь можно увидеть, что у вас есть некоторые наблюдения, например, близкие к 4.