同时，我使用了另一个非常相似的示例数据集（ sample.txt ）。 这是有关如何使用该代码进行构建的R代码。

 library（dplyr）
 图书馆（密谋）


 selectedDF <-BusinessSupplierModel％>％筛选器（BusinessUnit％in％Calculation_Input_1 $ ID）


 uniqueLobs <-unique（BusinessSupplierModel $ BusinessUnit）
 UniqueSuppliersforSelectedLob <-unique（selectedDF $ Supplier）


 df <-data.frame（" BusinessUnit" = vector（length = length（uniqueLobs）），
         " Overlap" = vector（mode ='numeric'，length = length（uniqueLobs）），
  " NoOverlap" =矢量（模式="数字"，长度=长度（唯一大括号）））


 我= 1
 为（唯一性lob中的lob）{
   df [i，1] <-lob
  
   otherLobDF <-BusinessSupplierModel％>％过滤器（BusinessUnit％in％lob）
   uniqueSuppliersInOtherLob <-unique（otherLobDF $ Supplier）
  
   j = 0
   for（uniqueSuppliersforSelectedLob中的供应商）{
     if（供应商％in％uniqueSuppliersInOtherLob）{
       j <-j + 1
     }
   }
   df [i，2] <-j
   df [i，3] <-length（uniqueSuppliersInOtherLob）-j
  
   我<-i + 1
 }


 p <-plot_ly（df，
              x =〜df $ BusinessUnit，
              y =〜df $ Overlap，
              类型='酒吧'，
              名称="重叠"，
              文字=〜df $重叠，
              textposition ='auto'）％>％
   add_trace（y =〜df $ NoOverlap，
             名称="无重叠"，
             文字=〜df $ NoOverlap，
             textposition ='auto'）％>％
   布局（yaxis = list（title ='Count'），barmode ='stack'）


 p
 

您好，Rohit，

如果您可以提供示例数据，我可以尝试构建一些有用的数据。

注意

Ashutosh

您正在寻找的是基于条件和此处成员数的动态分箱。 应可用于R可视化。

-Ashutosh

嗨Ashutosh，

谢谢。

嗨Ashutosh，

我正在附加一个样本数据集，试图在每个部门之间找到通用的供应商（供应商代码）（我可以在其中选择将作为参考的部门）。 sample-dataset.txt