R仪表板，googlevis选项

Question

这是我的问： 我使用googlevis（gvisTreeMap）函数来说明数据框。它会自动将标签放在每个块上，但我也希望得到这些数字。 这是我的简化代码：

 col1 <- c(1,2,3,5,8)
    col2 <- c("a","b","c","d","e")
    fdata <- data.frame(col1,col2)

    total <- data.frame(col1=sum(fdata$col1), col2="Market Share")

    fdata1 <- rbind(total, fdata)
    fdata1$parent="Market Share"
    ## Set parent variable to NA at root level
    fdata1$parent[fdata1$col2=="Market Share"] <- NA
    fdata1$col1.log=log(fdata1$col1)


    aa <- gvisTreeMap(fdata1, "col2", "parent",
                              "col1", "col1.log",
                   options=list(width=600, height=500,
                                  fontSize=16,
                                  minColor='#EDF8FB',
                                  midColor='#66C2A4',
                                  maxColor='#006D2C',
                                  headerHeight=20,
                                  fontColor='black',
                                  showScale=TRUE, lable="$$"))



    plot(aa)

为了使它更清楚，在我运行代码后，我有五个带字母的块，但我想要字母和数字。 感谢

Answer 1

我更改了col2的定义，将大小附加到每个条目（根节点除外）：

fdata1$col2=paste0(fdata1$col2, " - ", fdata1$col1)
fdata$col2[1] <- "Market Share"