从其他字符中减去特定星战字符高度的自动化方法

Question

假设我想在星战数据集中创建一个新的列，我尽可能自动地从卢克·天行者、阿纳金·天行者、R5D4的高度减去尤达的高度，从达斯·维达、莱娅·奥加纳、比格斯·达克莱和加加诺的高度减去威尔霍夫·塔金·丘巴卡、韩·索洛的身高R2-D2的高度。我该怎么做？我是个新手，我主要用tidyverse。提前谢谢！

Answer 1

这是outer的工作。我没有starwars数据集(它在标准R中吗？)但假设它看起来像

name          height
Darth Vader   199
Yoda          72
...

然后

M <- outer(starwars$height,starwars$height,"-")
rownames(M) <- colnames(M) <- starwars$name

将给出一个具有高度差异的矩阵(对角线为0)。