交互表 - 与宠物和房屋的案例我有一份房屋清单和一份动物物种清单。houses = c(1,1,2,3,4,4,4,4,5,6,5)animals = c('cat','dog','cat','dog','rat', 'cat', 'spider', 'snake', 'cat', 'cat', 'rat')我正在尝试创建一个函数，该函数返回一个上三角表，指示每只宠物，它被观察到的生活在同一个房子中的次数比其他动物物种。是否有意义？对于上面的例子，表应该是这样的（希望没有错！）： dog rat spider snakecat 1 2 1 1 dog 0 0 0rat 1 1spider 1注意：此函数应适用于任何两个相同长度的向量，无论它们是否包含数字或字符串
查看完整描述
料青山看我应如是
TA贡献1772条经验 获得超8个赞
使用table和crossprod：
out <- crossprod(table(houses, animals))
out[lower.tri(out, diag=TRUE)] <- NA
out
# animals
# animals cat dog rat snake spider
# cat NA 1 2 1 1
# dog NA NA 0 0 0
# rat NA NA NA 1 1
# snake NA NA NA NA 1
# spider NA NA NA NA NA
由于输出是a，matrix您可以NA直接在print以下位置禁止打印值：
print(out,na.print="")
# animals
# animals cat dog rat snake spider
# cat 1 2 1 1
# dog 0 0 0
# rat 1 1
# snake 1
# spider
查看完整回答
反对 回复 2019-08-23
梵蒂冈之花
TA贡献1900条经验 获得超5个赞
只需添加一个稀疏的替代方案，以防万一在制表期间可以减少任何内存占用：Matrix::crossprod(xtabs(~ houses + animals, sparse = TRUE))
查看完整回答
反对 回复 2019-08-23
相关知识
交互表
宠物与宠物家具之间的交互关系
原创 宠物与宠物家具之间的交互关系
宠物语音识别 TicPet 上线，人宠语音交互时代来了！
动物交互网站有哪些
为什么猫咪和狗狗会喜欢与人交互？
基于交互视角下宠物住宅设计与研究
基于用户体验的智能宠物产品界面交互设计
宠物狗无线感知交互系统分析
交互视角下的宠物家具模块化设计研究
网址: 交互表 https://m.mcbbbk.com/newsview181495.html
| 上一篇: 案例｜市值超30亿，PETKIT |
下一篇: 多态应用 |
