输出Home和Marital的二维频数分布表，并添加行列和，简单的R语言代码

在R语言中，你可以使用`table()`函数创建二维频数分布表（也叫交叉频率表），然后使用`colSums()`和`rowSums()`计算行和和列和。假设你有一个数据框`df`，其中包含"Home"和"Marital"两个变量，以下是简单的步骤：

# 假设你的数据框df结构如下：
# df <- data.frame(Home = c("A", "B", "A", "B", "A"), Marital = c("Single", "Married", "Married", "Single", "Married"))

# 创建二维频数分布表
freq_table <- table(df$Home, df$Marital)

# 打印原始频数表
print(freq_table)

# 计算行和（每个Home分类下的总人数）
row_sums <- rowSums(freq_table)
names(row_sums) <- names(freq_table)  # 添加Home类别名称

# 计算列和（每个Marital分类下的总人数）
col_sums <- colSums(freq_table)
colnames(col_sums) <- names(freq_table)[2]  # 添加Marital类别名称

# 打印行和和列和
cat("Row Sums (Home): \n", row_sums, "\n")
cat("Column Sums (Marital): \n", col_sums, "\n")

这段代码首先会显示出"Home"和"Marital"变量之间的频数分布情况，然后分别计算出每行（Home类别）和每列（Marital类别）的总数。