举个栗子
library(tidyverse)
death_tidy <- death %>%
as.data.frame() %>%
rownames_to_column(var = "population_group") %>%
pivot_longer(cols = -population_group, names_to = "age", values_to = "count") %>%
mutate(
age = fct_inorder(factor(age)),
population_group = factor(
population_group,
levels = c("Rural Male", "Rural Female", "Urban Male", "Urban Female")
)
)
会被替换为
reshape_VADeaths <- transform(
expand.grid(
sex = colnames(VADeaths),
age = rownames(VADeaths)
),
rates = as.vector(t(VADeaths))
)
本人水平有限,一方面看不懂净土代码,另一方面也很是怀疑其稳定性,为了后续维护计,我放弃了书籍中所有净土代码,一律会被替换掉,类似上面的例子。