是否可以在R到ggplot2中重新创建类似于此的图形?

enter image description here