R 除真假矩阵和输出比

我想将df1除以df2，作为输出，我想得到df1和df2之间每列中“TRUE”的数目的比率。例如，在df1的第1列中有2个真值，在第1列中有一个df2有2个真值，因此那里的输出是1（2/2）

在除法过程中，我不知道如何定义真假

df1：

df2：

输出：

编辑：数据创建代码。

要将数据读入R会话，请运行以下代码

df1 <- scan(what = logical(), text = "
TRUE TRUE FALSE
FALSE TRUE TRUE
TRUE TRUE TRUE
FALSE FALSE TRUE
")
df1 <- matrix(df1, byrow = TRUE, nrow = 4)


df2 <- scan(what = logical(), text = "
TRUE FALSE FALSE
FALSE FALSE TRUE
TRUE TRUE TRUE
FALSE FALSE TRUE
")
df2 <- matrix(df2, byrow = TRUE, nrow = 4)

---

df1如果目的是将
df1
列中的真实条目数除以
df2
列中的条目数，则

colSums(df1) / colSums(df2)
# [1] 1 3 1

这是因为当对loigcal TRUE进行求和时，TRUE变为1，FALSE变为0。
如果目的是将
df1
列中的TRUE条目数除以
df2
列中的TRUE条目数，则

colSums(df1) / colSums(df2)
# [1] 1 3 1

这是因为当对loigcal求和时，TRUE变为1，FALSE变为0。
就像
colSums（df1）/colSums（df2）
一样简单。另外，请参见我的编辑：您发布数据的方式不可复制和粘贴。
colSums（df1）/colSums（df2）
生成所需的输出。简单到
colSums（df1）/colSums（df2）
。另外，请参见我的编辑：发布数据的方式不可复制和粘贴。
colSums（df1）/colSums（df2）
生成所需的输出。
df1 <- scan(what = logical(), text = "
TRUE TRUE FALSE
FALSE TRUE TRUE
TRUE TRUE TRUE
FALSE FALSE TRUE
")
df1 <- matrix(df1, byrow = TRUE, nrow = 4)


df2 <- scan(what = logical(), text = "
TRUE FALSE FALSE
FALSE FALSE TRUE
TRUE TRUE TRUE
FALSE FALSE TRUE
")
df2 <- matrix(df2, byrow = TRUE, nrow = 4)

colSums(df1) / colSums(df2)
# [1] 1 3 1