小编Vec*_* JX的帖子

我有下面提到的数据帧:

DF_1>

    Month  # of A  M  Sum of A  M Med A  Mean A   # of B  M  Sum of B M  Median B  Mean B

    Mar-17 10      -  100000    -        -        6       -  15000    -  -         -      
    Feb-17 22      -  150000    -        -        8       -  22000    -  -         -
    Jan-17 25      -  200000    -        -        3       -  23000    -  -         -

将其他字段标记为-因为我不使用Plot Graph的值,下面是html格式的相同Dataframe的屏幕截图.(不包括上面的标题和数据帧的2行其余部分相同)

与这给底部有一个附加行Total,如何绘制两个一个图形Status of A和Status of B使用# of …

我有一个谷歌电子表格，每天都会添加一些行，并使用谷歌电子表格，客户反馈团队跟进。

谷歌电子表格数据。

https://docs.google.com/spreadsheets/d/1V-XZdCUZAQVkfCat9vXVxITjjNMxNMPDin6B5j9uMWY/edit?usp=sharing

上面提到的谷歌电子表格总是在谷歌表中有下面提到的数据（以蓝色突出显示）：

Ref ID 公司名称 Contact No.1 Contact No.2 项目名称 Agent ID

其余提到的细节将根据用户响应从 HTML UI 中捕获，最后单击“提交和下一步”或“下一步”，输入将存储在谷歌表中。

用户必须首先在 HTML UI 上输入“代理 ID”，因此Ref ID将向特定的“代理 ID”用户提供一项详细信息。

如所附屏幕截图中所述，根据 googlespread 表，信息的左侧将是静态的，右侧信息将由用户根据电话对话填写。

下面提到的细节将是下拉或单选选项基于用户输入：

Product : Lite, Lite-I, Elite
Ref Code: LIT-1, LIT-2, LIT-3
Status  : Accept, Reject, Pending
Comment : Satisfied, Call Back, Pending

下面提到的细节将得到：

Days Passed: It will be derived from the current system year - year mentioned in the `Date`

下面提到的细节将是用户输入的自由文本。

Client Name
Notes
Final_Status

注意：所述药剂将被分配并显示只有那些Ref ID其中 …

我在下面提到了 R 中的数据框。

ID       Amount     Date
IK-1     100        2020-01-01
IK-2     110        2020-01-02
IK-3     120        2020-01-03
IK-4     109        2020-01-03
IK-5     104        2020-01-03

我正在使用ID以下代码从 MySQL 获取一些详细信息。

library(RMySQL)

conn<- connection

query<-paste0("SELECT c.ID,e.Parameters, d.status
FROM Table1 c
left outer join Table2 d ON d.seq_id=c.ID
LEFT outer JOIN Table3 e ON e.role_id=d.role
           where c.ID IN (", paste(shQuote(dataframe$ID, type = "sh"),
                                      collapse = ', '),") 
and e.Parameters in
           ('Section1',
           'Section2','Section3',
           'Section4');")

res1 <- dbGetQuery(conn,query)

res2<-res1[res1$Parameters=="Section1",4:5]
colnames(res2)[colnames(res2)=="status"] <- "Section1_Status"

上面的代码工作正常，如果我传递了 ~1000 ID，但是在一次传递 10000 或更多 ID …

我有下面提到的数据帧:

ID        Date            Status         Category
TR-1      2018-01-10      Passed         A
TR-2      2018-01-09      Passed         B
TR-3      2018-01-09      Failed         C
TR-3      2018-01-09      Failed         A
TR-4      2018-01-08      Failed         B
TR-5      2018-01-08      Passed         C
TR-5      2018-01-08      Failed         A
TR-6      2018-01-07      Passed         A

通过使用上面给出的数据帧,我想要一个输出格式,如下所示:

的Date应为降序顺序和类别序列应该是这样的C,A和B.

Date         count      distinct_count      Passed     Failed
2018-01-10   1          1                   1          0
    A        1          1                   1          0
    B        0          0                   0          0
    C        0          0                   0          0
2018-01-09   3          2                   1          2
    A        1          1                   1          0
    B        1          1                   1 …