我正在构建一个 NBA R Shiny 应用程序,在尝试制作交互式绘图时遇到了一个小问题。我的 Geom smooth 元素在我提供的第一组代码中工作,该代码显示了所选团队胜利幅度的平滑平均值,但是一旦我使用 ggplotly 实现了自定义工具提示,geom smooth 元素就停止工作。
mov_plot <- function(df){
p <- df %>%
ggplot(aes(Date, Margin_of_Victory)) +
geom_col(color = 'black', alpha = 0.7, aes(fill = Outcome)) +
geom_smooth(method = 'loess', se = FALSE, color = 'grey20', alpha = 0.4) +
scale_y_continuous(breaks = c(-25, -20, -15, -10, -5, 0, 5, 10, 15, 20, 25)) +
scale_fill_manual(values = c("red", "dark green")) +
labs(x = NULL,
y = 'Margin of Victory',
title = paste0(df$FullName, ' Game Log History \n 2019-2020 NBA Season'),
subtitle = '2019-2020 NBA Season') +
theme_jacob()
ggplotly(p)
}
mov_plot <- function(df){
p <- df %>%
ggplot(aes(Date, Margin_of_Victory, text = paste(Date, '<br>',
Outcome, ' vs', Opponent, '<br>',
'Scoreline: ', team_pts, ' - ', Opp_PTS, '<br>',
'Margin of Victory: ', Margin_of_Victory))) +
geom_col(color = 'black', alpha = 0.7, aes(fill = Outcome)) +
geom_smooth(method = 'loess', se = FALSE, color = 'grey20', alpha = 0.4) +
scale_y_continuous(breaks = c(-25, -20, -15, -10, -5, 0, 5, 10, 15, 20, 25)) +
scale_fill_manual(values = c("red", "dark green")) +
labs(x = NULL,
y = 'Margin of Victory',
title = paste0(df$FullName, ' Game Log History \n 2019-2020 NBA Season'),
subtitle = '2019-2020 NBA Season') +
theme_jacob()
ggplotly(p, tooltip = c('text'))
}
下面的两张图片显示了当我使用第二组代码时 geom_smooth 元素消失的问题。
如果有人有情节经验并且对潜在的修复有任何想法,我将不胜感激!