作者linda841004 (水凝结)
看板Statistics
标题[程式] r shiny 依据滑鼠显示图表标签
时间Fri Oct 6 11:47:10 2023
[软体程式类别]:R语言
[程式问题]:想在原有图表中新增一项功能：当滑鼠移至图表上时，可以自动显示指定的标签
[软体熟悉度]:新手
[问题叙述]:
最近在练习r shiny时遇到了问题，
问题：想在原有图表中新增一项功能，当滑鼠移至图表上时，可以自动显示指定的标签内容
============
［［更新］］
已将范例资料及完整程式码放入以下云端硬碟中
https://reurl.cc/GKKMkd
============
我的程式码没有显示error，
但是图表却没有正常显示出来，程式码如下：
server <- function(input,output){
filtered_data <- reactive({
test[test$var1 %in% input$select1 &test$var2 %in% input$select2 &
test$var3 %in% input$select3 &test$dis_cate %in% input$select4, ]
})
output$distPlot <- renderPlotly({
gg <- ggplot(filtered_data(), aes(x = year, y = money/1000000, fill = dis_cate)) +
labs(x = "年度", y = "百万元", title = "直条图") +
geom_text(aes(label = round(money/1000000, digits = 2)), vjust = -0.5, size = 4, position = position_dodge(width = 0.9)) +
geom_bar(stat = "identity", position = position_dodge(), alpha = 2/5) +
scale_x_continuous(breaks = unique(filtered_data()$year), labels = unique(filtered_data()$year))
gplotly(gg)
})
output$summoneyOut <- renderText({
sum_ <-round(sum(filtered_data()[["money"]])/100000000,digits = 2)
paste0("2000-2020年共花费",sum_,"亿元")
})
}
shinyApp(ui = ui, server = server)
----------------------
原本没有新增这个功能前的程式码：
（这边的程式码是可以正常显示图表的，也就是可以正常运作）
----------------------
output$distPlot <- renderPlot({
ggplot(filtered_data(),aes(x=year,y=money/1000000,fill=dis_cate))+
labs(x="年度",y="百万元",title=element_text("直条图"))+
geom_text(aes(label = round(money/1000000,digits = 2)), vjust = -0.5, size =4,position = position_dodge(width = 0.9))+
geom_bar(stat = "identity", position = position_dodge(),alpha=2/5)+
scale_x_continuous(breaks = unique(filtered_data()$year), labels = unique(filter
})
试了好久找不到问题在哪里…..
先谢谢大家了~~
-----
Sent from JPTT on my Google Pixel 6.
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.219.175.56 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Statistics/M.1696564032.A.D22.html
1F：推 locka: 请附上测试资料~~感谢~~10/06 12:50
已更新
※ 编辑: linda841004 (61.219.175.56 台湾), 10/06/2023 14:09:27
虽然过了有点久，但我把自问自答放在云端里面，或许可以提供给有类似问题的人（？）
※ 编辑: linda841004 (27.247.4.22 台湾), 11/24/2023 14:49:36