雷达图外围标签截止
Radar plot peripheral labels cutoff
如您在此示例中所见,我正在尝试绘制多个雷达图。但是,外围轴标签被截断了。我试过在 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)
一种可能的解决方案是使用 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
调整为可在您的设备上提供所需边距的任何值。
如您在此示例中所见,我正在尝试绘制多个雷达图。但是,外围轴标签被截断了。我试过在 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)
一种可能的解决方案是使用 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
调整为可在您的设备上提供所需边距的任何值。