R 拼图不合适

马赛克图的标签不适合屏幕（它们被部分切割），因此我想将图向右移动/移动，以便标签完全适合-尝试使用“par”功能，但无效-有什么想法吗

structure(list(Road_Type = structure(c(4L, 4L, 4L, 4L, 4L, 4L
), .Label = c("Roundabout", "One way Street", "Dual Carriageway", 
"Single carriageway", "Slip Road"), class = "factor"), Accident_Severity_combined = structure(c(2L, 
2L, 2L, 2L, 1L, 2L), .Label = c("Serious", "Slight"), class = "factor")), .Names = c("Road_Type", 
"Accident_Severity_combined"), row.names = c(NA, 6L), class = "data.frame")
> 


mos <- mosaic(~Road_Type + Accident_Severity_combined, data = uk1,              shade = TRUE, legend = TRUE,
labeling_args = list(set_varnames =     c(Accident_Severity_combined="Gender", Road_Type="survival"),
highlighting_fill = c("darlblue","red")
labeling=labeling_border(
rot_labels = c(90, 0, 90, 0), 
just_labels=c("left","left","right","right"),
tl_varnames = FALSE,
gp_labels = gpar(fontsize = 9)))

结构（列表（道路类型=结构）c（4L，4L，4L，4L，4L，4L
)，.Label=c（“环岛”、“单行道”、“双车道”，
“单行道”、“支路”，class=“系数”），事故严重程度=结构（c（2L，
2L、2L、2L、1L、2L），.Label=c（“严重”、“轻微”），class=“系数”），.NAME=c（“道路类型”，
“事故严重程度综合”，row.names=c（NA，6L），class=“data.frame”）
> 
mos您可以添加您的数据（或虚拟数据，或将示例更改为使用内置数据集）吗？如果其他人能够复制您的plotsure（上面编辑的），他们将更容易帮助您