年终总结中饼图 条形图绘制代码

饼图

labels <- c("样本量相关", "伴发事件相关", "主要疗效终点相关", "桥接研究", "中期分析", "多重性控制", "无缝设计", "真实世界设计", "揭盲处理", "其它")
sizes <- c(17, 48, 7, 3, 2, 3, 4, 2, 1, 23)
colors <- rainbow(length(labels))

# 调整饼图起始角度为90度，并设置标签的大小为0.8
pie(sizes, labels = paste(labels, sizes, sep="\n"), col = colors, main = "沟通交流组成部分饼图", init.angle = 90, cex = 0.8)

横装条图

labels <- c("估计目标设计", "伴发事件定义/判断标准", "伴发事件处理策略", "非伴发事件缺失值处理")
values <- c(15, 14, 12, 7)

df <- data.frame(labels, values)
df <- df[order(df$values, decreasing = TRUE), ]

ggplot(df, aes(x = values, y = reorder(labels, values))) +
  geom_col(fill = "#003f5c", width = 0.5, position = position_dodge(width = 0.001)) +
  geom_text(aes(label = values, x = values, y = labels), 
            size = 16, color = "black", fontface = "bold", hjust = -0.2, vjust = 0.5) +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(values) * 1.2)) +
  theme_minimal() +
  theme(axis.line = element_blank(),
        axis.text = element_text(size = 40),
        axis.ticks = element_blank(),
        panel.grid = element_blank(),
        plot.title = element_text(hjust = 0.5),
        plot.margin = unit(c(0.1, 0.3, 0.1, 2), "mm")) +
  labs(title = "样本量部分", y = "", x = "具体值")