按壳重类别划分的年龄类别
在第 2 章中，您已经创建了 agecat，将鲍鱼分为小于 10.5 年（编码为 "< 10.5"）与大于等于 10.5 年（编码为 "10.5 and older"）两类。现在也把鲍鱼的壳重按小于等于 0.235 克与大于 0.235 克分成两类。
已为您加载包含 agecat 的 abaloneKeep 数据集以及 dplyr 包。
本练习是课程的一部分
面向 SAS 用户的 R
练习说明
- 使用
ifelse()函数在abaloneKeep中添加shellcat，按壳重是否高于或低于 0.235g 分成 2 类，并标记为"<= 0.235g"和"> 0.235g"。 - 为
agecat与shellcat创建名为tableageshell的chisq.test()列联表。对tableageshell运行chisq.test()。 - 绘制
agecat与shellcat的马赛克图。使用颜色"light blue"和"grey"。标题设为"Mosaicplot of age by shell categories"。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Add shellcat to abaloneKeep
___ <- ___ %>%
mutate(shellcat = ifelse(___, ___, ___))
# Run chisq.test of agecat by shellcat
tableageshell <- ___ %>%
with(___)
chisq.test(___)
# Make mosaicplot of agecat by shellcat
mosaicplot(___ ~ ___, data = ___,
color = c(___, ___),
main = ___)