在R中将性别分布与年龄分布联系起来

# 创建性别和年龄数据
gender <- c("男", "女", "男", "女", "男", "男", "女", "女", "男", "女")
age <- c(25, 30, 35, 40, 25, 35, 30, 40, 35, 25)

# 创建数据框
data <- data.frame(gender, age)

library(ggplot2)

# 绘制性别分布的饼图
gender_pie <- ggplot(data, aes(x = "", fill = gender)) +
  geom_bar(width = 1, stat = "identity") +
  coord_polar(theta = "y") +
  labs(title = "性别分布") +
  theme_void()

# 绘制性别分布的柱状图
gender_bar <- ggplot(data, aes(x = gender, fill = gender)) +
  geom_bar() +
  labs(title = "性别分布") +
  theme_minimal()

# 计算各个性别的百分比
gender_percent <- prop.table(table(data$gender)) * 100

# 绘制年龄分布的直方图
age_hist <- ggplot(data, aes(x = age)) +
  geom_histogram(binwidth = 5, fill = "lightblue", color = "black") +
  labs(title = "年龄分布") +
  theme_minimal()

# 绘制年龄分布的箱线图
age_box <- ggplot(data, aes(y = age)) +
  geom_boxplot(fill = "lightblue", color = "black") +
  labs(title = "年龄分布") +
  theme_minimal()

# 计算平均年龄和年龄的标准差
mean_age <- mean(data$age)
sd_age <- sd(data$age)

# 创建交叉表格
cross_tab <- table(data$gender, cut(data$age, breaks = c(0, 20, 30, 40, Inf)))

# 打印交叉表格
print(cross_tab)