我的数据集如下...
fund , sharpe , risk
abc , 1.5 , 7
def , 0 , 5
selectInput("n_breaks", label = "Risk Profile:", choices = c(1,2,3,4,5,6,7,8,9,10), selected = 7)
# Reactive
selectedData <- reactive
a <- mydata %>% filter(risk==as.numeric(input$n_breaks) & sharpe > 0)
renderPlot
ggplot(selectedData(), aes(x = sharpe, y = returns, tooltip = fund, data_id = fund, color=sd)) + geom_point_interactive(size=1)
我试图在运行以下代码，但renderplot闪亮失败。请指教
ggiraph(code = {print(gg_point_3)}, tooltip_offx = 20, tooltip_offy = -10 )