如何在R中可视化区间估计

Question

我想知道如何在R中创建这样的情节。