R qplot堆栈条形图

我尝试创建条形图已有一段时间了，但我需要帮助：

name    <- c('t1','t2')
reading <- c('yyyggrggryyy','grgrgrrryyyy')
df <- data.frame(name, reading)

谢谢

库（ggplot2）
你到底是怎么做转换的？什么没用？谢谢！试过了，效果很好。。。但是我还没有找到一种方法使t1成为一个单条，上面有3个单位的黄色，2个绿色，1个红色，2个绿色，1个红色，1个红色和3个黄色。你认为qplot有能力做到这一点吗？我举了一个使用faceting的例子，但是你可以放弃facet_grid命令，仍然可以得到一个堆叠的条形图：
qplot（x=name，data=df，geom=“bar”，fill=reading）
工作得很好，经过一些小的修改，我可以创建一个漂亮的图形！我还在测试geom_bar，它似乎总是对读数进行分组、叠加并创建图形。geom_bar可以重复这样的颜色吗？
Color  Height
------ ------
yellow 3
green  2
red    1
green  2
red    1
yellow 3

> df <- data.frame(name=rep(name, each=12), 
                   reading=unlist(sapply(reading, strsplit, split="")))
> df
               name reading
yyyggrggryyy1    t1       y
yyyggrggryyy2    t1       y
yyyggrggryyy3    t1       y
yyyggrggryyy4    t1       g
snipped
grgrgrrryyyy4    t2       r
grgrgrrryyyy5    t2       g
grgrgrrryyyy6    t2       r
grgrgrrryyyy7    t2       r
grgrgrrryyyy8    t2       r
grgrgrrryyyy9    t2       y
grgrgrrryyyy10   t2       y
grgrgrrryyyy11   t2       y
grgrgrrryyyy12   t2       y

 qplot(reading,  data=df, geom="bar")+facet_grid(~name)

qplot(x=name,  data=df)+facet_grid(~name)+geom_bar(aes(fill = reading))

library(ggplot2)
m<-strsplit(as.character(df$reading),"") # split the strings 
data1<-as.data.frame(table(m[[1]])) # create dataframe for first element of reading
data2<-as.data.frame(table(m[[2]])) # create dataframe for second element of reading
t<-rep(c("t1","t2"),c(dim(data1)[1],dim(data2)[1])) 
t<-as.data.frame(t) # create dataframe of t which gives t1 and t2
mydata<-cbind(rbind(data1,data2),t)  #final data for plot
mydata$reading<-mydata$Var1
qplot(reading, data=mydata, geom="bar",weight=Freq)+facet_grid(~t)