我用这些命令创建了下面的图:
ggplot(long.data, aes(owner,value)) + stat_summary(fun.y=mean,geom="bar",
fill=c("deepskyblue","deepskyblue4")) +
stat_summary(fun.data=mean_cl_normal,geom="errorbar",position=
position_dodge(width=.90),width=.1) +
labs(x="",y="") + facet_grid(IV~experiment+type,scales="free_y") +
theme(strip.text.y = element_text(colour = 'red4'))
如果我想仅更改上 x 面(在本例中为“隐式”和“显式”级别)的文本颜色(也可能是背景颜色),我该怎么做?是否可以?我没有在 ggplot2 文档中读过任何相关内容。
编辑:我很抱歉造成混乱。我的目标是更改上部条带之一的文本和背景颜色,而不是侧面的颜色。
您想要更改的属性strip
元素,而不是方面。尝试类似下面的代码。请注意,这是一个基于随机伪造数据的最小示例,因为您没有提供自己的数据供我们使用。您必须根据您的需要调整代码。
require(reshape)
require(ggplot2)
require(scales)
# fake data
mydf <- data.frame(val1 = runif(10, 0, 1), val2 = runif(10, 0, 1))
mydf
# reshape to long format
long.data <- melt(mydf)
long.data$facetvar <- "implicit"
long.data$facetvar[seq(1, 19, 2)] <- "explicit"
long.data
# plot
ggplot(long.data, aes(y = value, x = variable)) +
geom_bar(position = 'dodge', stat = "identity") +
facet_wrap (~ facetvar) +
theme(strip.background = element_rect(fill = alpha('green', 0.3))) +
theme(strip.text.x = element_text(colour = 'blue', size = 10))
This produces a plot like this:
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)