R- 对已处理数据绘制按比例分布的等高柱状图

R代码如下：

#输入数据
s1=c(1:3)
s2=c(2:4)
s3=c(3:5)
#建立数据集
d=data.frame(s1,s2,s3,row.names=c('miffy','kitty','tommy'))
#转换数据集结构
library(reshape2)
df=melt(as.matrix(d))
#使用ggplot2绘图
library(ggplot2)
ggplot(df,aes(Var2,value,fill=Var1))+geom_bar(stat="identity",position="fill")

特别注意数据集d和df的区别，在命令行下键入名称后回车查看：

>d
      s1 s2 s3
miffy  1  2  3
kitty  2  3  4
tommy  3  4  5

>df
   Var1 Var2 value
1 miffy   s1     1
2 kitty   s1     2
3 tommy   s1     3
4 miffy   s2     2
5 kitty   s2     3
6 tommy   s2     4
7 miffy   s3     3
8 kitty   s3     4
9 tommy   s3     5

特别感谢YGC：《使用ggplot2画图》，我只是代码的搬运工。