尝试制作雷达图并在R中为两条不同的线条着色时出现问题

install.packages("fmsb")

library(fmsb)

# 创建数据
data <- data.frame(
  Category = c("A", "B", "C", "D", "E"),
  Value1 = c(0.6, 0.8, 0.7, 0.9, 0.5),
  Value2 = c(0.4, 0.6, 0.5, 0.7, 0.3)
)

# 创建雷达图
radarchart(data[, -1], axistype = 1, pcol = "#0000FF", pfcol = "#0000FF", plwd = 2, cglcol = "#CCCCCC", cglty = 1, axislabcol = "#000000", caxislabels = seq(0, 1, 0.2), cglwd = 0.8, vlcex = 0.8)

# 添加图例
legend(x = 0.9, y = 0.9, legend = c("Value1", "Value2"), bty = "n", pch = 20, col = c("#0000FF", "#FF0000"), text.col = "#000000", cex = 0.8)