这是我在这里的第一个问题,如果我在发布或解释我的问题时犯了任何错误,我会很高兴听到任何反馈。
我正在使用 Shiny、ggplot 和 Plotly 在 R 中构建一个工具。我有一个来自 plotly库的例子,我可以看到在使用 ggplot 渲染图形时可以有一个工具提示。
按照我的示例代码:
library(shiny)
library(ggplot2)
library(plotly)
library(dplyr)
library(reshape)
ui <- fluidPage(
plotlyOutput("distPlot")
)
server <- function(input, output) {
output$distPlot <- renderPlotly({
dat <- data.frame(
time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
total_bill = c(14.89, 17.23)
)
p <- ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) +
geom_bar(stat="identity")
p <- p + geom_bar(stat = "identity")
ggplotly(p)
})
}
shinyApp(ui = ui, server = server)
当我使用上面的代码时,工具提示不会显示,但如果我删除 fill = X2 参数,工具提示会出现:
p <- ggplot(data=dat, aes(x=time, y=total_bill)) +
geom_bar(stat="identity")
在我的应用程序中,我需要具有fill参数,以按颜色分隔显示的“组”并显示图例。
我已经使用 javascript 和其他解决方案在互联网上搜索了许多“解决方法”,但由于它是 plotly 的本机功能,我希望以更简单的方式工作。
在此先感谢您的帮助!!
这是一个已知问题,您可以使用此问题来解决:
p <- ggplotly(p)
for (i in 1:length(p$x$data)){
p$x$data[[i]]$text <- c(p$x$data[[i]]$text, "")
}
p
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句