使用注释功能将摘要统计信息添加到图形：ggplot2

编程问答 2022-08-15

问题描述

我有兴趣为虹膜数据绘制类似的图，并在该图上生成摘要统计信息： https://imgur.com/a/GasBB8r

我在此关注此帖子：How to add summary statistics in histogram plot using ggplot2? 

df <- iris
df.m <- melt(df,id="Species")

#Calculating the summary statistics
summ <- df.m %>% 
  group_by(variable) %>% 
  summarize(min = min(value),max = max(value),mean = mean(value),q1= quantile(value,probs = 0.25),median = median(value),q3= quantile(value,probs = 0.75),sd = sd(value))

然后我修改了代码以制作密度图，而不是直方图：

p1 <- ggplot(df.m) + geom_density(aes(x = value),fill = "grey",color = "black") + 
    facet_wrap(~variable,scales="free",ncol = 2)+ theme_bw()

我在这里似乎有问题：

p1+geom_density(data=summ,label =split(summ,summ$variable),npcx = 0.00,npcy = 1,hjust = 0,vjust = 1,size=2)

有人知道问题出在哪里吗？另外，是否可以仅使用ggplot2完成此操作？我正在使用没有管理员权限来下载许多库的计算机（我拥有reshape2，dplyr，ggplot2）。是否应该使用ggplot2中的annotate（）函数完成此操作？有没有一种方法可以将每个图形的x轴更改为“对数”？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggplot2graphplotrrsummary