ggplot2 x – y轴相交,同时保持轴标签

我昨天发布了我原来的问题,这里完全解决了

Original post

我对我的代码做了一些补充

library(lubridate)
library(ggplot2)
library(grid)

### Set up dummy data.
dayVec     <- seq(ymd('2016-01-01'), ymd('2016-01-10'), by = '1 day')
dayCount   <- length(dayVec)
dayValVec1 <- c(0,-0.22,0.15,0.3,0.4,0.10,0.17,0.22,0.50,0.89)
dayValVec2 <- c(0,0.2,-0.17,0.6,0.16,0.41,0.55,0.80,0.90,1.00)
dayValVec3 <- dayValVec2
dayDF      <- data.frame(Date = rep(dayVec, 3),
                     DataType = factor(c(rep('A', dayCount), rep('B',   dayCount), rep('C', dayCount))),
                     Value = c(dayValVec1, dayValVec2, dayValVec3))


ggplot(dayDF, aes(Date, Value, colour = DataType)) +
theme_bw() +
ggtitle("Cumulative Returns \n") +
scale_color_manual("",values = c("#033563", "#E1E2D2", "#4C633C"),
                    labels = c("Portfolio ", "Index ", "In-Sample ")) +
geom_rect(aes(xmin = ymd('2016-01-01'),
            xmax = ymd('2016-01-06'),
            ymin = -Inf,
            ymax = Inf
            ), fill = "#E1E2D2", alpha = 0.03, colour = "#E1E2D2") +
geom_line(size = 2) +
scale_x_datetime(labels = date_format('%b-%d'), 
               breaks = date_breaks('1 day'),
               expand = c(0,0)) +
scale_y_continuous( expand = c(0,0), labels = percent) +
theme(axis.text.x  = element_text(angle = 90), 
    axis.title.x = element_blank(), 
    axis.title.y = element_blank(),
    panel.grid.minor = element_blank(),
    panel.grid.major.x = element_blank(),
    axis.line  = element_line(size = 1),
    axis.ticks = element_line(size = 1),
    axis.text  = element_text(size = 20, colour = "#033563"),
    axis.title.x = element_text(hjust = 2),
    plot.title = element_text(size = 40, face = "bold", colour = "#033563"),
    legend.position = 'bottom',
    legend.text = element_text(colour = "#033563", size = 20),
    legend.key  = element_blank()
    )

产生这个输出

Graph

我仍然无法工作的唯一事情是x轴的位置.我希望x轴在y = 0但是仍然将x轴标签保持在图表下方,就像它的excel版本一样.我知道数据集不一样,但我手边没有原始数据,所以我制作了一些虚拟数据.希望这值得一个新问题,谢谢.

> grid.ls(grid.force())
GRID.gTableParent.12660
background.1-5-7-1
spacer.4-3-4-3
panel.3-4-3-4
grill.gTree.12619
  panel.background.rect.12613
  panel.grid.minor.y.zeroGrob.12614
  panel.grid.minor.x.zeroGrob.12615
  panel.grid.major.y.polyline.12617
  panel.grid.major.x.zeroGrob.12618
geom_rect.rect.12607
GRID.polyline.12608
panel.border.rect.12610
axis-l.3-3-3-3
axis.line.y.polyline.12631
axis
axis-b.4-4-4-4
axis.line.x.polyline.12624
axis
xlab.5-4-5-4
ylab.3-2-3-2
guide-box.6-4-6-4
title.2-4-2-4
> grid.gget("axis.1-1-1-1", grep=T)
NULL
最佳答案
ggplot2并不容易.以下是以交互方式处理此问题的单向方法.基本上,您只需抓住绘图的相关部分(轴线和刻度线)并重新定位它们.

如果p是你的情节

p
grid.force()
# grab the relevant parts - have a look at grid.ls()
tck <- grid.gget("axis.1-1-1-1", grep=T)[[2]] # tick marks
ax <- grid.gget("axis.line.x", grep=T)        # x-axis line

# add them to the plot, this time suppressing the x-axis at its default position
p + lapply(list(ax, tck), annotation_custom, ymax=0) + 
          theme(axis.line.x=element_blank(), 
                axis.ticks.x=element_blank())

哪个产生

enter image description here

快速说明:ggplot2的最新版本的设计决定是不显示轴.此外,对axis.line的更改不会自动向下传递到x和y轴.因此,我调整了你的主题,分别定义了axis.line.x和axis.line.y.

那个siad,或许更容易(也更强大?)使用评论中建议的geom_hline,以及tick的geom_segment.

转载注明原文:ggplot2 x – y轴相交,同时保持轴标签 - 代码日志