生成多个Shiny图表的问题在使用map2时无法解决。

huangapple
go评论86阅读模式
英文:

Generating multiple charts in Shiny with map2 is not working

问题

这是我的代码：

  1. library(shiny)
  2. library(gapminder)
  4. ui <- fluidPage(
  5.   highchartOutput(outputId = 'chart_1'),
  6.   highchartOutput(outputId = 'chart_2'),
  7.   highchartOutput(outputId = 'chart_3')
  8. )
  10. server <- function(input, output, session) {
  11.   data <- gapminder::gapminder %>% filter(country == 'Chile')
  13.   function_chart <- function(x, z) {
  14.     output[[paste0('chart_', x)]] <- renderHighchart({
  15.       hchart(
  16.         data,
  17.         'column',
  18.         hcaes(x = year,
  19.               y = data[[z]]),
  20.         colorByPoint = TRUE
  21.       )
  22.     })
  23.   }
  24.   map2(1:3, c('pop', 'lifeExp', 'gdpPercap'), ~ function_chart(x = .x, z = .y))
  25. }
  27. shinyApp(ui, server)

错误可能在'function_chart'函数中，特别是当调用参数z时。输出应该为3个Highchart图表。需要帮助吗？

英文:

This is my code:

  1. library(shiny)
  2. library(gapminder)   
  4. ui &lt;- fluidPage(
  6.   highchartOutput(outputId = &#39;chart_1&#39;),
  7.   highchartOutput(outputId = &#39;chart_2&#39;),
  8.   highchartOutput(outputId = &#39;chart_3&#39;)
  10. )    
  11. server &lt;- function(input, output, session) {
  13.  data &lt;-  gapminder::gapminder %&gt;% filter(country == &#39;Chile&#39;)
  15.   function_chart &lt;- function(x,z) {    
  16.     output[[paste0(&#39;chart_&#39;, x)]] &lt;- renderHighchart({    
  17.        hchart(
  18.           data,
  19.           &#39;column&#39;,    
  20.           hcaes(x = year,
  21.                 y = data[[z]]),
  22.           colorByPoint = TRUE
  23.         )    
  24.       })
  25.   }    
  26.   map2(1:3,c(&#39;pop&#39;,&#39;lifeExp&#39;,&#39;gdpPercap&#39;),~ function_chart(x = .x, z = .y))   
  28. }
  30. shinyApp(ui, server)

The error is in the function &#39;function_chart&#39; probably when I call the argument z. The output should give me 3 highchart charts.

Any help?

答案1

得分: 1

因为hcaes是惰性评估的，你需要用!!将当前值"z"注入其中。试试：

  1. server <- function(input, output, session) {
  2.   
  3.   data <-  gapminder::gapminder %>% filter(country == 'Chile')
  4.   
  5.   function_chart <- function(x,z) {    
  6.     output[[paste0('chart_', x)]] <- renderHighchart({    
  7.       hchart(
  8.         data,
  9.         'column',    
  10.         hcaes(x = year,
  11.               y = !!z),
  12.         colorByPoint = TRUE
  13.       )    
  14.     })
  15.   }    
  16.   map2(1:3,c('pop','lifeExp','gdpPercap'),~ function_chart(x = .x, z = .y))   
  17.   
  18. }
英文:

Because hcaes is lazy evaluated, you need to inject the current value of "z" in there with !!. Try

  1. server &lt;- function(input, output, session) {
  2.   
  3.   data &lt;-  gapminder::gapminder %&gt;% filter(country == &#39;Chile&#39;)
  4.   
  5.   function_chart &lt;- function(x,z) {    
  6.     output[[paste0(&#39;chart_&#39;, x)]] &lt;- renderHighchart({    
  7.       hchart(
  8.         data,
  9.         &#39;column&#39;,    
  10.         hcaes(x = year,
  11.               y = !!z),
  12.         colorByPoint = TRUE
  13.       )    
  14.     })
  15.   }    
  16.   map2(1:3,c(&#39;pop&#39;,&#39;lifeExp&#39;,&#39;gdpPercap&#39;),~ function_chart(x = .x, z = .y))   
  17.   
  18. }

huangapple
  • 本文由 发表于 2023年2月13日 23:18:23
  • 转载请务必保留本文链接：https://go.coder-hub.com/75437806.html
  • r
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定