从表达式函数中删除不需要的符号 - R答案

【问题标题】：Remove unwanted symbols from expression function - R从表达式函数中删除不需要的符号 - R
【发布时间】：2018-10-06 15:02:50
【问题描述】：

我正在使用以下函数（找到 here）来生成线性模型方程。

df <- data.frame(x = c(1:100))

df$y <- 2 + 3 * df$x + rnorm(100, sd = 40)

lm_eqn <- function(df){
  m <- lm(y ~ x, df);
  eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 
                   list(a = format(coef(m)[1], digits = 2), 
                        b = format(coef(m)[2], digits = 2), 
                        r2 = format(summary(m)$r.squared, digits = 3)))
  as.character(as.expression(eq));                 
}

lm_eqn(df)

[1] "italic(y) == \"14\" + \"3\" %.% italic(x) * \",\" ~ ~italic(r)^2 ~ \"=\" ~ \"0.806\""

但是，此函数是为在ggplot2 中使用而构建的，这意味着它包含ggplot2 识别和作用的特定expression 符号。我正在将此功能用于其他用途。如何更改代码以使我最终得到"y = 14 + 3x, r2=0.806"？谢谢。

【问题讨论】：

为什么投反对票？

标签： r function character lm

【解决方案1】：

我们可以使用glue

as.character(glue::glue("y = {round(a)} + {round(b)} x, R2 = {round(r2, 3)}"))
#[1] "y = 9 + 3 x, R2 = 0.793"

注意：数据基于@MauritsEvers 帖子

【讨论】：

也很棒。谢谢

【解决方案2】：

如果这是关于动态生成/格式化输出字符串，您也可以使用stringr::str_interp：

# Sample data
set.seed(2017);
df <- data.frame(x = c(1:100))
df$y <- 2 + 3 * df$x + rnorm(100, sd = 40)

# Fit
m <- lm(y ~ x, df);

# Extract coefficients and generate string
a <- coef(m)[1];
b <- coef(m)[2];
r2 <- summary(m)$r.squared;
stringr::str_interp("y = $[2.0f]{a} + $[2.0f]{b} x, R2 = $[4.3f]{r2}")
#[1] "y =  9 +  3 x, R2 = 0.793"

或者使用sprintf:

sprintf("y = %2.0f + %2.0f x, R2 = %4.3f", a, b, r2);
#[1] "y =  9 +  3 x, R2 = 0.793"

【讨论】：

好一个。请问m <- lm(y ~ x, df)中的分号是什么？
@J.Con 啊，分号是习惯的力量；我倾向于以; 结束我在 R 中的行。它们不会造成任何伤害，但不是必需的（除非您在一行中有多个命令，无论如何都应该避免）。如果有兴趣，请参阅here 了解更多详情。
不错。谢谢。

【解决方案3】：

啊，找到了。

g<-as.character("y = a + b x, R2= r2 ")

library(magrittr)

g %<>%
  gsub("a", format(coef(m)[1], digits = 2), .) %>%
  gsub("b", format(coef(m)[2], digits = 2), .) %>%
  gsub("r2", format(summary(m)$r.squared, digits = 3), .)

g

[1] "y = 14 + 3 x, R2= 0.806 "

【讨论】：