逻辑矩阵的GGVIS图

时间:2015-11-30 16:28:13

标签: r matrix plot ggplot2 ggvis

我正在尝试绘制一个类似问题here的逻辑矩阵,区别在于我正在尝试使用f = open('MyData.json') request_items = json.loads(f.read()) client = boto3.client('dynamodb') response = client.batch_write_item(RequestItems=request_items) 这样做,以便我可以使用悬停工具(数据)有几千行所以当我将鼠标悬停在它上面时,我希望看到行/列名称。以下代码适用于ggvis

ggplot2

1 个答案:

答案 0 :(得分:0)

您可以找到layer_rects here的示例,我只是做了一些调整。 使用链接问题的示例:

加载数据

mm <- structure(c(TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, 
                  FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, 
                  FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
                  FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
                  FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
                  FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
                  TRUE, TRUE, TRUE), .Dim = c(10L, 10L), .Dimnames = list(NULL, 
                                                                          c("n1", "n2", "n3", "n4", "n5", "n1.1", "n2.1", "n3.1", "n4.1", 
                                                                            "n5.1")))

融化并更改类型

library(reshape2)
melted <- melt(mm)

melted$value <- as.numeric(melted$value)
melted$Var1 <- as.factor(melted$Var1)

剧情

melted %>%
  ggvis(~Var2, ~Var1, fill = ~value) %>%
  layer_rects(width = band(), height = band()) %>%
  scale_nominal("x", padding = 0, points = FALSE) %>%
  scale_nominal("y", padding = 0, points = FALSE)

enter image description here