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画图》,我只是代码的搬运工。
**粗体** _斜体_ [链接](http://example.com) `代码` - 列表 > 引用
。你还可以使用@
来通知其他用户。