R - 如何使用 ggvis 绘制多个密度图

Question

如何在同一组轴上绘制多个密度图？我了解如何将多个折线图和散点图绘制在一起，但是让密度图共享一个共同的 x 轴的问题让我很吃惊。我的数据目前是这样设置的：

name  x1   x2   x3
a     123  123  123
b     123  123  123
c     123  123  123

感谢您的帮助！

编辑：以下是我遗漏的一些细节，可能有助于使我的问题更清楚。

我有一个数据框attr_gains，与上面的示例类似，其变量名称为Str、Agi 和Int。到目前为止，我已经能够单独使用以下代码获得Str 变量的密度图：

  attr_gains %>%
  ggvis(x=~Str)%>%
  layer_densities(fill :="red", stroke := "red")

我想做的是再叠加两个密度图，一个用于Agi 和Int，这样我在同一组轴上就有了三个密度图。

Answer 1

直接来自文档：

PlantGrowth %>% 
  ggvis(~weight, fill = ~group) %>% 
  group_by(group) %>%
  layer_densities()

Link

你的情况：

set.seed(1000)
library('ggvis')
library('reshape2')

#############################################

df = data.frame(matrix(nrow = 3, ncol = 5))
colnames(df) <- c('names', 'x1', 'x2', 'x3', 'colors')

df['names'] <- c('a','b','c')    
df['x1'] <- runif(3, 100.0, 150.0)
df['x2'] <- runif(3, 100.0, 150.0)
df['x3'] <- runif(3, 100.0, 150.0)
df['colors'] <- c("blue","orange","green")

df <- melt(df)

#############################################

df %>% 
  ggvis( ~value, fill = ~colors ) %>% 
  group_by(names) %>%
  layer_densities()

有关控制 ggvis 颜色的信息，请参阅this SE page。

---

看起来像这样：