用ggplot2绘制蝴蝶图的代码

以下是使用ggplot2绘制蝴蝶图的示例代码：

library(ggplot2)

# 创建数据框
df <- data.frame(
  x = c(0, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1, 1),
  y = c(0, 0.8, 1, 0.8, 0.5, 0.2, 0, 0.2, 0.5, 0.8, 1, 0.8, 0, 0)
)

# 绘制蝴蝶图
ggplot(df, aes(x = x, y = y)) +
  geom_polygon(fill = "blue") +
  coord_fixed() +
  theme_void()

这段代码首先加载了ggplot2库，然后创建了一个包含蝴蝶图坐标点的数据框df。接下来使用ggplot函数创建一个ggplot对象，并通过geom_polygon函数绘制多边形（蝴蝶的形状），使用fill参数设置填充颜色为蓝色。coord_fixed函数用于设置坐标轴的比例为1:1，theme_void函数则用于去除默认的背景和网格线。最后，通过+符号将多个图层添加到ggplot对象中，完成蝴蝶图的绘制