求助R绘制RCS图代码

求助R绘制RCS图代码

没有直接的函数，需要自己编写代码

亲，做出来了吗？可以求代码吗？谢谢~~

这个直方图＋RCS曲线，你去微信公众号上面直接这样搜，有个包可以做，我画出来感觉不是很好看

1. # 生成数据
   
2. set.seed(123)
   
3. data <- data.frame(
   
4.   x = rep(c("A", "B", "C"), each = 5),
   
5.   y = rnorm(15, 10, 2)
   
6. )
   
7. 
   
8. # 绘制散点图
   
9. library(ggplot2)
   
10. 
    
11. ggplot(data, aes(x = x, y = y)) +
    
12.   geom_point() +
    
13.   
    
14.   # 添加误差棒
    
15.   stat_summary(fun.data = mean_se, geom = "errorbar", width = 0.1) +
    
16.   
    
17.   # 修改坐标轴和标签
    
18.   ylab("Variable Y") +
    
19.   scale_x_discrete(labels = c("Group A", "Group B", "Group C"))

复制代码