将绘图轴的标题更改为R

kpbpu008  于 2023-03-20  发布在  其他
关注(0)|答案(1)|浏览(185)

默认情况下,R plot()函数的轴具有以下标题:

xlab = "Model Quanntiles"
ylab = "Empirical Quantiles"

我需要用巴西葡萄牙语的翻译替换这些文本。
我该怎么做呢?
我的代码只是打印一个fevd(拟合极值分布)对象的QQ图。

plot(fD31,type = "qq", main = "MLE", cex.main = 2)

我曾尝试简单地替换xlab和ylab值,但没有成功。

plot(fD31,type = "qq", main = "MLE", cex.main = 2, xlab = "Quantis do Modelo",
ylab = "Quantis Empíricos")

编辑
我的完整代码:

D31 <- read.csv("file.csv") 
# Variable CYCLES, containing 10.000 different values from 27945900 to 28875760
flmD31 <- fevd(D31$CYCLES, method = "Lmoments")
plot(flmD31,type = "qq", main = "LM", cex.main=2)

数据输出()

27947751L,...., 27947844L), method = "Lmoments", type = "GEV", period.basis = "year", 
    par.models = list(threshold = ~1, location = ~1, scale = ~1, 
        log.scale = FALSE, shape = ~1, term.names = list(threshold = character(0), 
            location = character(0), scale = character(0), shape = character(0))), 
    const.loc = TRUE, const.scale = TRUE, const.shape = TRUE, 
    n = 10000L, na.action = "na.fail", results = c(location = 27947289.4961838, 
    scale = 317.480635124479, shape = 0.740827367059249)), class = "fevd")
8ehkhllq

8ehkhllq1#

如果你想正确地解决这个问题,你可能需要定义你自己的plot.fevd版本(也许还有quantquant.plot.evd和其他一些内部函数),这些函数看起来像是手动定义轴标题-这意味着你不能以正常的方式覆盖它们。
如果你想要一个hacky的解决方案,你可以把当前轴标题的文本颜色改成白色,然后在它们上面添加你自己的轴标签。

flmD31 <- fevd(mtcars$cyl, method = "Lmoments")
plot(flmD31,type = "qq",
     main = "LM",
     cex.main=2,
     col.lab = 'white')
title(xlab = "Quantis do Modelo",
      ylab = "Quantis Empíricos")

给出:

请注意,这不是一个很好的解决方案,因为原始的轴标题仍然存在,如果您输出到PDF格式,仍然会被屏幕阅读器等拾取,所以请谨慎使用。

相关问题