将比例从计数更改为百分比 - ggplot2版本1.0.1

Question

我已经从之前版本的ggplot答案尝试了多种解决方案，但是，我还没有找到一种方法来将比例从计数更改为百分比。

数据的结构包括：deid =一个id变量; variable一级因素;和value =参与者的回复。

 $ deid     : int  123 155 332 224 654 325 865 654 555 434 ...
 $ variable : Factor w/ 1 level "tx.rating": 1 1 1 1 1 1 1 1 1 1 ...
 $ value    : int  9 8 9 9 5 7 7 7 7 10 ...

这是我的代码：

ggplot(tx.plot, aes(value, fill = variable)) + 
  geom_histogram(alpha = .6, binwidth = .5)

创造了：

我希望从0到10得到百分比回答，而不是计数。我尝试使用labels = percent命令添加scale_y_continuous和scale_y_discrete，但是它没有工作，我每次都会收到错误消息。

Answer 1

类似的东西：

set.seed(1492)
tx.plot  <- data.frame(deid=sample(100:900, 50),
                       variable=factor(1),
                       value=sample(10, 50, replace=TRUE))
library(scales)
ggplot(tx.plot, aes(value, fill = variable)) + 
  geom_histogram(aes(y=..count../sum(..count..)), 
                 alpha = .6, binwidth = .5) +
  scale_x_discrete(limits=c(0,10)) +
  scale_y_continuous(label=percent) +
  labs(y="percent")

Answer 2

ggplot(tx.plot, aes(x = value)) + geom_density(aes(group=variable))