Как сделать так, чтобы точки данных линейного графика располагались точно посередине стекового графика на том же графике с 2 осью Y? - PullRequest
Новая
       50

Как сделать так, чтобы точки данных линейного графика располагались точно посередине стекового графика на том же графике с 2 осью Y?

0 голосов
/ 26 декабря 2018

Я некоторое время боролся со следующей проблемой.Решений пока не найдено.Я строю ряд графиков с двумя осями Y.В основном, 1 строка данных изображается в виде гистограммы, а несколько строк данных - это строки.Для этого я использую пакеты «tidyverse» и «gtable».Технически, я получаю то, что мне нужно, за исключением того, что мои диаграммы не правильно размещены при объединении.То есть точки данных для линейных графиков располагаются либо слева, либо справа от соответствующего бара вместо его центра.В результате каждый такой сюжет выглядит обманчиво.Ниже приведен пример того, что я получаю.

enter image description here

И вот код для построения диаграммы: 

Chart_24_col <- subset.data.frame (Chart_24, select = c("date","HTP_lossmaking")) %>% 
  melt(id.vars = "date") %>% 
  ggplot(aes (x = date, y = value)) +
  scale_y_continuous(breaks = seq(0,15,3), expand = c(0,0), limits = c(0,15))+
  scale_x_continuous(breaks = seq(2009,2016,1))+
  labs(x=NULL, y=NULL)+

  geom_bar(stat="identity", size = 1)+
  geom_bar( 
        aes(
          group = variable,
          fill=variable),
          stat = 'identity') +

  scale_fill_manual(
    guide = "legend", 
    name = NULL, 
    breaks= "HTP_lossmaking", 
    labels= "Количество убыточных резидентов (левая ось)",
    values = "#4477AA")+

  theme(axis.text.x = element_text(angle = 90, vjust = .5, size = 5, colour = "black"),
        axis.text.y = element_text(size = 5, colour = "black"),
        panel.grid.major.y = element_line(colour = "#EDEDED", linetype = 2, size = .2),
        panel.grid.minor.y = element_blank(),
        panel.grid.major.x = element_line(colour = "#EDEDED", size = .2),
        panel.grid.minor = element_blank(),
        panel.background = element_rect(fill = "transparent", colour = NA),
        axis.line.y = element_line(colour=NA), 
        axis.line.x=element_line(colour="#ABABAB"),
        axis.ticks.length = unit(0,"cm"),
        legend.position = "bottom",
        legend.direction = "vertical",
        legend.title = element_blank(),
        legend.spacing.x = unit(-.2,"cm"),
        legend.key = element_blank(),
        legend.key.height = unit(.5, "cm"),
        legend.text = element_text(size = 5),
        legend.box.margin = unit (c(-3,1,1,1), "mm"),
        plot.margin = unit (c(1,0,3,0), "mm"))

Chart_24_col


Chart_24_line <- subset.data.frame (Chart_24, 
  select = c(
  "date", 
  "HTP_selfmanufacturing",
  "HTP_revenue", 
  "HTP_NI")) %>% 
  melt(
    id.vars = "date") %>%
  ggplot(aes (
    x = date, 
    y= value, 
    colour = variable))+
  geom_path(size = 1)+ 
  scale_colour_manual(
    guide = "legend", 
    breaks = c(
      "HTP_selfmanufacturing",
      "HTP_revenue",
      "HTP_NI"),
    label = c(
      "Отгруженная продукция собственного производства, млрд.рублей 2006 года (правая ось)",
      "Выручка, млрд.рублей 2006 года (правая ось)",
      "Чистая прибыль, млрд.рублей 2006 года (правая ось)"),
    values = c(
      "#DDCC77",
      "#CC6677",
      "#117733"))+
  labs(x=NULL, y=NULL)+
  scale_x_continuous(breaks = seq(2009,2016,1)) +
  scale_y_continuous(breaks = seq(0,2200,100), expand = c(0,0), limits = c(0,2200)) +       
  theme(axis.text.x = element_text(angle = 90, vjust = .5, size = 5, colour = "black"),
        axis.text.y = element_text(size = 5, colour = "black"),
        panel.background = element_rect(fill = NA),
        panel.grid = element_blank(),
        axis.line.y = element_line(colour=NA), 
        axis.ticks.length = unit(0,"cm"),
        legend.position = "bottom",
        legend.direction = "vertical",
        legend.title = element_blank(),
        legend.spacing.x = unit(-.2,"cm"),
        legend.key = element_blank(),
        legend.key.height = unit(.5, "cm"),
        legend.text = element_text(size = 5),
        legend.box.margin = unit (c(-3,1,1,1), "mm"),
        plot.margin = unit (c(1,0,3,0), "mm"))

Chart_24_line


g1 <- ggplot_gtable(ggplot_build(Chart_24_col))
g2 <- ggplot_gtable(ggplot_build(Chart_24_line))

gpp <- c(subset(g1$layout, name == "panel", se = t:r))
g <- gtable_add_grob(g1, g2$grobs[[which(g2$layout$name == "panel")]], pp$t,
                     pp$l, pp$b, pp$l)
# axis tweaks
ia <- which(g2$layout$name == "axis-l")
ga <- g2$grobs[[ia]]
ax <- ga$children[[2]]
ax$widths <- rev(ax$widths)
ax$grobs <- rev(ax$grobs)
#ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")
g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)
g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)


leg1 <- g1$grobs[[which(g1$layout$name == "guide-box")]]
leg2 <- g2$grobs[[which(g2$layout$name == "guide-box")]]

leg = gtable:::cbind_gtable(leg1, leg2, "first")            
leg$widths[5:6] = unit(0, "cm")

g$grobs[[which(g$layout$name == "guide-box")]] <- 
                                  gtable:::cbind_gtable(leg1, leg2, "first")
grid.draw(g)

CairoPDF("Pic24.pdf", width=3, height=3)
plot(g)

Мне нужно ставить точки в середине каждогоБар, прямо через дату.

Спасибо за вашу помощь.

...