下面的棒棒糖图表是使用制作的ggplot2
。我通常使用facet_wrap
小的倍数,每组一个。我用geom_point
不同的颜色为点着色,以便在第二种分组方式中突出显示差异。因此,我得到了两个传说:一个用“ facet_wrap”(AC组)制成,另一个用“ geom_point”(“水果”,“肉”,“蔬菜”)制成。
如何删除用facet_wrap制作的图例,但保留其他图例?以及如何更改其余标题的标题?
这个问题似乎对facet_wrap产生的图例无济于事。
library(dplyr)
library(ggplot2)
library(tidyr)
library(plyr)
# create sample data
group <- c("A","A", "A", "A", "A", "A", "A", "A", "A","B","B","B","B", "B", "B", "B","B","B","C","C","C","C","C","C","C","C","C")
keycol <- c("var1a", "var1b","var1c", "var2a", "var2b","var3a","var3b","var3c","var3d","var1a", "var1b","var1c", "var2a", "var2b","var3a","var3b","var3c","var3d","var1a", "var1b","var1c", "var2a", "var2b","var3a","var3b","var3c","var3d")
valuecol <-c(0,0.1,0.4,0.6,0.4,0.7,0.2,0.7,0.1,0,1,0.6,0.2,0.5,0,0.3,0.4,0.1,0,0.8,0.5,0.3,0.6,0.2,0.3,0.4,0.1)
mydata <- data.frame(group, keycol, valuecol)
# create the lollipop plot
p <- ggplot(mydata, aes(y = keycol, x = valuecol, fill = group)) +
geom_segment(aes(x = 0, y = keycol, xend = valuecol, yend = keycol), color = "grey50") +
geom_point(aes(color=ifelse(keycol %in% c("var2a","var2b"), "fruit",
ifelse(keycol %in% c("var1a","var1b", "var1c"), "meat", "vegetables"))), size = 3) +
theme(axis.title.x = element_blank(),axis.title.y = element_blank(),legend.position = "bottom") +
facet_wrap(~group)
p
任何帮助深表感谢。谢谢!
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句