1

我正在创建图表，其中一条白线打破了条形前面的条形（抱歉无法发布图片）。我已经获得了一次执行此操作的代码，但我还不太擅长循环。

library(ggplot2)

count <- c(61.8,18.8)
name <- c("A","B")
yes <- data.frame(count,name)

j <-   ggplot(yes, aes(x=name, y=count)) + 
geom_bar(stat="identity", position="dodge")

为了只添加一行，我创建了这个函数......

b <- function (yx){
j + annotate("segment", x=-Inf, xend=Inf, y=yx, yend=yx,size=1, colour="white") 
}

b(8)

这就是我被卡住的地方，我想制作一个可以穿过矢量的循环，例如......

yx <- c(8,10,20)

并在 8、10 和 20 处创建一条线。一个棘手的问题是除了终端 1（最后一个）之外的所有数据都需要在末尾有一个“+”。有没有人试过这个？

谢谢

4

1 回答 1

4

你的函数已经被矢量化了，所以你不需要改变任何东西，

add_lines <- function(yx){
  annotate("segment", x=-Inf, xend=Inf, y=yx, yend=yx,size=1, colour="white") 
}

j + add_lines(c(8,10,20))

然而，从概念上讲，如果你想逐行添加，你可以简单地使用一个列表：

add_oneline <- function(yx){
  annotate("segment", x=-Inf, xend=Inf, y=yx, yend=yx,size=1, colour="white") 
}

lines <- lapply(c(8,10,20), add_oneline)
j + lines

但这比第一个选项效率低且更复杂。

于 2013-08-06T20:37:15.720 回答