shiny/shinydashboardに水平スタックバーを作成するには

Question

ウィキメディア財団のShiny dashboard tutorialでは、水平スタックバー（赤、緑、青の「フルテキスト」の1つ）のスクリーンショットが表示されます。 OpenSearch..Prefix）：私はどこでも検索されているが、私はこのようなバーを作成する方法を見つけることができません

誰もが正しい方向に私を指す

Answer 1

これではありません。？素晴らしい答えですが、うまくいきます。調整する場合はggplot2を学ぶ必要があります。試しましたエッジの周りの境界を取り除くためには、完全には行っていません。それでも基本的な考え方はここにあります。

library(ggplot2) 

mydf <- data.frame(labels = c('This', 'that', 'the other'), 
        percents = c(0.31, 0.15, 0.54)) 

mydf$pos <- pmax(0, cumsum(mydf$percents) - (0.5 * mydf$percents)) 

p <- ggplot(mydf, aes(x = NA, y = percents)) + 
    geom_bar(stat = 'identity', aes(fill = percents)) + 
    geom_text(color = 'white', aes(label = labels, y = pos)) + 
    coord_flip() + 
    guides(fill = FALSE) + 
    scale_x_discrete(expand = c(0, 0)) + 
    scale_y_discrete(expand = c(0, 0)) + 
    theme_void() 

png('this_plot.png', width = 800, height = 30) 
p 
dev.off()