ggsave("wk4_ci_plot.pdf", # ファイル名 plot = last_plot(), # 最後のプロットを指定 width = 4, # 横幅指定 height = 8, # 縦幅指定 device = cairo_pdf)　　　　　

ggplot(df_smpl) + geom_pointrange(aes(y = id, x = mean, xmin = lower, xmax = upper, colour = color)) + geom_vline(xintercept=mu, color = "black") + xlab(expression(bar(mu))) + ylab("ID") + labs(color = "パラメタを含む")