R 如何将图例添加到绘图中

我已经看过了在ggplot上绘制图例的答案。但是，这些方法似乎都不适用于我的代码，如下所示：

library(readxl)
library(ggplot2)
library(dplyr)


inputManhattan <- read_xlsx("PlotsManhattan.xlsx")
PercentMN <- inputManhattan$Percent
ComNormMN <- inputManhattan$ComNorm
ElevationMN <- inputManhattan$Elevation



ggplot(inputManhattan, aes(PercentMN, ComNormMN)) +
  geom_point(shape = 22, size = ElevationMN/20, col='orange', alpha = 0.5, fill = "grey50") +
  geom_smooth(method = "loess", se = FALSE, color = 'orange') +
  xlab("Slope") + ylab("Total Normalized Complaints") 

图书馆（readxl）
图书馆（GG2）
图书馆（dplyr）
输入曼哈顿您是否尝试过：

ggplot（输入，aes（百分比，ComNorm））+
geom_平滑（方法=“黄土”，se=假，颜色=‘橙色’）+
几何点(
aes（尺寸=标高/20），
形状=22，
col='橙色'，
α=0.5，
fill=“grey50”）+
xlab（“坡度”）+
ylab（“正常化投诉总数”）

inputManhattan
数据集中的任何列名都位于
aes（）
中
在我上面的示例代码中，您不需要
PercentMN
、
comnormn
和
ElevationMN

我使用
mtcars
dataset运行了一个类似的代码，得到了一个图例：

ggplot（mtcars、aes（disp、mpg））+
geom_平滑（方法=“黄土”，se=假，颜色=‘橙色’）+
几何点(
aes（尺寸=重量/20），
形状=22，
col='橙色'，
α=0.5，
fill=“grey50”）

将
size=ElevationMN/20
放入
aes（）
（将其保存在
geom_点
层中）。然后您可以添加
labs（size=“Elevation”）
变量赋值中的
主题（legend.title=element\u blank（））
是否存在错误？您是否尝试过删除它并进行提升？如果您需要更多帮助，请通过共享一些数据使您的问题重现
dput
是最好的方法，因为它可以复制/粘贴并保留类和结构信息。对于前20行（或其他合适的子集），类似于
dput（inputManhattan[1:20，]）
。感谢Gregor和LC。我尝试了两种方法。然而，两者似乎都没有创造出传奇。Gregor，我添加了我的数据截图。我尝试了dput，但是我有很多列。请选择您需要的三列，然后dput。你可以做
df