将堆积的条形图与表格合并

Question

我有大量堆积的条形图，并试图更有效地显示它们。我想获取此条形图数据并通过在条形图中显示的百分比为表格单元格上色来将其显示在表中。

以汽车生产数据为例

library(ggplot2)
library(plyr)
library(reshape2)

this_base <- "fig08-12_car-production-stacked-bar-chart"

my_data <- data.frame(
  year = c("1980", "1979", "1978", "1977"),
  USA = c(22.0, 27.2, 29.1, 30.0),
  WestGermany = c(12.2, 12.7, 12.4, 12.4),
  France = c(12.0, 12.0, 11.5, 11.6), 
  Japan = c(24.3, 19.9, 19.0, 17.7),
  Other = c(29.5, 28.0, 28.0, 28.2))

my_data_long <- melt(my_data, id.vars = "year",
                 variable.name = "country", value.name = "production")

my_data_long <- arrange(my_data_long, country)

percent_sign <- function (x) { paste0(x, "%") }

p <- ggplot(my_data_long, aes(x = year, y = production, fill = country)) +
  geom_bar(stat="identity", width = 0.7) + 
  geom_bar(stat = "identity", width = 0.7, colour = "black", show_guide= FALSE) +
  scale_fill_manual(values = c("USA" = "black",  "WestGermany" = "grey50",
                               "France" = "grey30", "Japan" = "white",
                               "Other" = "grey70")) +
  scale_y_continuous(breaks = seq(0, 100, 20), limits = c(0, 100), 
                     expand = c(0, 0), labels = percent_sign) + 
  ggtitle("Fig 8.12 Car Production: Stacked Bar Chart") + 
  coord_flip() +
  theme_bw() +
  theme(panel.grid.major.x = element_line(colour = "grey60"),
    panel.grid.minor = element_blank(),
    plot.title = element_text(size = rel(1.2), face = "bold"),
    axis.title = element_blank(),
    axis.ticks.y = element_blank(),
    legend.position = "top",
    legend.title = element_blank()) 

p

ggsave(paste0(this_base, ".png"), 
   p, width = 6, height = 5)

汽车生产：

并为可再生能源生产添加另一个“列”

我无法找到一种格式化多种颜色的表格单元格的方法，但我的目标是这样的：