文献中类似这样的结果

求R语言相关代码 或 R包

谢谢各位大佬