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
1条答案
按热度按时间laik7k3q1#
听起来你想把你的数据转换成一种宽格式。
图书馆管理员可以把总数加起来。
字符串