最新的APA 7手冊(cè)發(fā)布了新的樣本圖谆刨，為科研人員如何創(chuàng)建某些圖表提供指導(dǎo),下圖展示了典型的條形圖應(yīng)該是什么樣子：
下面讓我們依據(jù)例圖來(lái)繪制一副典型的條行圖
library(tidyverse)
library(ggsci)
viz_data_one <- tibble(
age_group = c(rep("Adolescent", 3), rep("Young Adult", 3)),
framing_score = c(0.2, 0.08, 0.09, 0.3, 0.28, 0.15),
upper = framing_score + .02,
lower = framing_score - .02,
reward = rep(c("Small Reward", "Medium Reward", "Large Reward"),2)) %>%
mutate(reward = as_factor(reward) %>% fct_relevel("Small Reward",
"Medium Reward",
"Large Reward"))
viz_data_one %>%
ggplot(aes(x = age_group,
y = framing_score,
fill = reward,
ymin = lower,
ymax = upper)) +
geom_col(width = .5, position = position_dodge(.6),
color = "black") +
geom_errorbar(width = .1, position = position_dodge(.6)) +
scale_fill_jco()+
scale_y_continuous(expand = expansion(0),
limits = c(0, 0.4),
breaks = seq(0, .4, .1))+
labs(
x = "Age Group",
y = "Framing Score",
fill = NULL,
title = "Low Risk") +
theme(
plot.margin = unit(c(1,1,1,1), "cm"),
panel.background = element_blank(),
plot.title = element_text(size = 22, face = "bold",
hjust = 0.5,
margin = margin(b = 15)),
axis.line = element_line(color = "black"),
axis.title = element_text(size = 15, color = "black",
face = "bold"),
axis.text = element_text(size = 15,color = "black"),
axis.text.x = element_text(margin=margin(t = 10)),
axis.text.y = element_text(size = 15),
axis.title.y = element_text(margin = margin(r = 10)),
axis.ticks.x = element_blank(),
legend.position = c(0.20, 0.8),
legend.key.size=unit(0.8,"cm"),
legend.key.width=unit(0.8,"cm"),
legend.spacing.x=unit(0.3,'cm'),
legend.background = element_rect(color = "black"),
legend.text = element_text(size = 15),
legend.margin = margin(t = 5, l = 5, r = 5, b = 5),
legend.key=element_rect(color=NA,fill=NA))
喜歡的小伙伴歡迎關(guān)注我的公眾號(hào)
R語(yǔ)言數(shù)據(jù)分析指南阳距，持續(xù)分享數(shù)據(jù)可視化的經(jīng)典案例及一些生信知識(shí)，希望對(duì)大家有所幫助
