2

我想使用nPlot()函数RCharts来绘制属于离散组的人的百分比，而不是频率。

例如：使用下面的 HairEyeColor 数据/代码，我可以考虑不同头发颜色的人的百分比（我的分组变量），作为他们眼睛颜色的函数。

## server.r
library(rCharts)
library(shiny)
library(reshape)

HairEyeColor1 <- melt(round(prop.table(HairEyeColor[,,1],2)*100,2))
names(HairEyeColor1) <- c("Hair", "Eye", "Percent")

shinyServer(function(input, output) {
output$myChart <- renderChart({
p1 <- nPlot(Percent ~ Eye, group = "Hair", data = HairEyeColor1, type = multiBarChart")
p1$addParams(dom = 'myChart')
return(p1)
})
})

## ui.R
library(rCharts)
library(shiny)

shinyUI(pageWithSidebar(
headerPanel("rCharts: Interactive Charts from R using NVD3.js"),
sidebarPanel(
wellPanel(
    helpText(   "Look at the pretty graph"
    )
    ),
wellPanel(
    helpText(   "Look at the pretty graph"
    )
    ),
wellPanel(
    helpText(   "Look at the pretty graph"
    )
    )
),
mainPanel(
div(class='wrapper',
tags$style(".Nvd3{ height: 400px;}"),
showOutput("myChart","Nvd3")
)
)
))

假设我只想看一个单一的因素，比如头发。有没有办法用 来绘制他们的百分比nPlot()？

prop.table(rowSums(HairEyeColor[,,1]))
    Black     Brown       Red       Blond 
    0.2007168 0.5125448   0.1218638 0.1648746

我type=multiBarChart试过了：

p1 <- nPlot(Percent ~ , group = "Hair", data = HairEyeColor1, type = multiBarChart")

这完全失败了。我也试过：

p1 <- nPlot(Percent ~ 1, group = "Hair", data = HairEyeColor1, type = multiBarChart")

这至少将一些图表传递给 Shiny UI。但这看起来很可怕，功能（X/Y 轴的外观，点击图表）都丢失了。

我认为这将是合适的，nPlot(type=discreteBarChart)但这个数据布局似乎需要一个具有单因素变量的数据框。所以我不太明白如何骗取nPlot(type=discreteBarChart)比例/百分比向量。

任何建议表示赞赏。

4

1 回答 1

2

以下是如何使用nPlot. 您可以在此处查看结果图。如果要默认堆叠条形图，n1$chart(stacked = TRUE)请在打印图表之前添加线条。

# prepare data
require(plyr)
dat = as.data.frame(HairEyeColor)
dat = ddply(dat, .(Hair), summarize, Freq = sum(Freq), Group = "A")

# draw chart
require(rCharts)
n1 <- nPlot(Freq ~ Group, data = dat, group = 'Hair', type = 'multiBarChart')
n1
于 2013-11-01T00:48:52.200 回答