探讨雷达图与星象图的区别，并编制绘制的r语言函数。

雷达图（也称 spider 或 polar chart）是一种将数据点在多个类别或维度上展示的图形，通常用于比较不同类别间的相对比例。每个维度对应图表的一个边，数据点的位置则表示各个维度的值。雷达图常用于绩效评估、技能对比等场景。

相比之下，星象图（Astronomy charts），在天文学中，通常是描述恒星、行星或其他天文现象在天空中的位置和运动，例如行星运行轨迹图，它使用坐标系来显示天体相对于太阳或其他参照物的位置。

关于R语言绘制雷达图，你可以使用`ggplot2`包中的`geom_spoke()`函数。下面是一个简单的示例函数，假设我们有三组数据：

library(ggplot2)

# 定义一个雷达图数据框
draw_radar_chart <- function(data) {
  # 检查输入是否为数据框
  if (!is.data.frame(data)) {
    stop("Input must be a data frame.")
  }

  # 确保数据包含所有必需的列（例如，变量名称和数值）
  required_columns <- c("variable", "value1", "value2", "value3") # 根据实际需要替换变量名
  if (setdiff(required_columns, names(data)) != character(0)) {
    stop(paste0("Missing columns:", setdiff(required_columns, names(data))))
  }

  # 构建雷达图数据
  radar_data <- expand.grid(var = levels(data$variable), index = 1:nrow(data))
  radar_data$value <- unlist(Map(function(x) data[x]$value, rownames(data)))

  # 绘制雷达图
  ggplot(radar_data, aes(x = var, y = index, fill = variable)) +
    geom_spoke(aes(theta = value, end_cap = ifelse(index == nrow(data), "butt", "round"))) +
    scale_fill_discrete(name = "") +
    theme_void() +
    coord_polar(start_angle = 0)
}

# 使用函数
my_data <- data.frame(
  variable = c("维度1", "维度2", "维度3"),
  value1 = c(40, 60, 80),
  value2 = c(50, 70, 90),
  value3 = c(30, 50, 70)
)

draw_radar_chart(my_data)