小编Bog*_*Rau的帖子

我正在尝试使用 Highcharter 创建一个带有分组的堆积条形图，并且需要在不使用该hchart()函数的情况下创建它。我有以下代码（hchart()部分有效）。

data <- data.frame(
  building = c("Building A", "Building A", "Building B", "Building B"),
  type = c("Rent", "Owned"),
  measure = c(100, 35, 124, 150),
  measure_target = c(95, 20, 122, 145)
)

# This works
hchart(data, "column", hcaes(x = "building", y = "measure", group = "type")) %>%
  hc_plotOptions(column = list(stacking = "normal"))

# How do we go from the above, to something like this?
highchart() %>%
  hc_xAxis(categories = data$building) %>%
  hc_add_series(type = "column", data = …

我正在研究R的Shiny应用程序,我正在尝试使用RDSTK软件包来反转地理编码lat/lon对的列表,并从json结果中获取CITY并将其保存到列表中.工作流程是:

1. SQLDF用于选择日期范围内的所有记录.
2. 反转地理编码记录并将列添加到具有特定城市的数据框.
3. 再次使用SQLDF来获取城市计数.

我在理解如何获取JSON输出,将其转换为数据帧,然后将其重新绑定到原始数​​据框时遇到了很多麻烦.任何帮助将非常感激!见下面的代码供参考:

数据框:

df <- data.frame(lat=c(34.048381, 37.757836, 40.729855, 42.356391),
             lon=c(-118.266164, -122.441033, -73.987921, -71.062307))

我能够从返回的JSON列表中提取城市,但我不能为我的生活,找出如何多次为更大的纬度/经度对列表做这件事.搜索stackoverflow主要导致在R之外的dstk.

我理想的输出是:

lat        lon           city
34.048381  -118.266164   Los Angeles
37.757836  -122.441033   San Francisco
40.729855  -73.987921    New York
42.356391  -71.062307    Boston

我也试过这个例子:R:如何使用Data Science Toolbox GeoCode一个简单的地址,虽然我似乎无法为coordinate2politics重新设计它.

有什么输入？

以前,我已经构建了一个闪亮的仪表板,其图表输出工作正常,看起来如下所示:

output$someName <- renderGvis({
  input$inputButton

  data <- isolate(myData(function here))
  donut <- gvisDonut({...})

  return(donut)
})

由于添加了observeEvent和eventReactive,我无法像以前那样使它工作.本质上,输出$ someName是一个依赖于多个输入的图表,每次用户点击inputButton时,我都需要renderGvis来重新评估.当按下任何按钮时,该功能不应在任何其他输入发生变化时重新进行评估.

我有一些运气让observeEvent在输入$ inputButton上运行,但是,每次我更改任何输入参数时,都会快速重新运行查询,而不必按下按钮.有人在这里？

更详细的如下:

output$someName <- renderGvis({
  input$inputButton

  data <- isolate(dataGrabber({})) # function that takes input and returns data frame using RMySQL

  isolate(simpleChart(data = data)) # simpleChart is a function to produce a gvisCalendar chart.