我有一组10000人的住院费用数据，想用R语言绘制QQ图判断其分布，给出代码并给图片润色

在R语言中，你可以使用`qqnorm()`函数来创建Q-Q（Quantile-Quantile）图，这是一种用于比较两个分布是否一致的统计图形。首先，你需要安装并加载必要的包，如`ggplot2`用于更美观的图表展示，以及`readr`来读取CSV文件。如果你的数据存储在一个名为`hospital_costs.csv`的CSV文件中，以下是基本步骤：

# 安装需要的包（如果尚未安装）
install.packages(c("ggplot2", "readr"))
library(ggplot2)
library(readr)

# 读取数据
data <- read_csv("hospital_costs.csv")

# 检查是否有缺失值
summary(data$cost) # 确认费用列无缺失

# 创建QQ图
qq_plot <- ggplot(data, aes(sample = cost)) +
  geom_qq() +   # 绘制QQ线
  stat_qq_line(lwd = 2, color = "red") +   # 添加参考线
  theme_minimal() +   # 使用简约主题
  labs(x = "理论分位数", y = "样本分位数", title = "住院费用Q-Q图") +   # 设置标题和轴标签
  coord_equal()   # 保持比例

# 显示图表
print(qq_plot)

这个代码将生成一个Q-Q图，其中横坐标是理论分位数，纵坐标是样本分位数。如果数据符合正态分布，点应该大致沿着一条直线。