R 用ggplot制作华夫格图表

我试图用R从Tableau中复制一个简单的华夫格图，如下所示：

我不确定在

waffle

软件包中是否可行，但我非常感谢您在两种情况下提供的帮助：

• 有什么方法可以将华夫饼图按行填充颜色（如 表（示例）不按列显示
• 是否可以将标签百分比（24%）添加到华夫饼图中

以下是我迄今为止的尝试：

 library(waffle)  

 # dummy sample 
 basedata <- c('User'=24, 'Not User'=  76)

 # Waffle chart
 waffle(
   basedata,
   rows = 10 ,
   colors =  c("#636363", "#fee8c8"),
   xlab = "1 square == 1%"
 ) +
   ggtitle("Some tilte") +
   theme(
     plot.title = element_text(hjust = 0.5, size = 27, face = "bold"),
     legend.text = element_text(size = 15),
     legend.position = "bottom"
   )

库（华夫格）
#模拟样品
basedata这应该可以做到：

# dummy sample 
basedata <- c('User'=24, 'Not User'=  76)

# Waffle chart
waffle(
  basedata,
  rows = 10 ,
  colors =  c("#636363", "#fee8c8"),
  xlab = "1 square == 1%",
  flip = TRUE
) +
  ggtitle("Some tilte") +
  theme(
    plot.title = element_text(hjust = 0.5, size = 27, face = "bold"),
    legend.text = element_text(size = 15),
    legend.position = "bottom"
  ) +
  annotate("text", x = 4, y = 5, label = paste(basedata[1], "%"))

#虚拟样本
basedata这应该可以做到：

# dummy sample 
basedata <- c('User'=24, 'Not User'=  76)

# Waffle chart
waffle(
  basedata,
  rows = 10 ,
  colors =  c("#636363", "#fee8c8"),
  xlab = "1 square == 1%",
  flip = TRUE
) +
  ggtitle("Some tilte") +
  theme(
    plot.title = element_text(hjust = 0.5, size = 27, face = "bold"),
    legend.text = element_text(size = 15),
    legend.position = "bottom"
  ) +
  annotate("text", x = 4, y = 5, label = paste(basedata[1], "%"))

#虚拟样本
基础数据