R -如何使用图形

Question

我的数据集如下....

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 )

Answer 1

这是一个使用虹膜数据集的例子。

    library(shiny)
    library(dplyr)
    library(ggplot2)
    library(ggiraph)

    ui <- shinyUI(fluidPage(

       titlePanel("Shiny & ggiraph"),

       sidebarLayout(
          sidebarPanel(
             selectInput("species",
                         "Select species:",
                         selected = "setosa",
                         choices = unique(levels(iris$Species))
                         )
          ),

          mainPanel(
                    ggiraphOutput("plotIris")
          )
       )
    ))

    server <- shinyServer(function(input, output) {
            filterIris <- reactive({
                    filter(iris, Species == input$species)
            })
            output$plotIris <- renderggiraph({
                    gg <- ggplot(filterIris(), aes(x = Sepal.Length, y = Petal.Length))
                    gg <- gg + geom_point_interactive(
                            aes(tooltip = filterIris()$Sepal.Length), size = 2) 
                    ggiraph(code = print(gg))
            })
    })

    shinyApp(ui = ui, server = server)