问题描述
||
我正在使用ggplot2在R中开发一个图形,该图形具有两个几何图形(一个geom_line和一个geom_text)。它绘制一个折线图,然后在每个线段的起点和终点放置文本标签。
(myplot <- ggplot(data=datatable,aes(x,y,group = group,colour = group,label=mylabels)) + geom_line(size = 1.5))
myplot + geom_text(color = \"black\")
现在我的问题是如何在ggplot2中执行以下任务,当我只有一个geom但没有同时包含这两个geom时,它们都可以工作(似乎它们彼此重叠)
1-使背景变白。
以下代码适用于geom_line,但一旦我添加geom_text,它就会再次变为灰色。即使我在geom_text之后添加这条线,它也会摆脱图表上的点标签。
myplot + opts(panel.background = theme_rect(fill = \"white\",colour = NA))
2- x标签和x标签格式。同样,以下代码仅适用于一个几何图形,但是当我拥有第二个几何图形时会中断
myplot + scale_x_date(format=\"%m\",\'my x label\')
3-当我们在上面时,如何将图例放在底部并水平传播(p + opts(legend.position = \“ bottom \”))垂直传播,看起来很愚蠢。
解决方法
对于1),在涉及对象的第二次和第三次调用之后,您尚未保存对象ѭ3.。这对我有用:
set.seed(3)
dat <- data.frame(x = runif(10),y = rnorm(10),group = gl(2,5),mylabel = paste(1:10,\"foo\"))
require(ggplot2)
myplot <- ggplot(data=dat,aes(x,y,group = group,colour = group,label = mylabel)) + geom_line(size = 1.5)
myplot + geom_text(color = \"black\") +
opts(panel.background = theme_rect(fill = \"white\",colour = NA))
请注意,我只保存过一次3英镑。第二个涉及ѭ3的调用会即时对其进行修改,但不会保存。
对于其余的内容,您将需要提供一个可复制的示例。