R绘图-绘制多条回归线

Question

如何在多个图的同一图中添加多条回归线？

我想绘制散点图以及每个类别的回归线

散点图可以很好地绘制，但是图形线绘制不正确（与excel输出相比，请参见下文）

df <-  as.data.frame(1:19)

df$CATEGORY <- c("C","C","A","A","A","B","B","A","B","B","A","C","B","B","A","B","C","B","B")
df$x <- c(126,40,12,42,17,150,54,35,21,71,52,115,52,40,22,73,98,35,196)
df$y <- c(92,62,4,23,60,60,49,41,50,76,52,24,9,78,71,25,21,22,25)

df[,1] <- NULL

fv <- df %>%
  filter(!is.na(x)) %>%
  lm(x ~ y + y*CATEGORY,.) %>%
  fitted.values()

p <- plot_ly(data = df,
         x = ~x,
         y = ~y,
         color = ~CATEGORY,
         type = "scatter",
         mode = "markers"
) %>%
  add_trace(x = ~y, y = ~fv, mode = "lines")

p

• 不预先添加所有信息的歉意，并感谢您添加“ y * CATEGORY”的建议以解决平行线问题。

Excel输出 https://i.imgur.com/2QMacSC.png

R输出 https://i.imgur.com/LNypvDn.png

Answer 1

尝试一下：

element 
{
    background-image: url(https://montanawebmaster.com/wp-content/uploads/2018/11/Bug.jpg);
}

#masthead .header-image 
{
    background-size: contain;
}

#masthead .header-image 
{
    display: block;
    width: inherit;
    max-width: 100%;
    margin: 0 auto;
    background-size: cover;
    background-position: 50% 50%;
    background-attachment: fixed;
}

.kahuna-cropped-headerimage div.header-image 
{
    height: 100%;
}