1

包中形成的树形图是否googleVis旨在允许“钻取”功能?

在 中的示例中?gvisTreeMap,树形图的形式很好,并允许在我的浏览器中进行向下钻取功能。但是,顶部的鼠标悬停似乎不会响应鼠标单击。我可以做些什么来启用向上钻取功能?(我使用的是最新版本的 Firefox 和 Chrome。)

## Please note that by default the googleVis plot command
## will open a browser window and requires Internet
## connection to display the visualisation.

Tree <- gvisTreeMap(Regions,  idvar="Region", parentvar="Parent",
                    sizevar="Val", colorvar="Fac")
plot(Tree)


Tree2 <- gvisTreeMap(Regions,  "Region", "Parent", "Val", "Fac",
                    options=list(width=600, height=500,
                                 fontSize=16,
                                 minColor='#EDF8FB',
                                 midColor='#66C2A4',
                                 maxColor='#006D2C',
                                 headerHeight=20,
                                 fontColor='black',
                                 showScale=TRUE))

plot(Tree2)

## Simple static treemap with no drill down options based on US states
## and their area. However we still have to create a parent id to use
## gvisTreeMap

require(datasets)
states <- data.frame(state.name, state.area)

## Create parent variable

total=data.frame(state.area=sum(states$state.area), state.name="USA")

my.states <- rbind(total, states)
my.states$parent="USA"
## Set parent variable to NA at root level
my.states$parent[my.states$state.name=="USA"] <- NA

my.states$state.area.log=log(my.states$state.area)
statesTree <- gvisTreeMap(my.states, "state.name", "parent",
                          "state.area", "state.area.log")
plot(statesTree)


## We add US regions to the above data set to enable drill down capabilities

states2 <- data.frame(state.region, state.name, state.area)

regions <- aggregate(list(region.area=states2$state.area),
                     list(region=state.region), sum)

my.states2 <- data.frame(regionid=c("USA",
                                    as.character(regions$region),
                                    as.character(states2$state.name)),
                         parentid=c(NA, rep("USA", 4),
                                   as.character(states2$state.region)),
                         state.area=c(sum(states2$state.area),
                                      regions$region.area, states2$state.area))

my.states2$state.area.log=log(my.states2$state.area)

statesTree2 <- gvisTreeMap(my.states2, "regionid", "parentid",
                           "state.area", "state.area.log")

plot(statesTree2)
4

3 回答 3

0

要向上钻取,我只需要使用右键单击。

于 2014-02-06T22:11:04.000 回答
0

我今天也遇到了这个问题,发现右键单击是答案。有关此示例中使用的代码的更完整示例,可以在前面提到的?gvisTreeMap 或从rDocumentation.org中找到。我在试图理解 gvisTrepMap 时遇到了这个问题,但发现链接的文档可以更全面地描述该功能。

于 2015-04-30T23:53:45.940 回答
0

我发现控制左键单击也会缩小。在我的 Mac OS/X 上,在 Chrome、Firefox 和内置的 R-Studio 查看器中。

于 2015-05-15T03:02:32.783 回答