Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/76.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/amazon-web-services/14.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_Dataframe - Fatal编程技术网

R 如何将摘要输出转换为数据帧?

R 如何将摘要输出转换为数据帧?,r,dataframe,R,Dataframe,我总结了一列由ID组成的数据帧(称为此数据),因此我得到了给定列中每个ID的总数。我想将其转换为另一个数据帧(称为TOTALNUM),因此我有两列。第一列是ID本身,第二列是每个ID的总数。这可能吗 样本数据: ids <- c(1,2,3,4,5,1,2,3,1,5,1,4,2,2,2) info <- c("A","B","C","A","B","C","A","B","C","A","B","C","A","B","C") DATA <- data.frame(ids,

我总结了一列由ID组成的数据帧(称为此数据),因此我得到了给定列中每个ID的总数。我想将其转换为另一个数据帧(称为TOTALNUM),因此我有两列。第一列是ID本身,第二列是每个ID的总数。这可能吗

样本数据:

ids <- c(1,2,3,4,5,1,2,3,1,5,1,4,2,2,2)
info <- c("A","B","C","A","B","C","A","B","C","A","B","C","A","B","C")
DATA <- data.frame(ids, info)
DATA$ids <- as.factor(DATA$ids)
这就是我希望数据帧的外观:

ids    nums
1      4
2      5
3      2
4      2
5      2

谢谢

通过您的方法,您可以利用以下事实:
summary
返回计数向量,每个值的名称为
ids

> my.summary <- summary(DATA$ids)
> data.frame(ids=names(my.summary), nums=my.summary)
  ids nums
1   1    4
2   2    5
3   3    2
4   4    2
5   5    2

谢谢-我没想到这么简单!第二种方法是我使用的方法。
> my.summary <- summary(DATA$ids)
> data.frame(ids=names(my.summary), nums=my.summary)
  ids nums
1   1    4
2   2    5
3   3    2
4   4    2
5   5    2
> as.data.frame(table(ids), responseName="nums")
  ids nums
1   1    4
2   2    5
3   3    2
4   4    2
5   5    2