gvisGauge未在R中显示(空白)-谷歌视觉-仪表
我正在尝试使用googleVis库在R中显示一个简单的仪表 然而,我能显示的唯一东西是一个与不可见仪表的宽度和高度相匹配的空白区域。 (我有一个类似的图像,我甚至无法使用renderImage来显示图像。因此,这两个失败可能是相互关联的。) 如果您对如何修复以下代码有任何想法,我们将不胜感激: 从服务器.R:gvisGauge未在R中显示(空白)-谷歌视觉-仪表,r,shiny,gauge,googlevis,R,Shiny,Gauge,Googlevis,我正在尝试使用googleVis库在R中显示一个简单的仪表 然而,我能显示的唯一东西是一个与不可见仪表的宽度和高度相匹配的空白区域。 (我有一个类似的图像,我甚至无法使用renderImage来显示图像。因此,这两个失败可能是相互关联的。) 如果您对如何修复以下代码有任何想法,我们将不胜感激: 从服务器.R: output$gauge <- renderGvis({ M0 <- matrix(c('Label','Value'),ncol=2,byrow=TRUE) M1 <-
output$gauge <- renderGvis({
M0 <- matrix(c('Label','Value'),ncol=2,byrow=TRUE)
M1 <- matrix(c('IRR',4),ncol=2,byrow=TRUE)
MU <- rbind(M0,M1)
df <- as.data.frame(MU)
gvisGauge(df,
options=list(min=0, max=10, greenFrom=8,
greenTo=10, yellowFrom=6, yellowTo=8,
redFrom=0, redTo=6, width=300, height=300));
})
谢谢
Chad您的
数据。帧的指定不正确
> M0 <- matrix(c('Label','Value'),ncol=2,byrow=TRUE)
> M1 <- matrix(c('IRR',4),ncol=2,byrow=TRUE)
> MU <- rbind(M0,M1)
> df <- as.data.frame(MU)
> df
V1 V2
1 Label Value
2 IRR 4
library(shiny)
library(googleVis)
runApp(list(
ui = bootstrapPage(
numericInput('n', 'Number of obs', 4, 1, 10),
htmlOutput("view")
),
server = function(input, output) {
output$view <- renderGvis({
df <- data.frame(Label = "IRR", Value = input$n)
gvisGauge(df,
options=list(min=0, max=10, greenFrom=8,
greenTo=10, yellowFrom=6, yellowTo=8,
redFrom=0, redTo=6, width=300, height=300));
})
}
))
>M0 M1 MU df
V1 V2
1标签值
2内部收益率4
图书馆(闪亮)
图书馆(谷歌)
runApp(列表(
ui=引导(
数字输入(“n”、“OB数”、4、1、10),
htmlOutput(“视图”)
),
服务器=功能(输入、输出){
output$view您的data.frame
指定不正确。谢谢您,JD。您有设置data.frame的正确方法的示例吗?根据我找到的文档,我应该在“as.data.frame”中插入一个二乘二的矩阵,第一行是'Label'和'Value',第二行是实际的标签,第二行是实际的Value.Awesome。还有一个问题是我一直在使用uiOutput,而不是htmlOutput。
> M0 <- matrix(c('Label','Value'),ncol=2,byrow=TRUE)
> M1 <- matrix(c('IRR',4),ncol=2,byrow=TRUE)
> MU <- rbind(M0,M1)
> df <- as.data.frame(MU)
> df
V1 V2
1 Label Value
2 IRR 4
library(shiny)
library(googleVis)
runApp(list(
ui = bootstrapPage(
numericInput('n', 'Number of obs', 4, 1, 10),
htmlOutput("view")
),
server = function(input, output) {
output$view <- renderGvis({
df <- data.frame(Label = "IRR", Value = input$n)
gvisGauge(df,
options=list(min=0, max=10, greenFrom=8,
greenTo=10, yellowFrom=6, yellowTo=8,
redFrom=0, redTo=6, width=300, height=300));
})
}
))