r - 形成颜色强度随值变化的堆叠条形图/网格

Question

我正在尝试使网格看起来像堆积条形图。条形图的各个部分代表 App 类别，x 轴在其价格等级上绘制条形图。我希望栏部分的颜色强度随着类别中应用程序的数量而变化。我尝试使用 ggplot2 geom_bar 但无法弄清楚如何在 Y 轴上绘制类别。我的数据如下所示：

Category    No.Apps Price
Utilities   400     0
Utilities   300     1-10
Utilities   500     11-20
Utilities   200     21-30
Games       1000    0
Games       900     1-10
Games       400     11-20
Games       100     21-30
Productivity 300    0
Productivity 100    1-10
Productivity 50     11-20
Productivity 80     21-30

我希望我的图表看起来像这样：

http://i.stack.imgur.com/XEn2g.png

y 轴为类别，x 轴为价格等级。

Answer 1

library(ggplot2)

#making some fake data and putting it into a data.frame
price <- rnorm(n = 10000,mean = 5,sd = 2)
app <- sample(x = LETTERS[1:10],size = 10000,replace = T)
df <- data.frame(price,app)
head(df)

#now the plot
ggplot(df, aes(x=price,y=app))+
  geom_bin2d()

Answer 2

这似乎接近您的图形，尽管颜色不同。

library(ggplot2)
ggplot(df, aes(x=Price,y=Category, fill=No.Apps)) + 
  geom_tile()+
  scale_fill_gradientn(colours=rev(heat.colors(10)))+
  scale_x_discrete(expand=c(0,0))+
  scale_y_discrete(expand=c(0,0))+
  coord_fixed()

笔记：

1. 用于geom_tile(...)制作积木。
2. 用于rev(heat.colors(10))创建调色板（红色表示高值，淡黄色表示低值）。
3. 使用coord_fixed(...)后块是方形的（将纵横比设置为 1:1）。
4. 使用expand=c(0,0)这些块填充整个绘图区域。