有没有一种方法可以在筛图上向上移动标签，以使图形看起来更干净？
有没有一种方法可以在筛图上向上移动标签，以使图形看起来更干净？
提问于 2019-10-09 10:45:12
我正在做一个研究项目，我正试图向我的老板展示一些干净的图表，这些图表可以放入项目中。我做了这个筛子图，但我想不出: 1.如何旋转x轴标签并将它们从图中拉出；2.如何向上移动与图形顶部重叠的y轴标签。
我试图旋转标签，但它仍然与图形重叠。
library(vcd)
library(vcdExtra)
All <- matrix(c(924,139,67,42, 115,66,61,22, 40,37,51,45, 33,19,30,57), 4, 4)
dimnames(All) <- list(Drinking2002 =c("Rare","Light","Moderate","Heavy"), Drinking2014 =c("Rare","Light","Moderate","Heavy"))
All <- as.table(All)
sieve(All, shade = TRUE, labeling = labeling_values, gp_text = gpar(fontface = 2), rot_labels = c(top = 45))谢谢你的帮助!
回答 2
Stack Overflow用户
发布于 2019-10-09 11:05:26
1) rot_labels = c(left = #, top = #)旋转标签2) `offset_labels = c(#，#)调整与轴的距离。
sieve(All, shade = TRUE, labeling = labeling_values,
gp_text = gpar(fontface = 2),
rot_labels = c(top = 45, left = 0),
offset_labels = c(0.6, 0, 0, 1)
)
或
sieve(All, shade = TRUE, labeling = labeling_values,
gp_text = gpar(fontface = 2),
rot_labels = c(top = 0, left = 0),
offset_labels = c(0.6, 0, 0, 1)
)
Stack Overflow用户
发布于 2019-10-09 11:01:26
基于答案的扩展为马赛克图提供了here。
sieve(All, shade = TRUE,
labeling = labeling_border(rot_labels = c(30,0,0,30),just_labels = c("left","right","right","right")),
gp_text = gpar(fontface = 2),
rot_labels = c(top = 45))您可以使用c(30,0,0,30)更改旋转度，使用c("left","right","right","right")进行标签对齐。希望这能有所帮助。
编辑：新增截图
输出1：
使用just_labels = c("left","right","right","right")
输出2：
使用just_labels = c("left","right","right","left")
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58296353
复制相关文章
相似问题
腾讯云开发者
