googleVis树图钻孔

Question

树状地图是在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)

Answer 1

为了钻研，我只需要用右键点击。

Answer 2

我今天也碰到了这个问题，发现右击就是答案。对于本例中使用的代码的更完整的示例，可以在前面提到的?gvisTreeMap或rDocumentation.org中找到。在这个问题上，我试图理解gvisTrepMap，但是找到了链接文档，以便更全面地描述这个函数。

Answer 3

我发现那个控制左键也放大了。在我的Mac /X上，在Chrome，Firefox和内置的浏览器上。