如何使用刘海(!!)在R中有fancycut吗？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(x = 1:10, y = 1:10)

# 创建一个简单的散点图
plot <- ggplot(data, aes(x, y)) +
  geom_point()

# 添加刘海效果
plot <- plot +
  geom_curve(
    x = 2, y = 8, # 起始点坐标
    xend = 9, yend = 8, # 结束点坐标
    curvature = -0.3, # 曲率（负值表示向内凹）
    arrow = arrow(length = unit(0.2, "cm")) # 添加箭头
  )

# 显示图形
plot