这就是我的数据结构:
numClickBool rate rates bookedOrClick
1 0 L 1 0
2 5 M 1 0
3 11 B 1 0
4 0 L 1 1
5 0 M 1 1
6 5 B 1 1
7 8 L 2 0
8 128 M 2 0
9 34 B 2 0
10 6 L 2 1
11 86 M 2 1
12 30 B 2 1
13 12 L 3 0
14 98 M 3 0
15 20 B 3 0
16 8 L 3 1
我想按照预订和点击的numClickBool
(book == 0
和Click == 1
)的比率绘制每个费率,这应该是这样的(有8个比率和3个费率(LMB),每个都有一些点击,和一些书):
objectif plot http://i58.tinypic.com/23lzkeh.jpg
我设法做到的是:
library(reshape2)
library(ggplot2)
ggplot(data = ratePlotData, aes(x=rates, y = numClickBool, fill = bookedOrClick)) +
geom_bar(stat = "identity", position = "dodge")
给出了这个:
答案 0 :(得分:2)
虽然你想要实现的目标不是很清楚,但我认为你需要一个分面的解决方案:
ggplot(data = ratePlotData, aes(x=rates, y = numClickBool, fill = as.factor(bookedOrClick))) +
geom_bar(stat = "identity", position = "dodge") +
facet_wrap(~ rate)
给出: