听起来你想把你的数据转换成一种宽格式。
图书馆管理员可以把总数加起来。

library(tidyverse)
df <- read_table("Sex Status n
                 M s 1
                 M t 2
                 F s 3
                 F t 4")
df

df %>% pivot_wider(names_from=Status, values_from=n)

#  Sex       s     t
#  M         1     2
#  F         3     4

library(janitor)
df %>% 
  pivot_wider(names_from=Status, values_from=n) %>% 
  adorn_totals(c("row", "col"))

 #    Sex s t Total
 #     M 1 2     3
 #     F 3 4     7
 # Total 4 6    10

字符串