R 在ggplot2中绘制回归线拟合的问题（忽略未知参数：方法）_R_Ggplot2_Regression_Linear Regression_Data Modeling

R 在ggplot2中绘制回归线拟合的问题（忽略未知参数：方法）

R 在ggplot2中绘制回归线拟合的问题（忽略未知参数：方法）,r,ggplot2,regression,linear-regression,data-modeling,R,Ggplot2,Regression,Linear Regression,Data Modeling,我试图画出拟合的简单线性回归线。但是，由于某些未知原因，该线垂直连接这些点。我正在使用ggplot2软件包，出现警告消息数据： dados=read.table（“dadosnew.csv”，header=T，sep=“；”，dec=“，”；主管（护墙板） dados$Trat您还需要组选项： library(ggplot2) #Code dados = read.table("dadosnew.csv", header = T, sep=";", d

我试图画出拟合的简单线性回归线。但是，由于某些未知原因，该线垂直连接这些点。我正在使用ggplot2软件包，出现警告消息

数据：

dados=read.table（“dadosnew.csv”，header=T，sep=“；”，dec=“，”；主管（护墙板）
dados$Trat您还需要组
选项：
library(ggplot2)
#Code
dados = read.table("dadosnew.csv", header = T, sep=";", dec=","); head(dados)
dados$Trat <- factor(dados$Trat)
dados$Teor <- factor(dados$Teor)
#Plot
ggplot(dados,
       aes(x=Trat, y = massaseca)) + 
  geom_point() +
  geom_smooth(method='lm',aes(group=1),se=F)+
  theme(axis.title = element_text(size = 13,color="black"),
        axis.text = element_text(size = 8,color="black"),
        legend.position = "none")

库（ggplot2）
#代码
dados=read.table（“dadosnew.csv”，header=T，sep=“；”，dec=“，”；主管（护墙板）
dados$Trat您还需要组
选项：
library(ggplot2)
#Code
dados = read.table("dadosnew.csv", header = T, sep=";", dec=","); head(dados)
dados$Trat <- factor(dados$Trat)
dados$Teor <- factor(dados$Teor)
#Plot
ggplot(dados,
       aes(x=Trat, y = massaseca)) + 
  geom_point() +
  geom_smooth(method='lm',aes(group=1),se=F)+
  theme(axis.title = element_text(size = 13,color="black"),
        axis.text = element_text(size = 8,color="black"),
        legend.position = "none")

库（ggplot2）
#代码
dados=read.table（“dadosnew.csv”，header=T，sep=“；”，dec=“，”；主管（护墙板）
护墙板$Trat也许这就是你的想法
dados <- read.table(sprintf("https://docs.google.com/uc?id=%s&export=download", "1BTcAkkKPm6kX7ERXeo_3dqa43sJ3HsDT"),
                    header = T, sep=";", dec=",")
  
ggplot(dados, aes(x = Trat, y = massaseca, group = Fator)) +
  stat_summary(geom = "point", fun = mean) + 
  stat_smooth(method = "lm")

dados也许这就是你的想法
dados <- read.table(sprintf("https://docs.google.com/uc?id=%s&export=download", "1BTcAkkKPm6kX7ERXeo_3dqa43sJ3HsDT"),
                    header = T, sep=";", dec=",")
  
ggplot(dados, aes(x = Trat, y = massaseca, group = Fator)) +
  stat_summary(geom = "point", fun = mean) + 
  stat_smooth(method = "lm")

护墙板您需要使用geom\u-smooth
非geom\u-line
。您需要使用geom\u-smooth
非geom\u-line
。谢谢我是坎贝尔！！！谢谢我是坎贝尔！！！