我不确定waffle
包中是否可行,但是,我非常感谢在两种情况下提供的帮助:
到目前为止,这是我的尝试:
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"
)
答案 0 :(得分:2)
这应该做到:
# 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], "%"))