用计数线绘制两组

Question

我想覆盖一行（下面代码中的“n”），显示每个“分析物”的编号，但我收到一条错误，提示我需要为每个“类型”提供单独的值。但它们是匹配对，所以我只想要每个分析物的对总数。理想情况下，绘图右侧有不同的 Y 轴。

有什么想法吗？

y1 <- rnorm(10)+5
y2 <- y1+rnorm(10)/2
x <- data.frame("x1",y1,letters[1:10])
names(x) <- c("Type","Value","Analyte")
y <- data.frame("x2",y2, letters[1:10])
names(y) <- c("Type","Value","Analyte")
main <- rbind(x,y)

#Number of pairs per group
n <- round((rnorm(10)+10)*5)

ggplot(main,aes(x=Analyte,y=Value,fill=Type)) +
  geom_bar(stat = 'identity',position=position_dodge())

Answer 1

  geom_bar(stat = 'identity',position=position_dodge())+ geom_line(data = 
  data.frame(Analyte = letters[1:10], Value = n/10), aes(fill = NULL, group = 1))+ 
  scale_y_continuous(sec.axis = sec_axis(~.*10))