Я хочу сделать выбор перетаскивания по столбцам без масштабирования.Я знаю, что пакет highcharter в R использует оболочку javascript highcharts, поэтому я попытался применить логику javascript highcharts в R, но, похоже, она не работает.Я также знаю, что мне нужно использовать «event.preventDefault ()» для предотвращения опции масштабирования в старших диаграммах, но я не знаю, как использовать ее в R. Вот как выглядит мой код:
library(shiny)
library(highcharter)
data("citytemp")
hc <- highchart() %>%
hc_chart(type="column",
event= list(
selection = JS(
"function selectPointsByDrag(e) {
// Select points
Highcharts.each(this.series, function (series) {
Highcharts.each(series.points, function (point) {
if (point.x >= e.xAxis[0].min && point.x <= e.xAxis[0].max &&
point.y >= e.yAxis[0].min && point.y <= e.yAxis[0].max) {
point.select(true, true);
}
});
});
// Fire a custom event
Highcharts.fireEvent(this, 'selectedpoints', { points: this.getSelectedPoints() });
return false; // Don't zoom
}"
)
),
zoomType= "xy") %>%
hc_xAxis(categories = citytemp$month) %>%
hc_plotOptions(
series = list(
borderWidth=0,
dataLabels=list(enabled=TRUE),
allowPointSelect= TRUE
)
) %>%
hc_add_series(name = "Tokyo", data = citytemp$tokyo)
hc
Пожалуйста, помогите мне, я все перепробовал!