[英]shiny - how to use ggiraph
My dataset as follows.... 我的数据集如下....
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)
I am trying to run the below code at renderplot
and shiny fails it. 我试图在
renderplot
运行下面的代码,闪亮失败了。 Please advise 请指教
ggiraph(code = {print(gg_point_3)}, tooltip_offx = 20, tooltip_offy = -10 )
This is an example using the iris dataset. 这是使用虹膜数据集的示例。
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)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.