问题描述
我正在尝试使用 likert 包绘制热表。可以复现以下代码：
library("likert")
data("pisaitems")
title <- "How often do you read these materials because you want to?"
items29 <- pisaitems[,substr(names(pisaitems),1,5) == 'ST25Q']
names(items29) = c("Magazines","Comic books","Fiction","Non-fiction books","Newspapers")
l29 <- likert(items29)
l29s <- likert(summary = l29$results)
plot(l29s,type = 'heat') + ggtitle(title) + theme(legend.position = 'none')
输出
问题
如何绘制第一列“Mean (SD)”白色和粗体文本，而不是灰色，并可能调整绘图边框和项目之间的填充/边距相等（左+右似乎大于顶部和底部填充）？
提前致谢！
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）