给予长期支持我们的忠实读者们一个特别待遇：凡是购买过小编2022年或2023年VIP会员文档的朋友们，将自动获得2024年及以后更新的绘图文档代码，无需额外付费。...%
str_remove("_d6") %>%
str_replace_all("_", " ")
}
数据清洗
scurvy_long %
# 将指定列中的字符串解析为数字...pivot_longer(gum_rot_d6:fit_for_duty_d6, names_to = "symptom", values_to = "severity") %>%
# 对处理和症状名称进行清洁和格式化...symptom_col = if_else(symptom == "Fit for duty", if_else(severity == 0, "grey35", "grey85"), pal...(fill = "grey99", color = NA),
plot.margin = margin(10, 10, 10, 10))
