R中如何实现

x  group
a        1
a        1
a        2
b        1
b        2
c        1
c        1
c        1
c        1
c        1
d        1
d        1
f        2
f        2
.        tab        x if group==1
                x       Freq.        Percent        Cum.
                                
                a           2        20.00        20.00
                b           1        10.00        30.00
                c           5        50.00        80.00
                d           2        20.00        100.00
                                
                Total          10        100.00
如何根据group=1 中x取值的频率从大到小得到"c a d b f"，用于循环。谢谢！
注意f不能漏掉啊

xg<- read.table(text="
x  group
a        1
a        1
a        2
b        1
b        2
c        1
c        1
c        1
c        1
c        1
d        1
d        1
f        2
f        2",header=T)
xg1 <- xg$x[xg$group==1];xg1

b <- as.data.frame(table(xg1))
b <- b[order(-b$Freq,b$xg1),]

又回到那个交叉表了。。。想想！

xg<- read.table(text="
x  group
a        1
a        1
a        2
b        1
b        2
c        1
c        1
c        1
c        1
c        1
d        1
d        1
f        2
f        2",header=T)

library("plyr")
xg1 <- ddply(xg, "x", .fun=function(y) nrow(y[y$group==1,]))
xg2 <- xg1[order(-xg1$V1),]
xg2$x