我收到错误消息“错误：离散值提供给连续比例”，但不确定是什么原因造成的

问题描述

我正在尝试为我的绘图添加一些抖动，但我收到消息“错误：离散值提供给连续刻度”

我的代码看起来像这样（x 值“中位数”只是一个列标题）

pl1 <- ggscatter(
df1,x = "Median",y = "Yield",color = "Year",add = "reg.line",)+
xlim(0,100)+ 
stat_regline_equation(
aes(label =  paste(..eq.label..,..rr.label..,sep = "~~~~"),color = Year)
  )


pl1 <- pl1 + geom_point(aes(x ='Median',colour = "NA"),alpha = 0.2)
pl1 <- pl1 + theme_classic()
pl1 <- pl1 + stat_summary(aes(x = "Median",y = "Yield"),fun=mean,color="blue")
pl1 <- pl1 + stat_summary(aes(x = "Median",fun=median,color="red")
pl1

pl2 <- ggscatter(
df1,color = Year)
)
pl2 <- pl2 + geom_jitter(aes(x ='Median',colour = "Year"),alpha = 0.2)
pl2 <- pl2 + theme_classic()
pl2 <- pl2 + stat_summary(aes(x = "Median",color="blue")
pl2 <- pl2 + stat_summary(aes(x = "Median",color="red")
pl2  

class(df1$Yield)
class(df1$Median)
class(df1$Year)

install.packages("gridExtra",repos="http://R-Forge.R-project.org")
library(gridExtra)

grid.arrange(pl1,pl2,nrow=1)

我的值已更改为数字，因此我不确定是什么导致了问题。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）