Радарный участок периферийных меток среза

Question

Как вы можете видеть в этом примере, я пытаюсь построить несколько карт радара. Однако метки периферийных осей обрезаются. Я пытался указать 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 добавлять аннотации, но, к сожалению, они не позволяют передавать параметры text с помощью ...,

Поэтому вам нужно установить глобальную опцию:

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 к любым значениям дают желаемое поле на вашем устройстве.