用填充法在ggplot（geom_bar）中进行十进制

Question

我有一个包含三个变量的数据框。这是str()

'data.frame':   282 obs. of  2 variables:
 $ stars  : num  1 3 3.5 2 3.5 3 3.5 3 3.5 3.5 ...
 $ is_open: chr  "1" "0" "0" "1" ...

这是一个小样本：

structure(list(stars = c(1, 3, 3.5, 2, 3.5), is_open = c("1", 
"0", "0", "1", "1")), .Names = c("stars", "is_open"), row.names = c(NA, 
5L), class = "data.frame")

我想用变量ggplot的{​​{1}}以十进制的形式创建一个条形图，并填充变量stars。

但我只获得此版本，因为我不知道如何选择is_open和deciles变量

is_open

但我只得到这个结果。

使用ggplot它不起作用：

test %>% select(stars) %>% quantile(na.rm = T, c(0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1)) %>% barplot()

知道如何通过ggplot(test, aes(x = stars(na.rm = T, c(0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1)), fill = is_open)) + geom_bar(stat = "identity") Error in stars(na.rm = T, c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, : 'x' must be a matrix or a data frame 整合is_open变量吗？它应该是这样的：

Answer 1

首先制作data.frame（正如Richard建议的那样）。然后单独绘制：

library(dplyr)
library(tidyr)
library(ggplot2)

test_quant <- test %>% 
  group_by(is_open) %>% 
  do(x = seq(0, 1, 0.1),
     quant = quantile(.$stars, seq(0, 1, 0.1))) %>% 
  unnest()

ggplot(test_quant, aes(as.factor(x), quant, fill = is_open)) + 
   geom_col(position = 'dodge')