r - 雷达图外围标签截止

Question

正如您在此示例中所看到的，我正在尝试绘制多个雷达图。但是，外围轴标签正在被截断。我已经尝试在 par 中指定 mar 和 oma，但没有任何运气。

其他人可以解决这个问题吗？

require(fmsb)

df <- data.frame(
  a = c(0.5, 0, 0.3),
  stopcuttingmeoff = c(1.2, 0, 0.5),
  c = c(0.25, 0, 0.1),
  d = c(0.25, 0, 0.1),
  dontcutmeoff = c(4, 0, 2))

par(mfrow=n2mfrow(4))
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)

Answer 1

一种可能的解决方案是使用xpd = TRUE以防止文本在边缘处被切断。fsmb::radarchart内部用于text添加注释，但不幸的是它不允许您将参数传递给textvia ...。

因此，您需要全局设置该选项：

par(xpd = TRUE, mfrow = c(2, 2), mar = c(2, 1, 2, 1))
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)
radarchart(df, axistype = 2, centerzero = TRUE, palcex = 0.9)

调整mar到任何值，让您在设备上获得所需的边距。