R 在散点图上绘制5组数据

我有五组数据，我需要在一个绘图。我需要x轴是激光雷达，y轴是FPC

我正在使用

ggplot2

。到目前为止，我有以下代码：

setwd("C:/r/LIDAR_FPC")

AllLidarvsFPC.df <- data.frame(read.csv("AllLidarvsFPC.csv"))
AllLidarvsFPC = read.csv("AllLidarvsFPC.csv", header=TRUE)

library(ggplot2)

p <- ggplot(AllLidarvsFPC.df, aes(AllLidarvsFPC.df[,1], AllLidarvsFPC.df[,2])) + 
     geom_point() + 
     scale_x_continuous(limits=c(-30,100), breaks=c(-30, -20, -10, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)) + 
     scale_y_continuous(limits=c(-10,120), breaks=c(-10, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100))`

p + 
labs(y = "2013 Percentage cover (%) derived from LiDAR") + 
labs(x = "2013 FPC (%) derived from Landsat") + 
stat_smooth(method = "lm", formula = y ~ poly(x, 5), size = 0.5, col="black")

setwd（“C:/r/LIDAR\U FPC”）
AllLidarvsFPC.df由于没有可使用的工作数据，我制作了一个示例数据框，向您展示如何将其应用于代码。
将来最好提供可复制的代码，这样可以加快响应速度

library(ggplot2)
library(reshape2)

df <- data.frame(LIDAR=c(1,2,3,4), WildmanFPC=c(3,5,2,6), WestAlligatorFPC=c(5,6,7,12), SouthAlligator=c(12,7,1,0))
df_melt<-melt(df, id.vars = 'LIDAR')

ggplot(df_melt, aes(x=LIDAR, y = value, color= variable))+ geom_point()

库（ggplot2）
图书馆（E2）
df Hi，您必须添加一个可复制的代码。否则，在我们的机器上复制您的问题并解决问题将非常困难。请阅读此处的操作方法。。另请参见这一行
aes（AllLidarvsFPC.df[，1]，AllLidarvsFPC.df[，2]）
您仅绘制x与y，这是我认为的WildmanFPCsee这也是如何将数据转换为长格式，然后绘制出不可复制的代码我不确定这是否可行。使用
melt
创建一个长表，如果变量是您的colname，则值是您的值。然后，一个简单的着色可以帮助
PHow添加一个图像，这样我们就可以看到它是什么样子了？