Я создаю блестящее приложение.
Я рисую диаграммы с помощью ggplot.
Когда я нажимаю точки на графике, я хочу, чтобы всплывающая подсказка показывала один из столбцов в фрейме данных (настраиваемая подсказка)
Можете ли вы предложить лучший способ продвижения вперед.
Простое приложение:
# ui.R
shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
h4("TEst PLot")),
mainPanel(
plotOutput("plot1")
)
)
))
# server.R
library(ggplot2)
data(mtcars)
shinyServer(
function(input, output) {
output$plot1 <- renderPlot({
p <- ggplot(data=mtcars,aes(x=mpg,y=disp,color=factor(cyl)))
p <- p + geom_point()
print(p)
})
}
)
Когда я курсирую над точками, я хочу, чтобы он показывал mtcars $wt