Fatal编程技术网
  • r/
  • R 雷达标绘外围标志截止

R 雷达标绘外围标志截止

r graphics

R 雷达标绘外围标志截止,r,graphics,par,radar-chart,R,Graphics,Par,Radar Chart,正如您在本例中所看到的，我试图绘制多个雷达图。但是，外围轴标签正在被截断。我已经试过用标准杆来指定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)) p

正如您在本例中所看到的，我试图绘制多个雷达图。但是，外围轴标签正在被截断。我已经试过用标准杆来指定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)

require（fmsb）

df一种可能的解决方案是使用
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
调整为设备上所需的余量值。
您说
mar
不起作用，但不说为什么不起作用。另外，请指出
radarchart
的来源。