绘制具有指示意义的“双”条形图

Question

我想为三类数据绘制一个“双”条形图，并显示基于Wilcox检验的两个“双”条形图的显著性水平。

运行下面的代码，我没有看到反映在y轴上的计数，相反，所有柱都处于相同的高度。

library(dplyr) 
library(ggplot2)
library(ggpubr)
library(reshape2)
theme_set(theme_pubclean())

data = data.frame("cut" = c("type 1","type 1","type 2","type 2","type 3","type 3"), "counts" = c(0.6844,0.5867,0.6297,0.6383,0.7134,0.7075), "color" = c("c","d","c","d","c","d"))
data

df <- data %>%
  filter(color %in% c("c", "d")) %>%
  group_by(cut, color) %>%
  summarise(counts = n()) 

ggdotchart(df, x = "cut", y ="counts",
           color = "color", palette = "jco", size = 3, 
           add = "segment", 
           add.params = list(color = "lightgray", size = 1.5),
           position = position_dodge(0.3),
           ggtheme = theme_pubclean()
)

我试图制作的情节看起来像这样：https://drive.google.com/open?id=1EndiF-sCtXFyUOAPIToRY5hqjp97b1Px

感谢您的帮助：1.编辑我的代码，使其显示实际计数值2.为绘图添加重要性

Answer 1

这是你要找的吗？

data %>%
  spread(color, counts) %>%
  mutate(
    lab_pos = pmax(c, d) + .07,
    lab = if_else(cut == 'type 3', '*', 'ns')
  ) %>%
  gather(color, counts, c:d) %>%
  ggplot(aes(
    x = cut,
    y = counts,
    color = color,
    group = color
  )) +
  geom_col(
    position = position_dodge(.4),
    color = 'white',
    width = .05
  ) +
  geom_point(
    position = position_dodge(.4),
    size = 3
  ) +
  geom_text(aes(
      y = lab_pos,
      label = lab
    ),
    check_overlap = TRUE,
    color = rgb(.2, .2, .2)
  ) +
  ylim(0, 1)