minjikim89
Minji Kim
Recently Published
Plot
ggsave("wk4_ci_plot.pdf", # ファイル名
plot = last_plot(), # 最後のプロットを指定
width = 4, # 横幅指定
height = 8, # 縦幅指定
device = cairo_pdf)
Plot
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 = "パラメタを含む")