R은, R²는 p 값이 회귀 식

Question

이 코드 내게 회귀 방정식과 R2와 플롯을 제공한다 : (하지만 언급해야하는 X 및 방정식 것이다 Y (수동)

CORRELATIONP3 <-CORRELATIONP2[product=='a',] 

x<-CORRELATIONP3$b 
y<-CORRELATIONP3$p 


df <- data.frame(x = x) 
m <- lm(y ~ x, data = df) 
p <- ggplot(data = df, aes(x = x, y = y)) + 
    scale_x_continuous("b (%)") + 
    scale_y_continuous("p (%)")+ 
    geom_smooth(method = "lm", formula = y ~ x) + 
    geom_point() 
p 

eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 
      list(  a = format(coef(m)[1], digits = 4), 
          b = format(coef(m)[2], digits = 4), 
          r2 = format(summary(m)$r.squared, digits = 3))) 

dftext <- data.frame(x = 3, y = 0.2, eq = as.character(as.expression(eq))) 

p + geom_text(aes(label = eq), data = dftext, parse = TRUE) 

나는 R과 p- 값이이 코드를

하지만, : 그리고 여기에 R 및 P 값에 대한 정보가 플롯에 자동으로 맞는 이유는 나뿐만 아니라 처음이 원하는

CORRELATIONP3 <-CORRELATIONP2[product=='a',] 

x<-CORRELATIONP3$b 
y<-CORRELATIONP3$p 


df <- data.frame(x = x) 
m <- lm(y ~ x, data = df) 
p <- ggplot(data = df, aes(x = x, y = y)) + 
    scale_x_continuous("b (%)") + 
    scale_y_continuous("p (%)")+ 
    geom_smooth(method = "lm", formula = y ~ x) + 
    geom_point() 
p 

eq <- substitute(italic(r)~"="~rvalue*","~italic(p)~"="~pvalue, list(rvalue = sprintf("%.2f",sign(coef(m)[2])*sqrt(summary(m)$r.squared)), pvalue = format(summary(m)$coefficients[2,4], digits = 3))) 


dftext <- data.frame(x = 30, y = 0.4, eq = as.character(as.expression(eq))) 
p + geom_text(aes(label = eq), data = dftext, parse = TRUE) 

.

4 가지 정보를 모두 한 묶음의 줄거리에 포함시킬 수 있습니까? (R, R2, 방정식 및 p- 값)

게다가이 정보는 수동으로가 아니라 자동으로 플롯에 맞춰지기를 바랍니다.

Answer 1

좋아, 난 당신이 데이터의 재현성 예를 부여하지 않은하지만 당신은 당신의 변수 중 하나의 이름을 변경해야 할 생각으로이 작동하는지 확실하지 않다는 예 :

eq2 <- substitute(italic(r)~"="~rvalue*","~italic(p)~"="~pvalue, 
list(rvalue = sprintf("%.2f",sign(coef(m)[2])*sqrt(summary(m)$r.squared)), 
pvalue = format(summary(m)$coefficients[2,4], digits = 3))) 

다음은 변경 포인트를 첫 번째 플롯에서 다른 블록 아래의 플롯에 배치합니다. 여기서 x와 y는 텍스트 lable의 위치를 ​​나타내므로 텍스트가 괜찮아 보일 때까지 이것들을 가지고 놀 수 있습니다.

dftext2 <- data.frame(x = 30, y = 0.12, eq2 = as.character(as.expression(eq2))) 
p + geom_text(aes(label = eq2), data = dftext2, parse = TRUE) 

제게 알려 주시면 알려주세요.