Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/66.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/0/jpa/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_Reshape - Fatal编程技术网
Fatal编程技术网
  • r/
  • R将列值聚合为行

R将列值聚合为行

r

R将列值聚合为行,r,reshape,R,Reshape,我试图在总结数据帧方面获得一些帮助 我的示例df如下所示： ID Zoo Last_date ABC-DEF DENVER Oct_2017 ABC-DEF DENVER Oct_2017 ABC-DEF DENVER Nov_2017 ABC-DEF DENVER Nov_2017 ABC-DEF DENVER No

我试图在总结数据帧方面获得一些帮助

我的示例df如下所示：

ID           Zoo            Last_date
ABC-DEF     DENVER          Oct_2017
ABC-DEF     DENVER          Oct_2017
ABC-DEF     DENVER          Nov_2017  
ABC-DEF     DENVER          Nov_2017  
ABC-DEF     DENVER          Nov_2017  
HG-IJK      MEMPHIS         Jan_2018
JK-LMO      MEMPHIS         Feb_2018
结果应该是

ID          ZOO          Oct_2017  Nov_2017 Jan_2019  Feb_2018
ABC-DEF    DENVER          2         3         0           0
HG-IJK      MEMPHIS        0         0         1           0
JK-LMO      MEMPHIS        0         0         0           1
我尝试使用
melt
和
cast
功能查看
restrape2
，但未能达到预期效果。 我把数据融合成长格式

tempMelt <- melt(temp, id.vars = 1:2, na.rm = FALSE)

tempMelt
这会给出一个关于未指定值var或聚合函数的警告。为了避免警告，您可以更详细一点


dcast(df, ID + Zoo ~ Last_date, value.var = 'Last_date', length)


使用的数据


df <- data.table::fread("
ID           Zoo            Last_date
ABC-DEF     DENVER          Oct_2017
ABC-DEF     DENVER          Oct_2017
ABC-DEF     DENVER          Nov_2017  
ABC-DEF     DENVER          Nov_2017  
ABC-DEF     DENVER          Nov_2017  
HG-IJK      MEMPHIS         Jan_2018
JK-LMO      MEMPHIS         Feb_2018
")



df
这会给出一个关于未指定值var或聚合函数的警告。为了避免警告，您可以更详细一点


dcast(df, ID + Zoo ~ Last_date, value.var = 'Last_date', length)


使用的数据


df <- data.table::fread("
ID           Zoo            Last_date
ABC-DEF     DENVER          Oct_2017
ABC-DEF     DENVER          Oct_2017
ABC-DEF     DENVER          Nov_2017  
ABC-DEF     DENVER          Nov_2017  
ABC-DEF     DENVER          Nov_2017  
HG-IJK      MEMPHIS         Jan_2018
JK-LMO      MEMPHIS         Feb_2018
")



df检查组成员和dplyr包摘要检查组成员和dplyr包摘要