小编Kar*_*k g的帖子

假设我有以下代码.在最后一步,我尝试安排它,代码不起作用,数据框继续按升序排列cyl.

library(dplyr)
# create a grouped data frame
df <- group_by(mtcars,cyl)
# rank car from best mpg to worst for every cyl
df <- mutate(df,rank = row_number(mpg)) 
# top 3 best mpg for each cyl
df <- filter(df,rank <= 3) 
# arrange by the number of cyl
df <- arrange(df,desc(cyl), rank) 

有关为什么会发生这种情况的任何想法？

我正在试图想象一个队列分析,并希望RenderDataTable在闪亮中使用这种可视化,我可以基于具有值1/0的单独列突出显示所有单元格,其中1为阴影,0不被遮蔽.

我试了几件事情,其中包括试图使用geom_tile的ggplot2,但它是没有用的.我也试过看rpivotTable,但我无法弄清楚如何遮挡某些细胞.

示例数据:

df <- "
cohort  wk  value   flag
1   1   24  0
1   2   12  0
1   3   10  0
1   4   5   0
1   5   2   0
2   1   75  0
2   2   43  1
2   3   11  0
2   4   14  0
3   1   97  0
3   2   35  0
3   3   12  1
4   1   9   0
4   2   4   0
5   1   5   0"

df <- …