用R自带的数据集Titanic绘制Class和Survived的南丁格尔玫瑰图

在R语言中，可以使用`ggplot2`包来创建南丁格尔玫瑰图，这是一种结合了条形图和环形图特性的可视化工具，常用于展示类别间的比较。对于Titanic数据集，我们可以先加载所需的数据，然后利用`geom_tile()`和`coord_polar()`函数来制作玫瑰图。这里假设你已经安装了`tidyverse`（包含`ggplot2`等包）。

首先，你需要加载必要的库并查看数据集：

# 加载必要的库
library(tidyverse)
# 加载Titanic数据集，如果你尚未安装，需要运行 `install.packages("datasets")`
data(Titanic)

# 查看数据前几行
head(Titanic)

接下来，你可以按照下面的步骤创建南丁格尔玫瑰图：

# 数据预处理
titanic_summary <- Titanic %>%
  group_by(Sex) %>%
  summarise(n = n()) %>%
  mutate(prop_survived = mean(Survived))

# 创建玫瑰图
ggplot(titanic_summary, aes(x = "", y = prop_survived, fill = Sex)) +
  geom_tile(color = "white", size = 40) +
  coord_polar(theta = "y", start = 0) +
  scale_fill_manual(values = c("#69b3a2" (男性), "#e7298a" (女性))) +
  labs(title = "Titanic乘客生存率按性别",
       x = "",
       y = "生存概率",
       fill = "性别") +
  theme_void() +
  guides(fill = guide_legend(reverse = TRUE)) +
  theme(plot.title = element_text(hjust = 0.5))

这将生成一个显示男女乘客在泰坦尼克号上生存概率的南丁格尔玫瑰图。