R Plotly 堆积条形图和折线图 - 如何在图表下添加表格

如何解决R Plotly 堆积条形图和折线图 - 如何在图表下添加表格

我正在尝试将这个在 Excel 中完成的图表转换为 R

这是我目前所拥有的：

我使用的示例数据：

title,order_date,no_good,output,ng_yield,total_yield,yield_target,category
20-Jan,1/1/2020,8,2293,0.35,99.65,99,Total
21-Jan,1/1/2021,21,3216,0.65,99.35,Total
20-Feb,2/1/2020,27,3116,0.87,99.13,Total
20-Mar,3/1/2020,15,2487,0.6,99.4,Total
20-Apr,4/1/2020,58,2008,2.89,97.11,Total
20-May,5/1/2020,35,1530,2.29,97.71,Total
20-Jun,6/1/2020,19,2987,0.64,99.36,Total
20-Jul,7/1/2020,4174,0.5,99.5,Total
20-Aug,8/1/2020,26,3611,0.72,99.28,Total
20-Sep,9/1/2020,36,3097,1.16,98.84,Total
20-Oct,10/1/2020,4409,0.43,99.57,Total
20-Nov,11/1/2020,2811,1.25,98.75,Total
20-Dec,12/1/2020,41,4199,0.98,99.02,Total
20-Jan,6,1518,0.4,99.6,A
21-Jan,7,1258,0.56,99.44,A
20-Feb,10,1883,0.53,99.47,A
20-Mar,11,1471,0.75,99.25,A
20-Apr,5,357,1.4,98.6,A
20-May,937,2.77,97.23,A
20-Jun,1,586,0.17,99.83,A
20-Jul,1009,0.79,99.21,A
20-Aug,1175,0.94,99.06,A
20-Sep,12,1065,1.13,98.87,A
20-Oct,1493,0.47,99.53,A
20-Nov,24,1597,1.5,98.5,A
20-Dec,1692,A
20-Jan,2,775,0.26,99.74,B
21-Jan,1958,0.61,99.39,B
20-Feb,1233,0.97,99.03,B
20-Mar,4,1016,0.39,99.61,B
20-Apr,38,1651,2.3,97.7,B
20-May,593,1.35,98.65,B
20-Jun,18,2401,B
20-Jul,3165,0.32,99.68,B
20-Aug,14,2436,0.57,99.43,B
20-Sep,2032,0.69,99.31,B
20-Oct,2916,0.41,99.59,B
20-Nov,1214,0.49,99.51,B
20-Dec,28,2507,1.12,98.88,B

R 代码

library(gdata)
library(shiny)
library(ggplot2)
library(tidyverse)
library(plotly)
library(RJDBC)
library(reshape2)
library(dplyr)


df <- read.csv("example_data.csv")
ramp2 <- colorRamp(c("deepskyblue4","white"))

ramp.list2 <- rgb( ramp2(seq(0,length = 15)),max = 255)
plot_ly(df,x = ~title,y = ~output,type = 'bar',color = ~category,yaxis = "y2") %>%
  add_lines(y=~total_yield,name = ~category,yaxis ="y") %>%
  add_lines(y=~yield_target,yaxis ="y",line = list(color = 'rgb(0,0)')) %>%
  layout(list(title = 'Cost'),barmode = 'stack',yaxis2 = list(overlaying = "y",side = "right",range=c(0,20000)),yaxis = list(side = 'left',showgrid = FALSE,zeroline = FALSE,range = c(97,100))) %>%
  layout(colorway = ramp.list2) %>%
  config(displayModeBar = FALSE)

当我尝试使用子图时，它没有显示右侧的 Y 侧。 有谁知道如何在图表下方创建表格？

感谢您对此的帮助。