Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/sorting/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 将排序表转换为数据帧时添加索引号_R_Sorting_Dataframe - Fatal编程技术网

R 将排序表转换为数据帧时添加索引号

R 将排序表转换为数据帧时添加索引号,r,sorting,dataframe,R,Sorting,Dataframe,我有一个字符串向量,我正试图将它转换成一个带有频率列的数据帧。到目前为止还不错,但是当我对数据帧进行dim时,我只得到一列而不是两列。我猜R是用这些词作为索引值 不管怎样,这就是它的开始。我的名单: a<-c("welcoming", "whatsyourexcuse", "whiteway", "zero", "yay", "whatsyourexcuse", "yay") 而不是: a F

我有一个字符串向量,我正试图将它转换成一个带有频率列的数据帧。到目前为止还不错,但是当我对数据帧进行
dim
时,我只得到一列而不是两列。我猜R是用这些词作为索引值

不管怎样,这就是它的开始。我的名单:

a<-c("welcoming", "whatsyourexcuse", "whiteway", "zero", "yay", "whatsyourexcuse", "yay")
而不是:

    a                                             Freq
[1] whatsyourexcuse                                  2
[2] yay                                              2
[3] welcoming                                        1
[4] whiteway                                         1
[5] zero                                             1
有什么建议吗?谢谢。

试试:

library(plyr)
a1 <- count(a)
a1[order(-a1$freq),]
#                 x freq
# 2 whatsyourexcuse    2
# 4             yay    2
# 1       welcoming    1
# 3        whiteway    1
# 5            zero    1
dim(a1)
#[1] 5 2

你当然可以分两步来做<代码>df
    a                                             Freq
[1] whatsyourexcuse                                  2
[2] yay                                              2
[3] welcoming                                        1
[4] whiteway                                         1
[5] zero                                             1
library(plyr)
a1 <- count(a)
a1[order(-a1$freq),]
#                 x freq
# 2 whatsyourexcuse    2
# 4             yay    2
# 1       welcoming    1
# 3        whiteway    1
# 5            zero    1
dim(a1)
#[1] 5 2
 a2 <- stack(sort(table(a),decreasing=TRUE))[,2:1]
 dim(a2)
 #[1] 5 2
 tbl <- sort(table(a), decreasing=TRUE)
 data.frame(col1= names(tbl), Values= as.vector(tbl))