R中带前导加号的格式

嗨，我想在R中设置一个带前导加号的数字，可以吗

在这个特殊的例子中，我需要它，因为我想把lm结果转换成一个公式

e、 g

---

如果你已经解决了这个问题

myformat <- function(x,...) paste(ifelse(x>=0,"+",""),format(x,...),sep="")

myformat=0，“+”，”），格式（x，…，sep=“”）

---

但是有内置的说明符吗？

我建议使用

sprintf

，例如

sprintf("%+.2f", c(0.5, -3.8))
#[1] "+0.50" "-3.80"

阅读

帮助（“sprintf”）

了解有关格式化选项的更多信息

myformat <- function(x,...) paste(ifelse(x>=0,"+",""),format(x,...),sep="")

sprintf("%+.2f", c(0.5, -3.8))
#[1] "+0.50" "-3.80"