css - ggvis colorbar(或ggplot2)没有任何边距

Question

有谁知道如何在ggvis中制作彩条？或 ggplot2没有任何边距？ ggvis是首选，因为我把它放在 shiny 中申请。

我在 ggplot2 中有一个部分工作的例子:

数据:

legendData <- c(100, 325, 550, 775, 1000)
legendColors <- c("#FF9DEB", "#9FC5FF", "#00E4D0", "#AAD44D", "#FFAE85")
df <- data.frame(x = legendData, col = legendColors, y = 1:5, stringsAsFactors = FALSE)

theme_nothing() 来自 ggmap您可以从 here 复制函数.

ggplot2(有边距):

ggplot(df, aes(y = 1, x = x, fill = col)) + geom_tile() + 
scale_fill_identity() + theme_nothing()

运行这个给了我这个 image 。不幸的是，这仍然有利润。

我有一些 ggvis代码，但它不再工作。它给了我错误“天平必须都是可数的，或者不可数”。

ggvis(不工作):

df %>% ggvis(~y, ~x, fill := ~col) %>% 
layer_rects(width = band(), height = band()) %>%
scale_nominal("x", padding = 0, points = FALSE) %>%
scale_nominal("y", padding = 0, points = FALSE) %>%
add_axis("y", title = "", properties = axis_props(labels = list(fontSize = 14))) %>%
add_axis("x", title = "") %>% set_options(width = 25, height = 100)

谢谢。

Answer 1

感谢 aosmith，这有效:

legendData <- as.factor(c(100, 325, 550, 775, 1000))
legendColors <- c("#FF9DEB", "#9FC5FF", "#00E4D0", "#AAD44D", "#FFAE85")
df <- data.frame(x = legendData, col = legendColors, 
  y = as.factor(rep(1,length(legendData))), stringsAsFactors = FALSE)
df %>% ggvis(~x, ~y, fill := ~col, strokeWidth := 0) %>%
layer_rects(width = band(), height = band()) %>% hide_axis("x") %>% hide_axis("y") %>%
scale_nominal("x", padding = 0, points = FALSE) %>% 
scale_nominal("y", padding = 0, points = FALSE)