标签: googlevis

我正在使用带有Shiny R的Google Motion Chart,我无法编辑一些基本的东西.我是Shiny R的新手并且已经开始喜欢它了.这是我的代码:

ui.R

 library(shiny)
    shinyUI((
    mainPanel( 
        h4("Interactive Analytics"),
        htmlOutput("view_gviz")
    )
 ))

shiny.R

 library(shiny)
 library(googleVis)     
 sample_data <- structure(list(YEAR = c(2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2001L, 2002L, 2002L, 2002L, 2002L, 2002L, 2002L, 2002L, 2002L, 2002L, 2002L, 2002L, 2002L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L, 2003L), STORM = structure(c(3L, 9L, 16L, 25L, 36L, 40L, 46L, 58L, 64L, 70L, 75L, 86L, 91L, 97L, …

我在Shiny UI中有一个情节.如果我改变任何输入参数并通过反应性图将改变.但让我们考虑以下情况: - Shiny UI绘图中的情节让我们说一个股票的日内价格走势.为此,您查询一些实时数据源.现在如果我创建一个刷新按钮然后如果时间过去我继续点击刷新按钮.随着时间进入实时数据源,新数据到达时,绘图将更新.现在我的问题是我不想一直点击刷新按钮.但我希望运行一个带定时器的循环,以便它会检查一段固定的时间间隔,一旦新数据出现,该绘图将自动更新.某种Google财经图表随着时间的推移不断更新.

所以问题可以简化如下: - 让我们从Shiny本身考虑这个例子: - ui.R

library(shiny)    

shinyUI(pageWithSidebar(    

  headerPanel("Hello Shiny!"),

  sidebarPanel(
    sliderInput("obs", 
                "Number of observations:", 
                min = 1,
                max = 1000, 
                value = 500)
  ),

  mainPanel(
    plotOutput("distPlot")
  )
))

和server.R

library(shiny)

shinyServer(function(input, output) {

  output$distPlot <- renderPlot({

    # generate an rnorm distribution and plot it
    dist <- rnorm(input$obs)
    hist(dist)
  })

})

现在我想从正态分布生成一个不同的随机样本,没有任何输入活动.所以基本上我想打电话

dist <- rnorm(input$obs)
hist(dist)

再次不改变sliderInput.请帮我看看如何做到这一点.

我想进行反应显示,根据输入选择器的哪个值选择显示不同数量的绘图.在mtcars数据集的情况下,假设我想让用户选择在Nr之间切割.Gears或Nr.Carcarratos为要生产的地块.

看着 unique(mtcars$gear)我们看到它有4 3 53个可能的值,同时unique(mtcars$carb)有4 1 2 3 6 86个可能的值.因此,我想在Nr. of Carburators选择时生成6个单独的图,并且在选择时仅绘制3个图Nr. of Gears.我曾经玩过,conditionalPanel但是我在选择器之间切换一次或两次之后总是会爆炸.救命？

闪亮的用户界面:

library(shiny)
library(googleVis)

shinyUI(bootstrapPage(
    selectInput(inputId = "choosevar",
              label = "Choose Cut Variable:",
              choices = c("Nr. of Gears"="gear",
                          "Nr. of Carburators"="carb")),
    htmlOutput('mydisplay')  ##Obviously I'll want more than one of these... 
#   conditionalPanel(...)
  ))

闪亮的服务器:

shinyServer(function(input, output) {
   #Toy output example for one out of 3 unique gear values:
    output$mydisplay <- renderGvis({
    gvisColumnChart( …

我在R中使用传单(刚开始使用它).我喜欢在下面的帖子中完成聚类/可视化的方式.程序员正在使用Java.对于leaflet/R我找不到的是如何创建一个带有数字的簇圆,即标记数量的汇总,它响应于缩放时出现的标记数量.我可以在地图上获得不同的标记,但不能获得缩放的响应.

Leaf Leaf Simple CSV示例

http://blog.perrygeo.net/2013/09/30/leaflet-simple-csv

如果这在R /传单中是不可能的.我想要展示的是:一个邮政编码有10次访问,一个邮政编码有1次访问.我想用R/Shiny来创建项目.如果传单不是最好的我对其他选项开放(googlevis？)我是新的映射,所以我可能会遗漏一些简单的...

非常感谢你的帮助.

我使用googleVis在R中创建了一个图,特别是gvisMotionChart,绘制了一些变量.

我主要使用折线图,当我查看包含所有变量的图形时,它总是很好,但是当我选择一些单独的变量时,它会放大阳光,这个变量的某些图形不再出现在图形上.我知道它应该放大只是为了查看这个变量并且可以排除其他变量(这是一个很好的特性)但它放大太多,以便我所追求的变量不完全在图上.

所有变量都不会发生这种情况,我可以通过选择我要查看的那一侧的其他变量来绕过它,但如果我能解决这个问题会很好.有没有人遇到类似的问题并知道解决方法？

提前致谢

编辑:我有一个使用Lahman包中的数据Batting的例子.(我对basaeball一无所知所以分析可能没有意义,实际上看结果几乎肯定没有,但它显示了我的观点).如果您运行以下代码:

library(Lahman)
recent <- subset(Batting, yearID > 2000)
homeruns <- aggregate(HR ~ stint + yearID, data = recent, FUN = sum)
avgHR <- mean(homeruns$HR)
homeruns$HR <- homeruns$HR - avgHR
m <- gvisMotionChart(data = homeruns, idvar = "stint", timevar = "yearID")
plot(m)

然后选择折线图,然后选择数字2的子集,图形的顶部被截断

我在Windows 7中使用Rsutdio和knitr来渲染简单的gvisTable时遇到了麻烦.这是我的代码

```{r results='asis'}
require(googleVis)
op <- options(gvis.plot.tag="chart")
data(iris)
t = gvisTable(data = iris)
print(t)
```

这是我的错误:

pandoc.exe:无法检索https://www.google.com/jsapi?callback=displayChartTableID14c4345d7f3 FailedConnectionException2"www.google.com"443真正连接:失败(连接超时(WSAETIMEDOUT))Erreur:pandoc文档转换失败,错误61

我的Rstudio版本是:0.98.1091我的SessionInfo是:

R version 3.1.2 (2014-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=French_France.1252  LC_CTYPE=French_France.1252    LC_MONETARY=French_France.1252
[4] LC_NUMERIC=C                   LC_TIME=French_France.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] plotrix_3.5-10   data.table_1.9.4 googleVis_0.5.6  knitr_1.8       

loaded via a namespace (and not attached):
 [1] chron_2.3-45     digest_0.6.4     evaluate_0.5.5   formatR_1.0      htmltools_0.2.6  plyr_1.8.1       Rcpp_0.11.3     
 [8] reshape2_1.4     RJSONIO_1.3-0    rmarkdown_0.3.11 stringr_0.6.2    tools_3.1.2      yaml_2.1.13

或者此代码完全正常:

```{r results='asis'} …

我想隐藏标签.我相信这与选项bubble.textStyle和设置颜色有关,none但我无法弄明白.

Bubble <- gvisBubbleChart(Fruits, idvar="Fruit", xvar="Sales", yvar="Expenses",
                          colorvar="Year", sizevar="Profit",
                          options=list(hAxis='{minValue:75, maxValue:125}',
                                       width=500, height=300))
plot(Bubble)

谢谢..

快速提问.我在sql server中有一些数据已加载到RStudio中.我已经为数据做了一个条形图,现在我正在使用小册子库,使用纬度和经度在地图上绘制一个点.我希望能够在用户点击该点时使用弹出窗口显示条形图.

BarChart代码(也许这是一个问题,因为我使用的是googleVis库,所以不确定我是否可以在弹出窗口中使用它.但同样这是我可以制作和需要的最合适的条形图 - 其他建议可能会有所帮助,因为我不是R图书馆的专业人士)

Switzerland <- sqlQuery(con, "sql query")
SwitzerlandChart <- gvisBarChart(Switzerland, options = list(height=200))

对于图形图,代码是:

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addCircles(lng=8.498868, lat=46.9221, popup=paste(plot(SwitzerlandChart)))

当我运行此代码时,它会打开一个网页来查看我的条形图.然后我运行以下内容:

m #Prints the graph

这会打印带有所需位置点的图形,但弹出窗口会显示一个网页,而这也是我只能打开的网页.

我希望能够在弹出窗口内绘制条形图.

希望有人能提供帮助

如何在R googleVis sankey图表中更改节点和链接颜色？并且链接与其始发节点具有相同的颜色？

library(googleVis)
datSK <- data.frame(From=c(rep("A",3), rep("B", 3)),
                To=c(rep(c("X", "Y", "Z"),2)),
                Weight=c(5,7,6,2,9,4))

Sankey <- gvisSankey(datSK, from="From", to="To", weight="Weight",
                 options=list(
                   sankey="{link: {color: { fill: '#d799ae' } },
                        node: { color: { fill: '#a61d4c' },
                        label: { color: '#871b47' } }}"))
plot(Sankey)

我试图用R中的gooogleVis制作一个带有两个坐标和一个尺寸参数的气泡图.

当我没有建立颜色变量时,size变量用作颜色而不是大小.我可以包含colorvar但是变量会显示在工具提示中.

我该如何避免这种行为？

我包含了前面提到的两个案例的最小工作示例:

library(googleVis)
set.seed(1)

bubbledata<-data.frame(id=rep("",100),X=sample(10,10,rep=TRUE),
                       Y=sample(10,10,rep=TRUE),Weight=sample(10,10,rep=TRUE))

# This graph uses sizevar as colorvar
bubble <- gvisBubbleChart(bubbledata, idvar="id",
                           xvar="X", yvar="Y",colorvar="",
                           sizevar="Weight")
plot(bubble)

bubbledata$colour<-""

# The output of this one is ok but the tooltip includes the colour var
bubble2 <- gvisBubbleChart(bubbledata, idvar="id",
                          xvar="X", yvar="Y",colorvar="colour",
                          sizevar="Weight")
plot(bubble2)